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每 一 位 严肃 的 计算 机 科学 家 都 应 该 阅读 这 本 书 。 由 于 本 书 清晰 、 人 简洁 和 富 于 才智 ， 
我 们 强烈 推荐 本 书 ， 它 适合 所 有 希望 深刻 理解 计算 机 科学 的 人 们 。” 





Mitchell Wand 
《美国 科学 家 》 杂志 


本 书 1984 年 出 版 ， 成 型 于 美国 麻 省 理工 学 院 (MIT) 多 年 使 用 的 一 本 教材 ，1996 年 修订 为 第 
2 版 。 在 过 去 的 二 十 多 年 里 ， 本 书 对 于 计算 机 科学 的 教育 计划 产生 了 深刻 的 影响 。 


第 2 版 中 大 部 分 重要 程序 设计 系统 都 重新 修改 并 做 过 测试 ， 包 括 各 种 解释 器 和 编译 器 。 作 者 
根据 其 后 十 余年 的 教学 实践 ， 还 对 其 他 许多 细节 做 了 相应 的 修改 。 


本 书 自 出 版 以 来 ， 世 界 各 地 已 有 100 多 所 院 校 采用 本 书 做 教材 ， 其 中 包括 美国 斯 坦 福 大 学 、 
美国 普林斯顿 大 学 、 英 国 牛津 大 学 、 日 本 东京 大 学 等 。 


相关 网 站 有 本 书 源 代码 及 其 他 教 辅 资料 ， 网 址 为 : www-mitpress.mit.edu/sicp/ 


作 Harold Abelson 是 MIT 1992 年 度 MacVicar Faculty Fellow。 Gerald Jay 
者 | Sussman 是 Matsushita 电 子 工程 教授 。 他 们 都 在 MIT 电 子 工程 和 计算 机 
5 科学 系 工作 ， 都 得 到 过 最 重要 的 计算 机 科学 教育 奖 : 如 Abelson 得 到 了 
介 IEEE 计 算 机 学 会 的 Booth 奖 ，Sussman 得 到 了 ACM 的 Karlstrom 奖 。 








Julie Sussman 是 作家 和 编辑 ， 同 时 使 用 和 目 然 语 言 和 计算 机 语言 与 作 。 


三 位 作者 合成 像 


(HNick Papadakis 合 成 ) 
ISBN 7-111-13510-5 W & £9475: www.china-pub.com 
= = 北京 市 西城 区 百 万 庄 南 街 1 号 100037 
读者 服务 执 线 : (010)68995259，68995264 
Bo 读者 服务 信箱 : hzedu@hzbook.com 
http://www.hzbook.com 
9 1787111"135104 ISBN 7-111-13510-5/TP . 3339 


定价 : 45.00 元 


POTON 


计算 机 程序 的 
构造 和 解释 


(¥:) Harold Abelson Gerald Jay Sussman Julie Sussman & 3% Sc Re OE 
2 章 - 二 学院 Laks 








Structure and 
interpretation 
of Computer 
Prosrams 


Second Edition 





selena 











本 书 从 1980 年 开始 就 是 美国 麻 省 理工 学 院 计算 机 科学 专业 的 人 门 课程 教材 之 一 ， 从 
理论 上 讲解 计算 机 程序 的 创建 、 执 行 和 研究 。 主 要 内 容 包括 ; 构造 过 程 抽象 ， 构 造 数 据 
抽象 ， 模 块 化 、 对 象 和 状态 ， 元 语言 抽象 ， 寄 存 器 机 器 里 的 计算 等 。 本 书 描述 生动 有 趣 ， 
分 析 清晰 透彻 ， 是 计算 机 专业 学 生 人 门 必 读 教材 ， 也 是 计算 机 专业 大 士 不 可 或 缺 的 参考 
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Harold Abelson, et al: Structure and Interpretation of Computer Programs, Second 
Edition (ISBN 0-262-01553-0). a 


Original English language edition copyright © 1996 py The Massachusetts Institute of oo 


Technology. 


All rights reserved. No part of this publication may be reproduced or distributed i in: any 六 、 . 


means, or stored in a database or retrieval system, without the prior written permission of 


the publisher. 


本 书 中 文 简体字 版 由 美国 麻 省 理工 学 院 授权 机 械 工业 出 版 社 和 中 信 出 版 社 共同 出 
版 。 未 经 出 版 者 预先 书面 许可 ， 不 得 以 任何 方式 复制 或 抄 黎 本 书 的 任何 部 分 。 
版 权 所 有 ， 侵权 必 究 。 - 


本 书 版 权 登记 号 ， 图 字 : 01-2002-0604 
图 书 在 版 编目 (CIP) 数据 


计算 机 程序 的 构造 和 解释 ( 原 书 第 2 版 )/ ( 美 ) 区 伯 森 (Abelson, H.) FE: RR 
燕 译 . 一 北京 : 机 械 工业 出 版 社 2004.2 


(计算 机 科学 丛书 ) | | | 
HAX: Structure and Interpretation of Computer Programs, Second Édition 


ISBN 7-111-13510-5 
Lite I. OX OR m 程序 设计 IV. TP311.1 四 
中 国 版 本 图 书馆 CIP 数 据 核 字 (2003) 第 112670 号 


机 械 工 业 出 版 社 A MEAT KB? ene 100037 ). 
责任 编辑 ， 吴 TB | í 
ERRERA RRA TIEN - 新 从 书店 北 京 改行 IRRI 
2004 年 2 月 第 1 版 第 1 次 印刷 

787mm x 1092mm 1/16 - 30.75 印张 

印 数 ，0 001 - 4 000 册 

定价 : 45.00 元 


凡 购 本 书 ， 如 有 倒 页 、 脱 页 、 缺 页 ， 由 本 社 发 行 部 调换 ; 
本 社 购书 热线 : (010) 68326294 四 





出 版 者 的 话 


文艺 复兴 以 降 ， 源 远 流 长 的 科学 精神 和 逐步 形成 的 学 术 规 范 ， 使 西方 国家 在 自然 科学 的 
各 个 领域 取得 了 垄断 性 的 优势 ， 也 正 是 这 样 的 传统 ,使 美国 在 信息 技术 发 展 的 六 十 多 年 间 名 
家 辈出 、 独 领 风 又 。 在 商业 化 的 进程 中 ， 美 国 的 产业 界 与 教育 界 越 来 越 紧 密 地 结合 ， 计 算 机 
学 科 中 的 许多 泰山 北斗 同时 身 处 科研 和 教学 的 最 前 线 ， 由 此 而 产生 的 经 典 科 学 著作 ， 不 仅 辟 
划 了 研究 的 范畴 ， 还 揭 线 了 学 术 的 源 变 ， 既 遵循 学 术 规 范 ， 又 自 有 学 者 个 性 ， 其 价值 并 不 会 
因 年 月 的 疲 逝 而 减退 。 

近年 ， 在 全 球 信息 化 大 壮 的 推动 下 ， 我 国 的 计算 机 产业 发 展 迅 猛 ， 对 专业 人 才 的 需求 日 
益 迫 切 。 这 对 计算 机 教育 界 和 出 版 界 都 既是 机 过 ， 也 是 挑战 ， 而 专业 教材 的 建设 在 教育 战略 
上 显得 举足轻重 。 在 我 国信 息 技术 发 展 时 间 较 短 、 从 业 人 员 较 少 的 现状 下 ， 美 国 等 发 达 国 家 
在 其 计算 机 科学 发 展 的 几 十 年 间 积 淀 的 经 典 教 材 仍 有 许多 值得 借鉴 之 处 。 因 此 ， 引 进 一 批 国 
外 优秀 计算 机 教材 将 对 我 国 计 算 机 教育 事业 的 发 展 起 积极 的 推动 作用 ， 也 是 与 世界 接轨 、 建 
设 真正 的 世界 一 流 大 学 的 必由之路 。 

机 械 工业 出 版 社 华章 图 文 信息 有 限 公 司 较 早 意识 到 “出 版 要 为 教育 服务 ”。 自 1998 年 开始 ， 
华章 公司 就 将 工作 重点 放 在 了 六 选 、 移 译 国 外 优秀 教材 上 。 经 过 几 年 的 不 懈 努 力 ， 我 们 与 
Prentice Hall, Addison-Wesley , McGraw-Hill, Morgan Kaufmann 等 世界 著名 出 版 公司 建立 了 
良好 的 合作 关系 ， 从 它们 现 有 的 数 百 种 教材 中 王选 出 Tanenbaum,， Stroustrup, Kernighan, 
Jim Gray 等 大 师 名 家 的 一 批 经 典 作 品 ， 以 “计算 机 科学 丛书 ”为 总 称 出 版 ， 供 读者 学 习 、 研 
究 及 度 藏 。 大 理 石 纹理 的 封面 ， 也 正体 现 了 这 人 套 从 书 的 品位 和 格调 。 

“计算 机 科学 丛书 ”的 出 版 工作 得 到 了 国内 外 学 者 的 电力 囊 助 ， 国 内 的 专家 不 仅 提 供 了 中 
肯 的 选 题 指 导 ， 还 不 辞 劳 苦 地 担任 了 翻译 和 审 校 的 工作 ， 而 原 书 的 作者 也 相当 关注 其 作品 在 
中 国 的 传播 ， 有 的 还 专 诚 为 其 书 的 中 译本 作 序 。 迄 今 ,，“ 计 算 机 科学 丛书” 已 经 出 版 了 近 百 个 
品种 ， 这 些 书籍 在 读者 中 树立 了 良好 的 口碑 ， 并 被 许多 高 校 采用 为 正式 教材 和 和 参考 书籍 ， 为 
进一步 推广 与 发 展 打下 了 坚实 的 基础 。 

随 着 学 科 建 设 的 初步 完善 和 教材 改革 的 逐渐 深化 ， 教 育 界 对 国外 计算 机 教材 的 需求 和 应 
用 都 步 入 一 个 新 的 阶段 。 为 此 ， 华 章 公司 将 加 大 引进 教材 的 力度 ， 在 “华章 教育 ”的 总 规划 
之 下 出 版 三 个 系列 的 计算 机 教材 : 除 “ 计 算 机 科学 丛书 ”之 外 ， 对 影印 版 的 教材 ， 则 单独 开 
如 出 “经 典 原版 书库 ”， 同 时 ， 引 进 全 美 通行 的 教学 辅导 书 “schaum s Outlines ”系列 组 成 
“全 美 经 典 学 习 指 导 系 列 ”。 为 了 保证 这 三 套 丛 书 的 权威 性 ， 同 时 也 为 了 更 好 地 为 学 校 和 老师 
们 服务 ， 华 章 公司 聘请 了 中 国 科 学 院 、 北 京 大 学 、 清 华 大 学 、 国 防 科技 大 学 、 复 旦 大 学 、 上 
海 交 通 大 学 、 南 京 大 学 、 浙 江 大 学 、 中 国 科技 大 学 、 哈 尔 演 工业 大 学 、 西 安 交 通 大 学 、 中 国 
大 民 大 学 、 北 京 航空 航天 大 学 、 北 京 邮 电大 学 、 中 出 大 学 、 解 放 军 理工 大 学 、 郑 州 大 学 、 淹 
北 工 学 院 、 中 国 国 家 信息 安全 测评 认证 中 心 等 国内 重点 大 学 和 科研 机 构 在 计算 机 的 各 个 领域 
的 著名 学 者 组 成 “专家 指导 委员 会 ”"， 为 我 们 提供 选 题 意 见 和 出 版 监督 。 

这 三 套 丛 书 是 响应 教育 部 提出 的 使 用 外 版 教材 的 号 召 ， 为 国内 高 校 的 计算 机 及 相关 专业 
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的 教学 度 身 订 造 的 。 其 中 许多 教材 均 已 为 M. I. T., Stanford, U.C. Berkeley, C. M. U. 等 世界 
名 牌 大 学 所 采用 。 不 仅 涵 盖 了 程序 设计 、 数 据 结构 、 操 作 系 统 、 计 算 机 体系 结构 、 数 据 库 、 
编译 原理、 软件 工程 、 图 形 学 、 通 信和 与 网 络 、 离 散 数学 等 国内 大 学 计算 机 专业 普遍 开设 的 核 
心 课 程 ， 而 且 各 具 特 色 一 一 有 的 出 自 语言 设计 者 之 手 、 有 的 历经 三 十 年 而 不 误 、 有 的 已 被 全 
世界 的 几 百 所 高 校 采 用 。 在 这 些 圆 熟 通 博 的 名 师 大 作 的 指引 之 下 ， 读 者 必 将 在 计算 机 科学 的 
宫 奈 中 由 登 堂 而 人 室 。 

权威 的 作者 、 经 典 的 教材 、 一 流 的 译 者 、 严 格 的 审 校 、 精 细 的 编辑 ， 这 些 因素 使 我 们 的 
图 书 有 了 质量 的 保证 ， 但 我 们 的 目标 是 尽善尽美 ， 而 反馈 的 意见 正 是 我 们 达到 这 一 终极 目标 
的 重要 帮助 。 教 材 的 出 版 只 是 我 们 的 后 续 服务 的 起 点 。 华 章 公司 欢迎 老师 和 读者 对 我 们 的 工 
作 提 出 建议 或 给 予 指正 ， 我 们 的 联系 方法 如 下 : 


电子 邮件 ， hzedu@hzbook.com 

联系 电话 : (010) 68995264 

联系 地 址 : 北京 市 西城 区 百 万 庄 南 街 1 号 
邮政 编码 : 100037 - 
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Th et FORAGE, FEAR AMM IES SS TET WAS Ht KR. 


“IAD, FEM RUE RPI P RARE ROHR, R— RAGS oS Te 
含 着 趣味 性 。 当 然 ， 那 些 付 钱 的 客户 们 时 常 觉得 爱 了 了 骗 。 一 段 时 间 广 后， 我们 开始 严肃 地 看 
尘 他 们 的 抱 恕 。 我 们 开始 感觉 到 ， 自 己 真 的 像 是 要 负 起 成 功 地 、 无 差错 地 、 完 美 地 使 用 这 些 
机 器 的 责任 。 我 不 认为 我 们 可 以 做 到 这 些 。 我 认为 我 们 的 贵 任 是 去 拓展 这 一 领域 ， GHAR 
到 新 的 方向 ， 并 在 自己 的 家 里 保持 趣味 性 。 我 希望 计算 机 科学 的 领域 绝 不 要 次 失 其 趣味 意识 。 
最 重要 的 是 ， 我 希望 我 们 不 要 变 成 传道 士 ， 不 要 认为 你 是 完 售 圣经 的 人 人， 世界 上 这 种 人 已 经 
太 多 了。 你 所 知道 的 有 关 和 计算 的 东西 ， 其 他 人 也 都 能 学 到 。 绝 不 要 认为 似乎 成 功 计 算 的 铀 时 
就 掌握 在 你 的 手 里 。 你 所 掌握 的 ,也 是 我 认为 并 希望 的 ， 也 就 是 智 意 ， 那 种 看 到 这 一 机 器 比 
你 第 一 次 站 在 它 面 前 时 能 做 得 更 多 的 能 力 ， 这 样 你 才能 将 它 向 前 推进 。" 


Alan J. Perlis ( 1922 年 4 月 1 日 一 1990 年 1 月 7 日 ) 





O 教育 者 、 将 军 、 减 肥 专 家 、 心 理学 家 和 父母 做 规划 (program )， 而 军人 、 学 生 和 另 一 些 
社会 阶层 则 被 人 规划 (are programmed ) 。 解 决 大 规模 问题 需要 经 过 一 系列 规划 ， 其 中 的 大 部 
分 东西 只 有 在 工作 进程 中 才能 做 出 来 ; 这 些 规划 中 充满 着 与 手头 问题 的 特殊 性 相关 的 情况 。 
如 果 想 要 把 做 规划 这 件 事情 本 身 作 为 一 种 智力 活动 来 欣赏 ， 你 就 必须 转 到 计算 机 的 程序 设计 
(programming) ， 你 需要 读 或 者 写 计算 机 程序 一 一 而 且 要 大 量 地 做 。 有 关 这 些 程序 具体 是 关于 
什么 的 、 服 务 于 哪 类 应 用 等 等 的 情况 常常 并 不 重要 ， 重 要 的 是 它们 的 性 能 如 何 ， 在 用 于 构造 
更 大 的 程序 时 能 否 与 其 他 程序 平滑 衔接 。 程 序 员 们 必须 同时 追求 具体 部 分 的 完美 和 汇合 的 适 
家 性 。 在 这 部 书 里 使 用 “程序 设计 ”一 词 时 ， 所 关注 的 是 程序 的 创建 、 执 行 和 研究 ， 这 些 程 
序 是 用 一 种 Lisp 方 言 书写 的 ， 为 了 在 数字 计算 机 上 执行 。 采 用 Lisp 并 没有 对 我 们 可 以 编程 的 范 
围 施 以 任何 约束 或 者 限制 ， 而 只 不 过 确定 了 程序 描述 的 记 法 形式 。 | 

本 书 中 要 讨论 的 各 种 问题 都 牵涉 到 三 类 需要 关注 的 对 象 ; 人 的 大 脑 、 计 算 机 程序 的 集合 
以 及 计算 机 本 身 。 每 一 个 计算 机 程序 都 是 现实 中 的 或 者 精神 中 的 某 个 过 程 的 一 个 模型 ， 通 过 
大 的 头脑 孵化 出 来 。 这 些 过 程 出 现在 人 们 的 经 验 或 者 思维 之 中 ,数量 上 数不胜数 ， 详 情 琐碎 
繁杂 ， 任 何 时 候 人 们 都 只 能 部 分 地 理解 它们 。 我 们 很 少 能 通过 自己 的 程序 将 这 种 过 程 模拟 到 
永远 令 人 满意 的 程度 。 正 因为 如 此 ， 即 使 我 们 写 出 的 程序 是 一 集 经 过 仔细 雕琢 的 离散 符号 ， 
是 交织 在 一 起 的 一 组 函数 ， 它 们 也 需要 不 断 地 演化 ， 当 我 们 对 于 模型 的 认识 更 深入 、 更 扩大 、 
更 广泛 时 ， 就 需要 去 修改 程序 ， 直 至 这 一 模型 最 终 到 达 了 一 种 亚 稳定 状态 。 而 在 这 时 ， 程 序 
中 就 又 会 出 现 另 一 个 需要 我 们 去 为 之 奋斗 的 模型 。 计 算 机 程序 设计 领域 之 令 人 兴奋 的 源泉 ， 
就 在 于 它 所 引起 连绵 不 绝 的 发 现 ， 在 我 们 的 头脑 之 中 ， 在 由 程序 所 表达 的 计算 机 制 之 中 ， 以 
及 在 由 此 所 导致 的 认识 爆炸 之 中 。 如 果 说 艺术 解释 了 我 们 的 梦想 ， 那 么 计算 机 就 是 以 程序 的 
名 义 执行 着 它们 。 | 

就 其 本 身 的 所 有 能 力 而 言 ， 计 算 机 是 一 位 -一丝 不 苟 的 工区 : 它 的 程序 必须 正确 ， 我 们 希 
望 说 的 所 有 东西， 都 必须 表述 得 准确 到 每 一 点 细节 。 就 像 在 其 他 所 有 使 用 符号 的 活动 中 一 样 ， 
我 们 需要 通过 论证 使 自己 相信 程序 的 真 。 可 以 为 Lisp 本 身 赋予 一 个 语义 (可 以 说 是 另 一 个 模 
型 ) ， 假 如 说 ， 一 个 程序 的 功能 可 以 在 (例如) 谓词 演算 里 描述 ,那么 就 可 以 用 逻辑 方法 做 出 
一 个 可 接受 的 正确 性 论证 。 不 幸 的 是 ， 随 着 程序 变 得 更 大 更 复杂 (实际 上 它们 几乎 总 是 如 此 ) ， 
这 种 描述 本 身 的 适宜 性 、 一 致 性 和 正确 性 也 都 变 得 非常 值得 怀疑 了 。 因 此 ， 很 少 能 够 看 到 有 
关 大 程序 正确 性 的 完全 形式 化 的 论证 。 因 为 大 的 程序 是 从 小 东西 成 长 起 来 的 ， 开 发 出 一 个 标 
准 化 的 程序 结构 的 武器 库 ， 并 保证 其 中 每 种 结构 的 正确 性 一 一 我 们 称 它们 为 惯用 法 ， 再 学 会 
如 何 利用 一 些 已 经 证 明 很 有 价值 的 组 织 技 术 ， 将 这 些 结构 组 合成 更 大 的 结构 ， 这 些 都 是 至 关 
重要 的 。 本 书 中 将 详尽 地 讨论 这 些 技术 。 理 解 这 些 技术 ， 对 于 参与 这 种 被 称 为 程序 设计 的 具 
有 创造 性 的 事业 是 最 最 本 质 的 。 特 别 值得 提出 的 是 ， 发 现 并 掌握 强 有 力 的 组 织 技 术 ， 将 提升 
我 们 构造 大 型 的 重要 程序 的 能 力 。 反 过 来 说 ， 因 为 写 大 程序 非常 耗 时 费力 ， 这 也 推动 着 我 们 
去 发 明 新 方法 ， 减 轻 由 于 大 程序 的 功能 和 细节 而 引起 的 沉重 负担 。 





Vill 


与 程序 不 同 ， 计 算 机 必须 遵守 物理 定律 。 如 果 它 们 要 快速 执行 -一 几 个 纳 秒 做 一 次 状态 转 
换 一 那么 就 必须 在 很 短 的 距离 内 传导 电子 (至 多 1.5 英 尺 )。 必 须 消除 由 于 大 量 元 件 而 产生 的 
热量 集中 。 人 们 已 经 开发 出 了 一 些 巧 妙 的 工程 艺术 ， 用 于 在 功能 多 样 性 与 元 件 密度 之 间 求 得 
一 种 平衡 。 在 任何 情况 下 ,硬件 都 是 在 比 我 们 编程 时 所 需要 关心 的 层次 更 低 的 层次 上 操作 的 。 
将 我 们 的 Lisp 程 序 变换 到 “机 器 ”程序 的 过 程 本 身 也 是 抽象 模型 ， 是 通过 程序 设计 做 出 来 的 。 
研究 和 构造 它们 ， 能 使 人 更 加 深刻 地 理解 与 任何 模型 的 程序 设计 有 关 的 程序 组 织 问 题 。 当 然 ， 
计算 机 本 身 也 可 以 这 样 模拟 。 请 想 一 想 ， 最 小 的 物理 开关 元 件 在 量子 力学 里 建 模 ， 而 量子 力 
学 又 由 一 组 微分 方程 描述 ， 微 分 方程 的 细节 行为 可 以 由 数值 去 近似 ， 这 种 数值 又 由 计算 机 程 
序 所 描述 ， 计 算 机 程序 的 组 成 …… E | 

区 分 出 上 述 三 类 需要 关注 的 对 象 ， 并 不 仅仅 是 为 了 策略 上 的 便利 。 即 使 有 人 说 它 不 过 是 
人 头脑 里 的 东西 ， 这 种 逻辑 区 分 也 引起 了 这 些 关注 焦点 之 间 符 号 流动 的 加 速 ， 它 们 在 人 们 经 
验 中 的 丰富 人 性、 活力 和 潜力 ， 只 能 由 现实 生活 中 的 不 断 演化 去 超越 。 我 们 至 多 只 能 说 ， 这 些 
关注 焦点 之 间 的 关系 是 基本 稳定 的 。 计 算 机 永远 都 不 够 大 也 不 够 快 。 硬 件 技术 的 每 一 次 突破 
都 带 来 了 更 大 规模 的 程序 设计 事业 ， 新 的 组 织 原理 ， 以 及 更 加 丰富 的 抽象 模型 。 每 个 读者 都 
应 该 反复 地 问 自己 “到 哪里 才 是 头 儿 ， 到 哪里 才 是 头 儿 ? ”一 一 但 是 不 要 间 得 过 于 频繁 ， 以 
免 忽 略 了 程序 设计 的 乐趣 ， 使 自己 陷入 一 种 喜忧参半 的 呆滞 状态 中 。 | 

在 我 们 写 出 的 程序 里 ， 有 些 程序 执行 了 某 个 精确 的 数学 函数 (但 是 绝 不 够 精确 ) ， 例 如 排 
序 ， 或 者 找 出 一 系列 数 中 的 最 大 元 ， 确 定 素数 性 ， 或 者 找 出 平方 根 。 我 们 将 这 种 程序 称 为 算 
法 ， 关 于 它们 的 最 佳 行为 已 经 有 了 许多 认识 ， 特 别 是 关于 两 个 重要 的 参数 : 执行 的 时 间 和 对 
数据 存储 的 需求 。 程 序 员 应 该 追求 好 的 算法 和 惯用 法 。 即 使 某 些 程序 难以 精确 地 描述 ， 程 序 
员 也 有 责任 去 估计 它们 的 性 能 ， 并 要 继续 设法 去 改进 之 。 

Lisp 是 一 个 幸存 者 ， 已 经 使 用 了 四 分 之 一 个 世纪 。 在 现存 的 活 语言 里 ， 只 有 Fortran 比 它 
的 寿命 更 长 些 。 这 两 种 语言 都 支持 着 一 些 重 要 领域 中 的 程序 设计 需要 ，Fortran 用 于 科学 与 工 
程 计算 ，Lisp 用 于 人 工 智 能 。 这 两 个 领域 现在 仍然 很 重要 ， 它 们 的 程序 员 都 如 此 倾心 于 这 两 
种 语言 ， 因 此 ，Lisp 和 Fortran 都 还 可 能 继续 生存 至 少 四 分 之 一 个 世纪 。 : | 

Lisp 一 直 在 改变 着 。 这 本 教科 书 中 所 用 的 Scheme 方言 就 是 从 原来 的 Lisp 里 演化 出 来 的 ， 并 
在 若干 重要 方面 与 之 相 异 ,包括 变量 约束 的 静态 作用 域 ， 以 及 允许 函数 产生 出 函数 作为 值 。 
在 语义 结构 上 ，Scheme 更 接近 于 Algol 60 而 不 是 早期 的 Lisp。Algol 60 已 经 不 可 能 再 变 为 活 的 
语言 了 ， 但 它 还 活 在 Scheme 和 Pascal 的 基因 里。 很 难 找到 这 样 的 两 种 语言 ， 它 们 能 如 此 清晰 地 
代表 着 围绕 这 两 种 语言 而 豪 集 起 来 的 两 种 差异 巨大 的 文化 。Pascal 是 为 了 建造 金字 塔 一 一 壮丽 
辉煌 、 令 人 震 憾 ， 是 由 各 就 其 位 的 沉重 巨石 筑 起 的 静态 结构 。 而 Lisp 则 是 为 了 构造 有 机 体 一 一 
同样 的 壮丽 辉煌 并 令 人 震 憾 ， 由 各 就 其 位 但 却 永 不 静止 的 无 数 简单 的 有 机 体 片段 构成 的 动态 
疆 构 。 在 两 种 语言 里 都 采用 了 同样 的 组 织 原 则 ， 除 了 其 中 特别 重要 的 一 点 不 同 之 外 : 托付 给 
Lisp 程 序 员 个 人 可 用 的 自由 支配 权 ， 要 远 远 超过 在 Pascal 社 团 里 可 找到 的 东西 。Lisp 程 序 大 大 
抬 高 了 函数 库 的 地 位 , 使 其 可 用 性 超越 了 催生 它们 的 那些 具体 应 用 。 作 为 Lisp 的 内 在 数据 结构 ， 
表 对 于 这 种 可 用 性 的 提升 起 着 最 重要 的 作用 。 表 的 简单 结构 和 自然 可 用 性 反应 到 函数 里 ， 就 
使 它们 具有 了 一 种 奇异 的 普 适 性 。 而 在 Pascal 里 ， 数 据 结构 的 过 度 声明 导致 函数 的 专用 性 ， 阻 
碍 并 惩罚 临时 性 的 合作 。 采 用 100 个 函数 在 一 种 数据 结构 上 操作 ， 远 远 优 于 用 10 个 函数 在 10 个 
数据 结构 上 操作 。 作 为 这 些 情况 的 必然 后 果 ， 人 金字 塔 豆 立 在 那里 千年 不 变 ,而 有 机 体 则 必须 





演化 ， 否 则 就 会 死亡 。 

为 了 看 清楚 这 种 差异 ， 请 将 本 书 中 给 出 的 材料 和 练习 与 任何 第 一 门 Pascal 课 程 的 教科 书 中 
的 材料 做 一 个 比较 。 请 不 要 费力 地 去 想象 ， 说 这 不 过 是 一 本 在 MIT 采 用 的 教科 书 ， 其 特异 性 
仅仅 是 因为 它 出 自 那 个 地 方 。 准 确 地 说， 任何 一 本 严肃 的 关于 Lisp 程 序 设计 的 书 都 应 该 如 此 ， 
无 论 其 学 生 是 谁 ， 在 什么 地 方 使 用 。 | 

请 注意 ， 这 是 一 本 有 关 程序 设计 的 教科 书 ， 它 不 像 大 部 分 关于 Lisp 的 书 ， 因 为 那些 书 多 
半 是 为 人 们 在 人 工 智 能 领域 工作 做 准备 。 当 然 ， 无 论 如 何 ， 在 研究 工作 规模 不 断 增 长 的 过 程 
中 ， 软 件 工程 和 人 工 智能 所 关心 的 重要 程序 设计 工作 正 趋 于 相互 结合 。 这 也 解释 了 为 什么 在 
人 工 智 能 领域 之 外 的 人 们 对 Lisp 的 兴趣 在 不 断 增加 。 

正如 由 其 目标 可 以 预 抑 到 的 ， 人 工 智 能 的 研究 产生 出 许多 重要 的 程序 设计 问题 。 在 其 他 
程序 设计 文化 中 ， 问 题 的 洪水 孵化 出 一 种 又 一 种 新 的 语言 。 确 实 ， 在 任何 非常 大 的 程序 设计 
el 

些 语言 趋向 于 变 得 越 来 越 不 基本 ， 逐 渐 和 逼 近 系统 的 边界 ， 有 逼 近 我 们 作为 人 最 经 常 与 之 交互 
的 地 广 。 作为 这 一 情况 的 结果 ， 在 这 种 系统 里 包含 着 大 量 重复 的 复杂 的 语言 处 理 功能 。Lisp 
有 着 如 此 简单 的 语法 和 语义 ， 程 序 的 语法 分 析 可 以 看 作 一 种 很 简单 的 工作 。 这 样 ， 语 法 分 析 
技术 对 于 Lisp 程 序 几 乎 就 没有 价值 ， 语 言 处 理 器 的 构造 对 于 大 型 Lisp 系 统 的 成 长 和 变化 不 会 成 
为 阻碍 。 最 后 ， 正 是 这 种 语法 和 语义 的 极端 简单 性 ， 产 生出 了 所 有 Lisp 程 序 员 的 负担 和 自由 。 
任何 规模 的 Lisp 程 序 ， 除 了 那 种 密 窄 几 行 的 程序 外 ， 都 饱含 着 考虑 周到 的 各 种 功能 。 发 明 并 
调整 ， 调 整 恰当 后 再 去 发 明 ! 让 我 们 举 起 杯 ， 祝 福 那些 将 他 们 的 思想 镶 俯 在 重重 括号 之 间 的 
Lisp 程 序 员 。 


Alan J. Perlis 
L, RRIKA 





第 2 版 前 言 


软件 浊 可 能 确实 与 其 他 任何 东西 都 不 同 ， 它 的 本 意 就 是 被 殷 弃 ， 这 一 观点 的 全 部 
就 是 总 将 它 看 作 一 个 肥皂 泡 吗 ? 


— Alan J. Perlis 


自 1980 年 以 来 ， 本 书 的 材料 就 一 直 在 MIT 作 为 计算 机 科学 学 科 入 门 课 程 的 基础 。 在 本 书 
第 1 版 出 版 之 前 ， 我 们 已 经 用 这 一 材料 教 了 4 年 课 ， 而 到 这 个 第 2 版 出 版 ， 时 间 又 过 去 了 12 年 。 
我 们 非常 高 兴 地 看 到 这 一 工作 被 广泛 接受 ， 并 被 结合 到 其 他 一 些 教材 中 。 我 们 已 经 看 到 自己 
的 学 生 掌握 了 本 书 中 的 思想 和 程序 ， 并 将 它们 构筑 到 新 的 计算 机 系统 或 者 语言 的 核心 里 。 这 
就 在 文字 上 实现 了 一 个 古 犹 太 教 法 典 的 双关 语 ， 我 们 的 学 生 已 经 变 成 了 我 们 的 创造 者 。 我 们 
非常 幸运 能 有 如 此 有 能 力 的 学 生 和 如 此 有 建树 的 创造 者 。 

在 准备 这 一 新 版 本 的 过 程 中 ， 我 们 结合 进 了 成 百 条 澄清 性 建议 ， 它 们 来 自我 们 自己 的 教 
学 经 验 ， 也 来 自 MIT 和 其 他 地 方 的 同行 们 的 评述 。 我 们 重新 设计 了 本 书 里 主要 的 程序 设计 系 
统 中 的 大 部 分 ， 包 括 通用 型 算术 系统 、 解 释 器 、 寄 存 器 机 器 模拟 器 和 编译 器 ， 也 重 写 了 所 有 
的 程序 实例 ， 以 保证 任何 符合 IEEE 的 Scheme 标准 (IEEE 1990) 的 Scheme 实现 都 能 运行 这 些 
代码 。 

这 一 版 本 中 强调 了 几 个 新 间 题 ， 其 中 最 重要 的 是 有 关 在 不 同 的 途径 中 ， 计 算 模型 里 对 于 
时 间 的 处 理 所 起 的 中 心 作用 : 带 有 状态 的 对 象 、 并 发 程序 设计 、 函 数 式 程序 设计 、 情 性 求 值 
和 非 确定 性 程序 设计 。 这 里 为 并 发 和 非 确定 性 新 增加 了 几 节 ， 我 们 也 设法 将 这 一 论题 集成 到 
整 本 书 里 ， 贯 穿 始终 。 

”本 书 第 1 版 基本 上 是 按照 我 们 在 MIT 一 学 期 课程 的 教学 大 纲 撰写 的 。 由 于 有 了 第 2 版 中 增 

加 的 这 些 新 材料 ， 在 一 个 学 期 里 覆盖 所 有 内 容 已 经 不 可 能 了 ， 所 以 教师 需要 从 中 做 一 些 选择 。 
在 我 们 自己 的 教学 里 ， 有 时 会 跳 过 有 关 罗 辑 程序 设计 的 一 节 (4.4 节 ) ， 让 学 生 使 用 寄存 器 机 
器 模拟 器 ， 但 并 不 去 讨论 它 的 实现 (5.2 节 ) ， 对 于 编译 器 则 只 给 出 一 个 粗略 的 概述 (5.5 节 )。 
即使 如 此 ， 这 还 是 一 个 内 容 非 常 多 的 课程 。 一 些 教师 可 能 希望 只 覆盖 前 面 的 三 章 或 者 四 章 ， 
而 将 其 他 内 容留 给 后 续 课 程 。 

万 维 网 站 点 www-mitpress.mit.edu/sicp 为 本 书 的 使 用 者 提供 支持 。 基 中 包含 了 取 自 本 书 的 
程序 ， 示 例 程序 作业 、 辅 助 材料 和 Lisp 的 Scheme 方言 的 可 下 载 实现 。 





第 1 版 前 言 


一 台 计 算 机 就 像 是 一 把 小 提琴 。 你 可 以 想象 一 个 新 手 试 了 一 个 音符 并 去 挤 了 它 。 
后 米 他 说 ,， 听 起 来 真 难听 。 我 们 已 经 从 大 众 和 我 们 的 大 部 分 计算 机 科学 家 闭 里 反复 
听 到 这 种 说 法 。 他 们 说 ， 计 算 机 程序 对 个 别 具 体 用 省 而 言 确 实 是 好 东西 ,但 它们 太 
缺 生 弹性 。 一 把 小 提琴 或 者 一 人 台 打 字 机 也 同样 缺乏 弹性 ， 那 是 你 学 会 了 如 何 去 使 用 
它们 之 前 。 


一 一 Marvin Minsky, “Ath WAR PPR ITF IRE BH KI FP RET , 
用 于 表述 理解 浮 浅 、 和 草率 而 就 的 思想 ” 


本 书 是 麻 省 理工 学 院 (MIT) 计算 机 科学 的 入 门 教材 。 在 MIT 主 修 电 子 工程 或 者 计算 机 科 
学 的 所 有 学 生 都 必须 学 这 门 课 ， 作 为 “公共 核心 课程 计划 ”的 四 分 之 一 。 这 里 还 包含 两 个 关 
于 电路 和 线性 系统 的 科目 ， 还 有 一 个 关于 数字 系统 设计 的 科目 。 我 们 从 1978 年 开始 涉足 这 些 
科目 的 开发 ， 从 1980 年 秋季 以 后 ， 我 们 就 一 直 按 照 现 在 这 种 形式 教授 这 个 课程 ， 每 年 600 到 
700 个 学 生 。 大 部 分 学 生 此 前 没有 或 者 很 少 有 计算 方面 的 正式 训练 ， 虽 然 许多 人 玩 过 计算 机 ， 
也 有 少数 人 有 许多 程序 设计 或 者 硬件 设计 的 经 验 。 

我 们 所 设计 的 这 门 计 算 机 科学 导 引 课程 反映 了 两 方面 的 主要 考虑 。 首 先 ， 我 们 希望 建立 
起 一 种 看 法 : 一 个 计算 机 语言 并 不 仅仅 是 让 计算 机 去 执行 操作 的 一 种 方式 ， 更 重要 的 ， 它 是 
一 种 表述 有 关 方 法 学 的 思想 的 新 颖 的 形式 化 媒介 。 因 此 ， 程 序 必须 写 得 能 够 供 人 们 阅读 ， 偶 
尔 地 去 供 计算 机 执行 。 其 次 ， 我 们 相信 ， 在 这 一 层次 的 课程 里 ， 景 基本 的 材料 并 不 是 特定 程 
序 设计 语言 的 语法 ， 不 是 有 效 计算 某 种 功能 的 巧妙 算法 ， 也 不 是 算法 的 数学 分 析 或 者 计算 的 
本 质 基础 ， 而 是 一 些 能 够 用 于 控制 大 型 软件 系统 的 智力 复杂 性 的 技术 。 

我 们 的 目标 是 ， 使 完成 了 这 一 科目 的 学 生 能 对 程序 设计 的 风格 要 素 和 审美 观 有 一 种 很 好 
的 感觉 。 他 们 应 该 掌握 了 控制 大 型 系统 中 的 复杂 性 的 主要 技术 。 他 们 应 该 能 够 去 读 50 页 长 的 
程序 ， 只 要 该 程序 是 以 一 种 值得 模仿 的 形式 写 出 来 的 。 他 们 应 该 知道 在 什么 时 候 哪 些 东西 不 
需要 去 读 ， 哪 些 东 西 不 需要 去 理解 。 他 们 应 该 很 有 把 握 地 去 修改 一 个 程序 ， 同 时 又 能 保持 原 
来 作者 的 精神 和 风格 。 

这 些 技能 并 不 仅仅 适用 于 计算 机 程序 设计 。 我 们 所 教授 和 提炼 出 来 的 这 些 技术 ， 对 于 所 
有 的 工程 设计 都 是 通用 的 。 我 们 在 适当 的 时 候 隐 藏 起 一 些 细节 ， 通 过 创建 抽象 去 控制 复杂 性 。 
我 们 通过 建立 约定 的 界面 ， 以 便 能 以 一 种 “混合 与 匹配 ”的 方式 组 合 起 一 些 标准 的 、 已 经 很 
好 理解 的 片段 ， 去 控制 复杂 性 。 我 们 通过 建立 一 些 新 的 语言 去 描述 各 种 设计 ， 每 种 语言 强调 
设计 中 的 一 个 特定 方面 并 降低 其 他 方面 的 重要 性 ， 以 控制 复杂 性 。 

设计 这 门 课程 的 基础 是 我 们 的 一 种 信念 , “计算 机 科学 ”并 不 是 一 种 科学 ， 而 且 其 重要 性 
也 与 计算 机 本 身 并 无 太 大 关系 。 计 算 机 革命 是 有 关 我 们 如 何 去 思 考 的 方式 ， 以 及 我 们 如 何 去 
表达 自己 的 思考 的 一 个 革命 。 在 这 个 变化 里 最 基本 的 东西 ， 就 是 出 现 了 这 样 一 种 或 许 最 好 是 
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称 为 过 程 性 认识 论 的 现象 一 一 这 就 是 如 何 从 一 种 命令 式 的 观点 去 研究 知识 的 结构 ， 这 一 观点 
是 与 经 典 数学 领域 中 所 采用 的 更 具 说 明 性 的 观点 完全 不 同 的 。 数 学 为 精确 处 理 “ 是 什么 ” 提 
供 了 一 种 框架 ， 而 计算 则 为 精确 处 理 “ 怎 样 做 ”的 概念 提供 了 一 种 框架 。 

在 教授 这 里 的 材料 时 ， 我 们 来 用 的 是 Lisp 语 言 的 一 种 方言 。 我 们 绝 没 有 形式 化 地 教授 这 
一 语言 ， 因 为 完全 不 必 那 样 做 。 我 们 只 是 使 用 它 ， 学 生 可 以 在 几 天 之 内 就 学 会 它 。 这 也 是 类 
Lisp 语 言 的 重要 优点 : 它们 只 有 不 多 几 种 构造 复合 表达 式 的 方式 ， 几 乎 没有 语法 结构 。 所 有 
的 形式 化 性 质 都 可 以 在 一 个 小 时 里 讲 完 ， 就 像 下 象棋 的 规则 似 的 。 在 很 短 时 间 之 后 ， 我 们 就 
可 以 不 再 去 管 语言 的 语法 细节 ( 因为 这 里 根本 就 没有 )， 而 进入 真正 的 问题 一 一 大 清楚 我 们 需 
要 去 计算 什么 ， 怎 样 将 问题 分 解 为 一 组 可 以 控制 的 部 分 ， 如 何 对 这 样 的 部 分 开展 工作 。Lisp 
的 另 一 优势 在 于 ， 与 我 们 所 知 的 任何 其 他 语言 相 比 ， 它 可 以 支持 (但 并 不 是 强制 性 的 ) 更 多 
的 能 用 于 以 模块 化 的 方式 分 解 程序 的 大 规模 策略 。 我 们 可 以 做 过 程 性 抽象 和 数据 抽象 ， 可 以 
通过 高 阶 函数 抓 住 公共 的 使 用 模式 ， 可 以 用 赋值 和 数据 操作 去 模拟 局 部 状态 ， 可 以 利用 流 和 
延 时 求 值 连接 起 一 个 程序 里 的 各 个 部 分 ， 可 以 很 容易 地 实现 姐 入 性 语言 。 所 有 这 些 都 融合 在 
一 个 交互 式 的 环境 里 ， 带 有 对 递增 式 程序 设计 、 构 造 、 测 试 和 排除 错误 的 绝 佳 支 持 功能 。 我 
们 要 感谢 一 代 又 一 代 的 Lisp 大 师 ， 从 John McCarthy 开 始 ， 是 他 们 铸造 起 了 这 样 一 个 具有 空前 
威力 的 如 此 优美 的 好 工具 。 

作为 我 们 所 用 的 Lisp 方 言 ，Scheme 试 图 将 Lisp 和 Algol 的 威力 和 优雅 集成 到 一 起 。 我 们 从 
Lisp 那 里 取 来 了 元 语言 的 威力 ， 它 来 自 简单 的 语法 形式 ， 程 序 与 数据 对 和 象 的 统一 表示 ， 以 及 
带 有 废料 收集 的 堆 分 配 数 据 。 我 们 从 Algol 那 里 取 来 了 词法 作用 域 和 块 结构 ， 这 是 当年 参加 
Algol 委 员 会 的 那些 程序 设计 语言 先驱 者 们 的 礼物 。 我 们 想 特 别提 出 John Reynolds 和 Peter 
Landin ， 为 了 他 们 对 丘 奇 的 lambda 演算 与 程序 设计 语言 的 结构 之 间 关 系 的 真知 灼 见 。 我 们 也 
认识 到 应 该 感谢 那些 数学 家 们 ， 他 们 在 计算 机 出 现 之 前 ， 就 已 经 在 这 一 领域 中 探索 了 许多 年 。 
这 些 先 驱 者 包括 丘 奇 (Alonzo Church ) 、 罗 塞 尔 (Barkley Rosser ) 、 克 里 尼 (Stephen Kleene ) 
和 库 里 (Haskell Curry ) 。 





致谢 

我 们 希望 感谢 许多 在 这 本 书 和 这 一 教学 计划 的 开发 中 帮助 过 我 们 的 人 们 。 

可 以 把 这 门 课 看 做 是 课程 “6.231” 的 后 继 者 。 “6.231” 是 20 世 纪 60 年 代 后 期 由 Jack 
Wozencraft 和 Arthur Evans, Jr. 在 MIT 教 授 的 有 关 程 序 设 计 语言 学 和 lambda 演 算 的 一 门 美妙 课程 。 

我 们 由 Robert Fano 那 里 受 惠 恨 多 。 是 他 组 织 了 MII 电子 工程 和 计算 机 科学 的 教学 计划 ， 
强调 工程 设计 的 原理 。 他 领 着 我 们 开始 了 这 一 事业 ， 并 为 此 写 出 了 第 一 批 问题 注 记 。 本 书 就 
是 从 那里 演化 出 来 的 。 | 

我 们 试图 去 教授 的 大 部 分 程序 设计 风格 和 艺术 都 是 与 Guy Lewis Steele 工 .一 起 开发 的 ， 他 
与 Gerald Jay Sussman 在 Scheme 语 言 的 初始 开发 阶段 合作 工作 。 此 外 ， David Turner 、Peter 
Henderson 、Dan Friedman, David Wise 和 Wil Clinger 也 教 给 我 们 许多 函数 式 程序 设计 社团 所 
掌握 的 技术 ， 它 们 出 现在 本 书 的 许多 地 方 。 

Joel Moses 教 我 们 如 何 考虑 大 型 系统 的 构造 。 他 在 Macsyma 符 号 计算 系统 上 的 经 验 中 得 到 
的 真知 灼 见 是 ， 应 该 避免 控制 中 的 复杂 性 ， 将 精力 集中 到 数据 的 组 织 上 ， 以 反 映 所 模拟 世 神 
里 的 真实 结构 。 

这 里 的 许多 有关 程序 设计 及 其 在 我 们 的 智力 活动 中 位 置 的 认识 是 Marvin Minsky 和 
Seymour Papert 提 出 的 。 从 他 们 那里 我 们 理解 了 , 计算 是 一 种 探索 各 种 思想 的 表达 方式 的 手段 ， 
如 果 不 这 样 做 ， 这些 思想 将 会 因为 太 复杂 而 无 法 精确 地 处 理 。 他 们 更 强调 说 ， 学 生 编 写 和 修 
改 程序 的 能 力 可 以 成 为 一 种 威力 强大 的 工具 ， 使 这 种 探索 变 成 一 种 自然 的 活动 。 

我 们 也 完全 同意 Alan Perlis 的 看 法 ， 程 序 设计 有 着 许多 乐趣 ， 我 们 应 该 认真 地 支持 程序 设 
计 的 趣味 性 。 这 种 趣味 性 部 分 来 源 于 观 看 大 师 们 的 工 作 。 我 们 非常 幸运 曾经 在 Bill Gosper 和 
Richard Greenblatt 手 下 学 习 程 序 设 it. 

很 难 列 出 所 有 曾 对 这 一 教学 计划 的 开发 做 出 过 贡献 的 人 们 。 我 们 圳 心 感谢 在 过 去 15 年 里 与 
我 们 一 起 工作 过 ， 并 在 此 科目 上 付出 时 间 和 心血 的 所 有 教师 、 答 疑 老 师 和 辅导 员 们 ， 特 别 征 
Bill Siebert, Albert Meyer, Joe Stoy, Randy Davis, Louis Braida, Eric Grimson, Rod Brooks 、 
Lynn Stein 和 Peter Szolovits 。 我 们 想 特 别 向 Franklyn Turbak (现在 在 Wellesley ) 在 教学 上 的 特 
殊 贡 献 表 示 谢 意 ， 他 在 本 科 生 指导 方面 的 工作 为 我 们 的 努力 设 定 了 一 个 标准 。 我 们 还 要 感谢 
Jerry Saltzer 和 Jim Miller 帮 助 我 们 克服 并 发 性 中 的 难点 ，Peter Szolovits 和 David McAllester 对 于 

第 4 章 里 非 确 定性 求 值 讨论 的 页 献 。 

许多 人 在 他 们 自己 的 大 学 里 讲授 本 书 时 付出 了 极 大 努力 ， 其 中 与 我 们 密切 合作 的 有 Technion 
的 Jacob Katzenelson, Irvine 加 州 大 学 的 Hardy Mayer, ABA Joe Stoy 、 普 度 大 学 的 Elisha 
Sacks 以 及 挪威 科技 大 学 的 Jan Komorowski。 我 们 特别 为 那些 在 其 他 大 学 改制 这 一 课程 ， 并 由 
此 获得 重要 教学 奖 的 同行 们 感到 骄傲 ， 包 括 耶 鲁 大 学 的 Kenneth Yip、 加 州 大 学 伯克利 分 校 的 
Brian Harvey 和 康 力 尔 大 学 的 Dan Huttenlocher , 

Al Moyé 安 排 我 们 到 惠普 公司 为 工程 师 教授 这 一 课程 ， 并 为 这 些 课程 制作 了 录像 市 。 我 们 
感谢 有 那些 才干 的 教师 一 一 特别 是 Jim Miller, Bill Siebert 和 Mike Eisenberg 一 一 他 们 设计 了 结 
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合 这些 录 像 带 的 继续 教育 课程， 并 在 全 世界 的 许多 大 学 和 企业 讲授 。 

其 他 国家 的 许多 教育 工作 者 也 在 翻译 本 书 的 第 1 版 方面 做 了 许多 工作 。Michel Briand, 
Pierre Chamard 和 André Pic 做 出 了 法 文 版 ，Susanne Danlels-Herold 做 了 德 文 版 ，Fumio Motoyoshi 
做 了 日 文 版 。 

要 列举 出 所 有 为 我 们 用 于 教学 的 Scheme 系统 做 出 过 贡献 的 人 是 非常 困难 的 。 除 了 Guy 
Steele 之 外 ， 主 要 的 专家 还 包括 Chris Hanson, Joe Bowbeer. Jim Miller, Guillermo Rozas #7 
Stephen Adams。 在 这 项 工作 中 付出 许多 时 间 的 还 有 Richard Stallman, Alan Bawden, Kent 
Pitman Jon Taft, Neil Mayle 、John Lamping, Gwyn Osnos, Tracy Larrabee 、George Carrette 、 
Soma Chaudhuri, Bill Chiarchiaro, Steven Kirsch, Leigh Klotz, Wayne Noss, Todd Cass, 
Patrick O'Donnell, Kevin Theobald, Daniel Weise, Kenneth Sinclair, Anthony Courtemanche 、 
Henry M. Wu, Andrew Berlin #pRuth Shyu 。 

除了 MIT 实 现 之 外 ， 我 们 还 应 该 感谢 那些 在 IEEE Scheme 标准 方面 工 作 的 大 们 ， 包 括 
William Clinger 和 Jonathan Rees ， 他 们 编写 了 RiRS， 以 及 Chris Haynes, David Bartley, Chris 
Hanson im Miller， 他 们 撰写 了 IEEE 标 准 。 

Dan Friedman 多 年 以 来 一 直 是 Scheme 社团 的 领袖 。 这 一 社团 的 工作 范围 已 经 从 语言 设计 
问题 ， 扩 展 到 围绕 着 重要 的 教育 创新 问题 ， 例 如 基于 Schemer's Inc. 的 EdScheme 的 高 中 教学 
计划 ， 以 及 由 Mike Eisenberg 和 由 Brian Harvey 和 Matthew Wright 撰写 的 绝妙 著作 。 

我 们 还 要 感谢 那些 为 本 教材 的 成 书 做 出 贡献 的 人 们 ， 特 别 是 MIT 出 版 社 的 Terry Ehling | 
Larry Cohen 和 Paul Bethge, Ella Mazel 为 本 书 找到 了 最 美妙 的 封面 图 画 。 对 于 第 2 版 ， 我 们 要 
特别 感谢 Bernard 和 Ella Mazel 对 本 书 设计 的 帮助 ， 以 及 David Jones 作 为 TEX 专 家 的 非 几 能 力 。 
RN RE RAT MRS, Nie TBR TRAE: Jacob Katzenelson, 
Hardy Mayer, Jim Miller, #9! {Brian Harvey， 他 对 于 本 书 所 做 的 也 就 像 Julie 对 于 Harvey 的 
著作 Simply Scheme 所 做 的 那样 。 

最 后 我 们 还 想 对 资助 组 织 表示 感谢 ， 它 们 多 年 来 一 直 支 持 这 项 工作 的 进行 。 包 括 来 目 惠 
普 公 司 的 支持 (lra Goldstein 和 Joel Birmbaum 促 成 )， 还 有 来 自 DARPA 的 支持 (得 到 了 Bob 


Kahn 的 帮助 )。 
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第 1 章 构造 过 程 抽象 


L 的 活动 ， 除 了 尽力 产生 各 种 简单 的 认识 之 外 ， 主 要 表现 在 如 下 三 个 方面 : 1) 
将 若干 简单 认识 组 合 为 一 个 复合 认识 ， 由 此 产生 出 各 种 复杂 的 认识 。2 ) 将 两 个 认识 
放 在 一 起 对 照 ， 不 管 它 们 如 何 简 单 或 者 复杂 ， 在 这 样 做 时 并 不 将 它们 合 而 为 一 。 由 
此 得 到 有 关 它 们 的 相互 关系 的 认识 。3 ) 将 有 关 认 识 与 那些 在 实际 中 和 它们 同 在 的 所 
有 其 他 认识 隔 敲 开 ， 这 就 是 抽象 ， 所 有 具有 普 浪 性 的 认识 都 是 这 样 得 到 的 。 


John Locke， Ba Casag Concerning Ht? man Vadorstanding 
( 有 关 人 类 理解 的 随笔 ，1690 ) 


我 们 准备 学 习 的 是 有 关 计 算 过 程 的 知识 。 计 算 过 程 是 存在 于 计算 机 里 的 一 类 抽象 事物 ， 
在 其 演化 进程 中 ， 这 些 过 程 会 去 操作 一 些 被 称 为 数据 的 抽象 事物 。 人 们 创建 出 一 些 称 为 程序 
的 规则 模式 ， 以 指导 这 类 过 程 的 进行 。 从 作用 上 看 ， 就 像 是 我 们 在 通过 目 己 的 写作 魔力 去 控 
制 计算 机 里 的 精灵 似 的 。 

一 个 计算 过 程 确 实 很 像 一 种 神灵 的 巫 术 ， 它 看 不 见 也 摸 不 到 ， 根 本 就 不 是 由 物质 组 成 的 。 
然而 它 却 又 是 非常 真实 的 ， 可 以 完成 某 些 智 力 性 的 工作 。 它 可 以 回答 提问 ， 可 以 通过 在 银行 
里 支付 现金 或 者 在 工厂 里 操纵 机 器 人 等 等 方式 影响 这 个 世界 。 我 们 用 于 指挥 这 种 过 程 的 程序 
REER MERE, 它们 是 用 一 些 诡秘 而 深奥 的 程序 设计 语言 ， 通 过 符号 表达 式 的 形式 精心 
编排 而 成 ， 它 们 描述 了 我 们 希望 相应 的 计算 过 程 去 完成 的 工作 。 

在 正常 工作 的 计算 机 里 ， 一 个 计算 过 程 将 精密 而 准确 地 执行 相应 的 程序 。 这 样 ， 初 学 程 
序 设计 的 人 们 就 像 巫 师 的 徒弟 们 那样 ， 必 须 学 习 如 何 去 理 解 和 预期 他 们 所 发 出 的 于 语 的 效果 。 
程序 里 即使 有 一 点 小 错误 (常常 被 称 为 程序 错误 (bug) 或 者 故障 (glitch))， 也 可 能 产生 复 
条 而 无 法 预料 的 后 果 。 

幸运 的 是 ， 学 习 秩序 的 危险 性 远 远 小 于 学 习 巫 术 ， 因 为 我 们 要 去 控制 的 神灵 以 “种 很 安 
全 的 方式 被 约束 着 。 而 真实 的 程序 设计 则 需要 极度 细心 ， 需 要 经 验 和 智慧 。 例 如 ， 在 一 个 计 
算 机 辅助 设计 系统 里 的 一 点 小 毛病 ， 就 可 能 导致 一 架 飞 机 或 者 一 座 水 坝 的 灾难 性 损毁 ， 或 者 
一 个 工业 机 器 人 的 自我 破坏 。 

软件 工程 大 师 们 能 组 织 好 自己 的 程序 ， 使 自己 能 合理 地 确信 这 些 程序 所 产生 的 计算 过 程 
将 能 完成 预期 的 工作 。 他 们 可 以 事先 看 到 自己 系统 的 行为 方式 ， 知 道 如 何 去 构 造 这 些 程序 ， 
使 其 中 出 现 的 意外 问题 不 会 导致 灾难 性 的 后 果 。 而 且 ， 在 发 生 了 这 种 问题 时 ， 他 们 也 能 排除 
程序 中 的 错误 。 设 计 良 好 的 计算 系统 就 像 设计 良好 的 汽车 或 者 核反应 堆 一 样 ， 具 有 某 种 模块 
FEAR RRNA TAB IRE, E, ERR 


用 Lisp 编 程 
为 了 描述 这 类 计算 过 程 ， 我 们 需要 有 一 种 适用 的 语言 。 我 们 将 为 此 使 用 程序 设计 语言 
Lisp 。 正 如 人 们 每 天 用 自然 语言 (如 英语 、 法 语 或 日 语 等 ) 表述 自己 的 想 靶 ， 用 数学 形式 的 





.2 HF helak 


记 法 描述 定量 的 现象 一 样 ， 我 们 将 要 用 Lisp 表 述 过 程 性 的 思想 。Lisp 是 20 世 纪 50 年 代 后 期 发 明 
的 一 种 记 法 形式 ， 是 为 了 能 对 某 种 特定 形式 的 逻辑 表达 式 ( 称 为 递归 方程 ) 的 使 用 做 推理 。 
递归 方程 可 以 作为 计算 的 模型 。 这 一 语言 是 由 John McCarthy 设 计 的 ， 基 于 他 的 论文 
“Recursive Functions of Symbolic Expressions and Their Computation by Machine ”( 符 号 表达 
式 的 递归 函数 及 其 机 械 计算 ,McCarthy 1960). 

虽然 在 开始 时 ，McCarthy 是 想 以 Lisp 作为 一 种 数学 记述 形式 ， 但 它 确 实 是 一 种 实用 的 程 
序 设计 语言 。 一 个 Lisp 解释 器 就 像 是 一 台 机 器 ， 它 能 实现 用 Lisp 语 言 描 述 的 计算 过 程 。 第 一 个 
Lisp 解 释 器 是 McCarthy 在 MIT 电 子 研 究 实验 室 的 人 工 智 能 组 和 MII 计 算 中 心里 他 的 同事 和 学 生 
的 帮助 下 实现 的 !:。Lisp 的 名 字 来 自 表 处 理 (LISt Processing) ， 其 设计 是 为 了 提供 符号 计算 的 
能 力 ， 以 便 能 用 于 解决 一 些 程序 设计 问题 ， 例 如 代数 表达 式 的 符号 微分 和 积分 。 它 包含 了 迅 
用 于 这 类 目的 的 一 些 新 数据 对 象 ， 称 为 原子 和 表 ， 这 是 它 与 那 一 时 代 的 所 有 其 他 语言 之 间 最 
明显 的 不 同 之 处 。 

Lisp 并 不 是 一 个 刻意 的 设计 努力 的 结果 ， 它 以 一 种 试验 性 的 非 正式 的 方式 不 断 演 化 ， 以 
满足 用 户 的 需要 和 实际 实现 的 各 种 考虑 。Lisp 的 这 种 非 官方 演化 持续 了 许多 年 ，Lisp 用 忆 社 团 
具有 抵制 制定 这 一 语言 的 “官方 ”定义 企图 的 传统 。 这 种 演化 方式 以 及 语言 初始 概念 的 灵活 
和 优美 ， 使 得 Lisp 成 为 今天 还 在 广泛 使 用 的 历史 第 二 悠久 的 语言 (只 有 Fortran 比 它 更 老 ) 。 这 
一 语言 还 在 不 断 调 整 ， 以 便 去 包容 有 关 程 序 设 计 的 最 新 思想 。 正 因为 这 样 ， 今 天 的 Lisp 已 经 
形成 了 一 族 方言 ， 它 们 共享 着 初始 语言 的 大 部 分 特征 ， 也 可 能 有 这 样 或 那样 的 重要 差异 。 用 
于 本 书 的 Lisp 方 言 名 为 Scheme , 

由 于 Lisp 的 试验 性 质 以 及 强调 符号 操作 的 特点 ， 开 始 时 的 这 个 语言 对 于 数值 计算 而 言 是 
很 低 效 的 ， 至 少 与 Fortran 比较 时 是 这 样 。 经 过 这 么 多 年 的 发 展 ， 人 们 已 经 开发 出 了 Lisp 编译 
器 ， 它 们 可 以 将 程序 翻译 为 机 器 代码 ， 这 样 的 代码 能 相当 高 效 地 完成 各 种 数值 计算 。Lisp 已 
经 可 以 非常 有 效 地 用 于 一 些 特殊 的 应 用 领域 。 虽 然 Lisp 还 没有 完全 战胜 有 关 它 特别 低 效 的 
级， 但 它 现在 已 被 用 于 许多 性 能 并 不 是 最 重要 考虑 因素 的 应 用 领域 。 例 如 ，Lisp 已 经 成 为 操 
作 系 统 外 壳 语 言 的 一 种 选择 ， 作 为 编辑 器 和 计算 机 辅助 设计 系统 的 扩充 语言 等 等 。 

既然 Lisp 并 不 是 一 种 主流 语言 ， 我 们 为 什么 要 用 它 作为 讨论 程序 设计 的 基础 呢 ? 这 是 因 
为 ， 这 一 语言 具有 许多 独 有 的 特征 ， 这 些 特征 使 它 成 为 研究 重要 程序 的 设计 、 构 造 ， 以 及 各 
种 数据 结构 ， 并 将 其 关联 于 支持 它们 的 语言 特征 的 一 种 极 佳 媒介 。 这 些 特 征 之 中 最 重要 的 就 


| Lisp 1 Programmer's Manual 在 1960 年 发 表 ,，Lisp 1.5 Programmer’s Manual (McCarthy 1965) 在 1962 年 发 表 。 
有 关 Lisp 的 早期 历史 见 McCarthy 1978 , 加 “ 

2 在 20 世 纪 70 年 代 ， 最 主要 的 两 个 Lisp 方 言 是 MIT 的 MAC 项 目 中 开发 的 MacLisp (Moon 1978; Pitman 1983 ) ， 以 
及 在 Bolt Beranek and Newman Inc. 和 Xerox Palo Alto Research Center 开 发 的 Interlisp (Teitelman 1974 )， 那 时 
主要 的 Lisp 程 序 都 是 用 它们 写 的 Portable Standard Lisp (Hearn 1969; Griss 1981) 是 另 一 种 Lisp 方 言 ， 其 设计 
就 是 为 能 更 容易 地 移植 到 不 同 的 计算 机 上 。MacLisp 又 发 展 出 一 些 子 方言 ， 例 如 加 州 大 学 伯克利 分 校 开 发 的 
Franz Lisp ， 还 有 ZetaLisp (Moon 1981) ， 它 基于 MIT 人 工 智 能 实验 室 设 计 的 一 种 专用 处 理 器 ， 这 一 处 理 器 可 以 
非常 高 效 地 运行 Lisp 。 本 书 所 用 的 Lisp 方 言 称 为 Scheme (Steele 1975) ， 是 1975 年 由 MIT 人 工 智 能 实验 室 的 euy 
Lewis Steele Jr. 和 Gerald Jay Sussman 设计 的 ， 后 来 在 MIT 为 了 教学 使 用 而 重新 实现 。 在 1990 年 Scheme 变 成 了 
IEEE 标 准 (IEEE 1990), Common Lisp 方 言 (Steele 1982, Steele 1990) 是 由 Lisp 社团 综合 了 早 前 各 种 Lisp 方 言 
的 特征 而 开发 出 来 的 ， 希 望 能 做 成 Lisp 的 工业 标准 。Common Lisp 在 1994 年 成 为 AN5 [标准 (ANSI 1994), 

; 这 方面 有 一 个 应 用 是 科学 计算 的 重要 突破 一 -有 关 太 阳 系 统 运动 的 整合 ， 它 将 以 前 的 结果 提高 了 两 个 数量 级 ， 
并 显示 出 太阳 系统 动力 学 的 混 池 性 。 完 成 这 一 计算 依靠 了 一 种 新 的 整合 算法 、 一 个 特殊 的 编译 器 以 及 一 台 专 用 
计算 机 ， 所 有 这 些 都 是 在 用 Lisp 写 的 软件 工具 的 帮助 下 实现 的 (Abelson et al. 1992; Sussman 和 Wisdom 1992), 





是 : 计算 过 程 的 Lisp 描 述 ( 称 为 过 程 ) 本 身 又 可 以 作为 Lisp 的 数据 来 表示 和 操作 。 这 一 事实 的 
重要 性 在 于 ， 现 存 的 许多 威力 强大 的 程序 设计 技术 ， 都 依赖 于 填 平 在 “被 动 的 ”数据 和 “ 主 
动 的 ”过 程 之 间 的 传统 划分 。 正 如 我 们 将 要 看 到 的 Lisp 可 以 将 过 程 作为 数据 进行 处 理 的 灵 
活性 ， 使 它 成 为 探索 这 些 技 术 的 最 方便 的 现存 语言 乙 一 。 能 将 过 程 表示 为 数据 的 能 力 ， 也 使 
Lisp 成 为 编写 那些 必须 将 其 他 程序 当 作 数据 去 操作 的 程序 的 最 佳 语言 ， 例 如 支持 计算 机 语言 
的 解释 器 和 编译 器 。 除 了 这 些 考虑 之 外 ， 用 Elisp 编程 本 身 也 是 极其 有 趣 的 。 


1.1 程序 设计 的 基本 元 素 


一 个 强 有 力 的 程序 设计 语言 ， 不 仅 是 一 种 指挥 计算 机 执行 任务 的 方式 ， 它 还 应 该 成 为 一 
种 框架 ,使 我 们 能 够 在 其 中 组 织 自己 有 关 计 算 过 程 的 思想 。 这 样 ， 当 我 们 描述 一 个 语言 
就 需要 将 注意 力 特 别 放 在 这 一 语言 所 提供 的 ， 能 够 将 简单 的 认识 组 合 起 来 形成 更 复杂 认识 的 
方法 方面 。 每 一 种 强 有 力 的 语言 都 为 此 提供 了 三 种 机 制 : 

* 基本 表达 形式 ， 用 于 表示 语言 所 关心 的 最 简单 的 个 体 。 

* 组 合 的 方法 ， 通 过 它们 可 以 从 较 简单 的 东西 出 发 构造 出 复合 的 元 素 。 

* 抽象 的 方法 ， 通 过 它们 可 以 为 复合 对 象 命名 ， 并 将 它们 当 作 单元 去 操作 。 

在 程序 设计 中 ， 我 们 需要 处 理 两 类 要 素 ， 过 程 和 数据 (以 后 读者 将 会 发 现 ， 它 们 实际 上 
并 不 是 这 样 严 格 分 离 的 ) 。 非 形式 地 说 ， 数 据 是 一 种 我 们 希望 去 操作 的 “东西 >， 而 过 程 就 是 
有 关 操作 这 些 数据 的 规则 的 描述 。 这 样 ， 任 何 强 有 力 的 程序 设计 语言 都 必须 能 表述 基本 的 数 
据 和 基本 的 过 程 ， 还 需要 提供 对 过 程 和 数据 进行 组 合 和 抽象 的 方法 。 

本 章 只 处 理 简单 的 数值 数据 ， 这 就 使 我 们 可 以 把 注意 力 集中 到 过 程 构造 的 规则 方面 '。 在 
随后 几 章 里 我 们 将 会 看 到 ， 用 于 构造 过 程 的 这 些 规则 同样 也 可 以 用 于 操作 各 种 数据 。 


1.1.1 KZA 


开始 做 程序 设计 ， 最 简单 方式 就 是 去 观看 一 些 与 Lisp 方 言 Sscheme 解 释 器 交互 的 典型 实例 。 
BAR MRE GH MALA, MAMAT NAER, MR RAE EDE 
表达 式 的 求 值 结果 显示 出 来 。 

你 可 以 键入 的 一 种 基本 表达 式 就 是 数 (更 准确 地 说 ， 你 键入 的 是 由 数字 组 成 的 表达 式 ， 


它 表示 的 是 以 10 作 为 基数 的 数 )。 如 果 你 给 Lisp 一 个 数 


486 


解释 器 的 响应 是 打印 出 * 


4 将 数值 作为 “简单 数据 ”看 待 实际 上 完全 是 一 种 虚 张 声势 。 事 实 上 ， 对 于 数值 的 处 理 是 任何 程序 设计 语言 里 
最 错综复杂 而 且 也 最 迷惑 人 的 事项 之 一 ， 其 中 涉及 的 典型 问题 包括 某 些 计算 机 系统 区 分 了 整数 《例如 2) 和 
实数 (例如 2.71) 。 那 么 实数 2.00 和 整数 2 不 同 吗 ? 用 干 整数 的 算术 运算 是 否 与 用 于 实数 的 运算 相同 呢 ? 用 6 除 
以 2 的 结果 是 3 还 是 3.0? 我 们 可 以 表示 的 最 大 的 数 是 多 少 ? 最 多 能 表示 的 精度 包含 了 多 少 个 十 进 制 位 ? 整数 的 
表示 范围 与 实数 一 样 吗 ? 显然 ， 上 述 这 些 问 题 以 及 许多 其 他 问题 ， 都 会 带 来 有 关 伟人 和 截断 误差 的 一 系列 问 
题 一 -这 就 是 数值 分 析 的 整个 科学 领域 。 因 为 我 们 在 本 书 中 主要 关心 的 是 大 规模 程序 的 设计 , 而 不 是 数值 技术 ， 
因此 将 忽略 对 这 些 问 题 的 讨论 。 本 章 中 有 关 数 值 的 实例 将 没有 常规 的 伟人 动作 ， 而 如 果 对 非 整 数 使 用 具有 有 
限 的 十 进 制 位 数 精度 的 算术 运算 ， 就 会 看 到 这 方面 的 情况 。 

; 在 这 本 书 里 的 任何 地 方 ， 当 我 们 希望 强调 用 户 键 人 的 输入 和 解释 器 的 响应 之 间 的 差异 时 ， 就 时 斜体 的 形式 显 


示 后 者 。 





4 eee bE 


486 , | 
可 以 用 表示 基本 过 程 的 表达 形式 (例如 + 或 者 *) ， 将 表示 数 的 表达 式 组 合 起 来 ， 形 成 复 
合 表达 式 ， 以 表示 求 要 把 有 关 过 程 应 用 于 这 些 数 。 例 如 : 

(+ 137 349) 

486 

(-~ 1000 334) @ 

666 

(* 5 99) 

495 


(/ 10 5) 
2 


(+ 2.7 10) 
12.7 


像 上 面 这 样 的 表达 式 称 为 组 合式 ， 其 构成 方式 就 是 用 一 对 括号 括 起 一 些 表达 式 ， 形 成 一 
个 表 ， 用 于 表示 一 个 过 程 应 用 。 在 表 里 最 左 的 元 素 称 为 运算 伸 ， 其 他 元 素 都 称 为 运算 对 象 。 
要 得 到 这 种 组 合式 的 值 ， 采 用 的 方式 就 是 将 由 运算 符 所 刻画 的 过 程 应 用 于 有 关 的 实际 参数 ， 
而 所 谓 实际 参数 也 就 是 那些 运算 对 象 的 值 。 

将 运算 符 放 在 所 有 运算 对 象 左边 ， 这 种 形式 称 为 前 级 表示 。 刚 开始 看 到 这 种 表示 时 会 感 
到 有 些 不 习惯 ， 因 为 它 与 常规 数学 表示 差别 很 大 。 然 而 前 组 表示 也 有 一 些 优点 ， 其 中 之 一 就 
是 它 完全 适用 于 可 能 带 有 任意 个 实 参 的 过 程 ， 例 如 在 下 面 实 例 中 的 情况 : 

(+ 21 35 12 7) 

75 


(* 25 4 12) 
1200 


在 这 里 不 会 出 现 歧义 ， 因 为 运算 符 总 是 最 左边 的 元 素 ， 而 整个 表达 式 的 范围 也 由 括号 界定 。 
前 组 表示 的 第 二 个 优点 是 它 可 以 直接 扩充 ， 允 许 出 现 组 合式 类 套 的 情况 ， 也 就 是 说 ， 人 多 
许 组 合式 的 元 素 本 身 又 是 组 合式 : 
(+ (* 3 5) (- 10 6)) 
19 


EUWEH, eb Pike PRR EAD RE, WA Lisp kl ÆA ALA RAR A ATE, ， 都 
没有 任何 限制 。 倒 是 我 们 自己 有 可 能 被 一 些 并 不 很 复杂 的 表达 式 搞 糊涂 ， 例 如 ， 
(+ (#3 (+ (*2 4) (+35))) (+ (- 10 7) 6)) 


对 于 这 个 表达 式 ， 解 释 器 可 以 马上 求 值 出 57。 将 上 述 表 达 式 写成 下 面 的 形式 有 助 于 阅读 ;: 


(+ (* 3 
(+ (* 2 4) 
(+ 3 5)}) 
(+ (- 10 7) 


6)) 
这 就 是 遵循 一 种 称 为 美观 打印 的 格式 规则 。 按 照 这 种 规则 ， 在 写 一 个 很 长 的 组 合式 时 ， 我 们 
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令 其 中 的 各 个 运算 对 象 垂直 对 齐 。 这 样 缩 格 排列 的 结果 能 很 好 地 显示 出 表达 式 的 结构 5。 

即使 对 于 非常 复杂 的 表达 式 ， 解 释 器 也 总 是 按 同样 的 基本 循环 运作 : 从 终端 读 入 一 个 表 
ER, ， 对 这 个 表达 式 求 值 ， 而 后 打印 出 得 到 的 结果 。 这 种 运作 模式 常常 被 人 们 说 成 是 解释 器 
运行 在 一 个 读 入 一 求 值 - 打印 循环 之 中 。 请 特别 注意 ， 在 这 里 完全 没有 必要 显 式 地 去 要 求解 
释 器 打印 表达 式 的 值 7。 


1.1.2 命名 和 环境 


程序 设计 语言 中 一 个 必 不 可 少 的 方面 ， 就 是 它 需要 提供 一 种 通过 名 字 去 使 用 计算 对 象 的 
方式 。 我 们 将 名字 标识 符 称 为 变量 ， 它 的 值 也 就 是 它 所 对 应 的 那个 对 象 。 

在 Lisp 方 言 Scheme 里 ， 给 事物 命名 通过 define (X) 的 方式 完成 ， 输 入 : 

(define size 2) 
会 导致 解释 器 将 值 2 与 名 字 size 相 关联 :。 一 旦 名 字 size 与 2 关联 之 后 ， 我 们 就 可 以 通过 这 个 
名 字 去 引用 值 2 了 : 

size 

2 

(* 5 size) 

10 

下 面 是 另外 几 个 使 用 aefine 的 例子 : 

(define pi 3.14159) 

(define radius 10) 

(* pi (* radius radius) ) 

314.159. 

(define circumference (* 2 pi radius)) .， 


circumference 
62.8318 


define 是 我 们 所 用 的 语言 里 最 简单 的 抽象 方法 ， 它 允许 我 们 用 一 个 简单 的 名 字 去 引用 一 
个 组 合 运算 的 结集 ， 例如 上 面 算出 的 cizcumference。 一 般 而 言 ， 计算 得 到 的 对 象 完 全 可 
以 具有 非常 复杂 的 结构 ， 如 果 每 次 需要 使 用 它们 时 ， 都 必须 记 住 并 重复 地 写 出 它们 的 细节 ， 
那 将 是 极端 不 方便 的 事情 。 实 际 上 ， 构 得 一 个 复杂 的 程序 ， 也 就 是 为 了 去 一 步 步 地 创建 出 越 
Ha s 的 计算 性 对 象 。 解释 器 使 这 种 逐步 的 程序 构造 过 程 变 得 非常 方便 ， 因 为 我 们 可 以 通 

一 系列 交互 式 动作 ， 逐 步 创建 起 所 需要 的 名 字 - 对 象 关 联 。 这 种 特征 鼓励 人 们 采用 递增 的 
RIF eR MAR. 在 很 大 程度 上 ， 这 一 情况 也 出 于 另 一 个 事实 ， 那 就 是 ， 一 个 Lisp 程 
序 通 常 总 是 由 一 大 批 相 对 简单 的 过 程 组 成 的 。 


5Lisp 系 统 通常 都 为 用 户 提供 了 一 些 对 表达 式 进行 格式 化 的 特征 。 其 中 包含 两 个 最 有 用 的 特征 ， 其 一 是 在 开始 一 
个 新 行 时 ， 自 动 缩 格 到 美观 打印 形式 的 准确 位 置 ， 另 一 特征 是 在 输入 右 括号 时 自动 加 亮 显示 与 之 对 应 的 左 括号 。 
7 Lisp 但 循 一 种 约定 ， 规 定 每 个 表达 式 都 有 一 个 值 。 这 一 约定 和 有 关 Lisp 是 一 个 低 效 语言 的 陈旧 说 法 一 起 ， 形 成 
了 Alan Perlis 的 妙语 (由 Oscar Wilde 释 义 ) :“Lisp 程 序 员 知道 所 有 东西 的 值 (value ,价值 )， 但 却 不 知道 任何 


东西 的 代价 (cost) 。 
s 本 书 中 将 不 给 出 解释 器 在 对 定义 求 值 时 的 响应 ， 因 为 这 依赖 于 具体 实现 。 








应 该 看 到 ， 我 们 可 以 将 值 与 符号 关联 ， 而 后 又 能 提取 出 这 些 值 ， 这 意味 着 解释 器 必须 维 
护 某 种 存储 能 力 ， 以 便 保 持 有 关 的 名 字 - 值 对 侦 的 轨迹 。 这 种 存储 被 称 为 环境 (更 精确 地 说 ， 
是 全 局 环境 ， 因 为 我 们 以 后 将 看 到 ， 在 一 个 计算 过 程 中 完全 可 能 涉及 若干 不 同 环境 ) “。 


1.1.3 组 合式 的 求 值 


本 章 的 一 个 目标 ， 就 是 要 把 与 过 程 性 思维 有 关 的 各 种 问题 隔离 出 来 。 现 在 让 我 们 考虑 组 
合式 的 求 值 问题 。 解 释 器 本 身 就 是 按照 下 面 过 程 工作 的 。 

。 要 求 值 一 个 组 合式 ， 做 下 面 的 事情 : 

1) 求 值 该 组 合式 的 各 个 子 表达 式 。 

2) 将 作为 最 左 子 表达 式 (运算 符 ) 的 值 的 那个 过 程 应 用 于 相应 的 实际 参数 ， 所 谓 实际 参 
数 也 就 是 其 他 子 表达 式 (运算 对 象 ) 的 值 。 

即使 是 一 条 这 样 简单 的 规则 ， 也 显示 出 计算 过 程 里 的 一 些 具有 普遍 性 的 重要 问题 。 首 先 ， 
由 上 面 的 第 一 步 可 以 看 到 ， 为 了 实现 对 一 个 组 合式 的 求 值 过 程 ， 我 们 必须 先 对 组 合式 里 的 每 
个 元 素 执行 同样 的 求 值 过 程 。 因 此 ， 在 性 质 上 ， 这 一 求 值 过 程 是 递归 的 ， 也 就 是 说 ， 它 在 自 
己 的 工作 步骤 中 ， 包 含 着 调用 这 个 规则 本 身 的 需要 "。 

在 这 里 应 该 特别 注意 ， 采 用 递归 的 思想 可 以 多 么 简洁 地 描述 深度 髓 套 的 情况 。 如 果 不 用 
递归 ， 我 们 就 需要 把 这 种 情况 看 成 相当 复杂 的 计算 过 十 程 。 例 如 ， 对 下 列表 达 式 求 值 : 

(* (+ 2 (* 4 6)) 

(+ 3 5 7)) 

需要 将 求 值 规则 应 用 于 4 个 不 同 的 组 合式 。 如 图 1-1 中 所 示 ， 我 们 可 以 采用 一 棵 树 的 形式 ， 用 
图 形 表 示 这 一 组 合式 的 求 值 过 程 ， 其 中 的 每 个 组 合式 用 一 个 带 分 支 的 结 点 表示 ， 由 它 发 出 的 
分 支 对 应 于 组 合式 里 的 运算 符 和 各 个 运算 对 象 。 终 端 结 点 〈 即 那些 不 再 发 出 分 支 的 结 点 ) 表 
示 的 是 运算 符 或 者 数值 。 以 树 的 观点 看 这 种 求 值 过 程 ， 可 以 设想 那些 运算 对 象 的 值 向 上 穿行 
从 终端 结 点 开始 ， 而 后 在 越 来 越 高 的 层次 中 组 合 起 来 。 一 般 而 言 ， 我 们 应 该 把 递归 看 做 一 种 
处 理 层 次 性 结构 的 〈 像 树 这 样 的 对 象 ) 极 强 有 力 的 技术 。 事 实 上 ,“ 值 向 上 穿行 ”形式 的 求 什 
形式 是 一 类 更 一 般 的 计算 过 程 的 一 个 例子 ， 这 种 计算 过 程 称 为 树 形 积 累 。 

进一步 的 观察 告诉 我 们 ， 反 复 地 应 用 第 一 个 步 又， 总 可 以 把 我 们 带 到 求 值 中 的 某 一 点 
在 这 里 遇 到 的 不 是 组 合式 而 是 基本 表达 式 ， 例 如 数 、 内 部 运算 符 或 者 其 他 名 字 。 处 理 这 些 基 
础 情况 的 方式 如 下 规定 : 

。 数 的 值 就 是 它们 所 表示 的 数值 。 

+ 内 部 运算 符 的 值 就 是 能 完成 相应 操作 的 机 器 指令 序列 。 ” ) 

。 其 他 名 字 的 值 就 是 在 环境 中 关联 二 这 一 名 字 的 那个 对 象 。 
我 们 可 以 将 第 二 种 规定 看 作 是 第 三 种 规定 的 特殊 情况 ， 为 此 只 需 将 像 + 和 * 一 类 的 运算 符 也 
包含 在 全 局 环境 里 ， 并 将 相应 的 指令 序列 作为 与 之 关联 的 “ 值 "。 对 于 初学 者 ， 应 该 指出 的 关 
键 一 点 是 ， 环 境 所 扮演 的 角色 就 是 用 于 确定 表达 式 中 各 个 符号 的 意义 。 在 如 [5P 这 梯 的 交互 


?第 3 章 将 说 明 ， 无 论 对 于 理解 解释 器 的 工作 ， 还 是 实现 解释 器 而 言 ， 环境 的 概念 都 是 至 关 重 要 的 。 

a RESET, 在 它 的 第 一 步 要 对 组 合式 的 最 左 元 素 求 值 ， 这 一 说 法 看 起 来 好 像 有 点 奇怪 ， 因 为 在 这 里 出 
现 的 只 是 + 和 * 一 类 的 运算 符 ， 它 们 表示 的 是 内 部 基本 过 程 ， 例 如 求 和 和 求 乘 积 。 后 面 将 看 到 这 一 规则 是 有 
用 的 ， 因 为 我 们 还 需要 处 理 那些 运算 符 部 分 也 是 组 合 表达 式 的 情况 。 
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图 1-1 树 形 表示 方法 ， 其 中 显示 了 每 个 子 表达 式 的 值 


式 语言 里 ， 如 果 没 有 关于 有 关 环 境 的 任何 信息 ， 那 么 说 例如 表达 式 (+ x 1) 的 值 是 毫 无 意 
义 的 ， 因 为 需要 有 环境 为 符号 x 提供 意义 (甚至 需要 它 为 符号 + 提供 意义 )。 正 如 我 们 将 要 在 
第 3 章 看 到 的 ， 环 境 是 具有 普遍 性 的 概念 ， 它 为 求 值 过 程 的 进行 提供 了 一 种 上 下 文 ， 对 于 我 们 
理解 程序 的 执行 起 着 极其 重要 的 作用 。 

请 注意 ， 上 面 给 出 的 求 值 规则 里 并 没有 处 理 定义 。 例 如 ， 对 (define x 3) 的 求 值 并 
不 是 将 define 应 用 于 它 的 两 个 实际 参数 :其 中 的 一 个 是 符号 x 的 值 ， 另 一 个 是 3。 这 是 因为 
define 的 作用 就 是 为 x 关联 一 个 值 (也 就 是 说 ，(define x 3) 并 不 是 一 个 组 合式 ) 。 

_ 般 性 求 值 规则 的 这 种 例外 称 为 特殊 形式 ，define 是 至 今 我 们 已 经 看 到 的 惟一 的 一 种 特 
殊 形式 ， 下 面 还 将 看 到 另外 一 些 特殊 形式 。 每 个 特殊 形式 都 有 其 自身 的 求 值 规 则 ， 各 种 不 同 
种 类 的 表达 式 (每 种 有 着 与 之 相关 联 的 求 值 规则 ) 组 成 了 程序 设计 语言 的 语法 形式 。 与 大 部 
分 其 他 程序 设计 语言 相 比 ，Lisp 的 语法 非常 简单 。 也 就 是 说 ， 对 各 种 表达 式 的 求 值 规则 可 以 
描述 为 一 个 简单 的 通用 规则 和 一 组 针对 不 多 的 特殊 形式 的 专门 规则 "。 


11.4 复合 过 程 


我 们 已 经 看 到 了 Lisp 里 的 某 些 元 素 ， 它 们 必然 也 会 出 现在 任何 一 种 强 有 力 的 程序 设计 语 
言 里 。 这 些 东 西 包括 : 

* 数 和 算术 运算 是 基本 的 数据 和 过 程 。 

。 组 合式 的 企 套 提供 了 一 种 组 织 起 多 个 操作 的 方法 。 

* 定义 是 一 种 受 限 的 抽象 手段 ， 它 为 名 字 关 联 相应 的 值 。 

现在 我 们 来 学 习 过 程 定义 ， 这 是 一 种 威力 更 加 强大 的 抽象 技术 ， 通 过 它 可 以 为 复合 操作 


u 这 里 的 特殊 语法 形式 ， 只 不 过 是 为 那些 完全 可 以 采用 统一 形式 描述 的 东西 给 出 的 另 一 种 表面 结构 ， 通 常 被 称 
为 语法 的 糖衣 ， 这 个 术语 源 自 Peter Landin。 与 其 他 语言 相 比 ，Lisp 程 序 员 更 少 关 心 语法 的 问题 (与 此 相对 应 ， 
查看 -- 下 Pascal 的 手册 ， 就 可 以 看 到 它 将 多 少 篇 幅 用 于 描述 语法 )。Lisp 对 语法 的 蓝 视 情况 ， 部 分 地 归 因 于 它 

”的 灵活 性 ， 因 此 使 它 很 容易 改变 表面 的 语法 形式 。 此 外 还 源 自 对 许多 “方便 的 ”语法 结构 的 看 法 ， 认 为 那样 
做 产生 出 的 语言 更 少 统一 性 ， 在 程序 变 得 更 大 更 复杂 时 ， 最 终 带 来 的 麻烦 比 它们 的 价值 更 大 。 按 照 Alan Perlis 
的 说 法 , “语法 的 糖衣 会 导致 分 号 的 癌症 ”。 





8 BI ibkit HB 


提供 名 字 ， 而 后 就 可 以 将 这 样 的 操作 作为 一 个 单元 使 用 了 。 
现在 我 们 要 考察 如 何 表述 “平方 ”的 想法 。 我 们 可 能 想 说 “ 求 某 个 东西 的 平方 ， 就 是 用 
它 自 身 去 乘 以 它 自 身 。 在 这 个 语言 里 ， 这 件 事 情 应 该 表述 为 : 
(define (square x) (* x x)) 
可 以 按 如 下 方式 理解 这 一 描述 : 
(define (square x) (* x 
| 1 | 1 i 
去 平方 某 个 东西 RE CF 和 EAS 
这 样 我 们 就 有 了 一 个 复合 过 程 ， 给 它 取 的 名 字 是 sguare。 这 一 过 程 表示 的 是 将 一 个 东西 乘 以 
它 自 身 的 操作 。 被 乘 的 东西 也 给 定 了 一 个 局 部 名 字 X， 它 扮演 着 与 自然 语言 里 代词 同样 的 角色 。 
求 值 这 一 定义 的 结果 是 创建 起 一 个 复合 过 程 ， 并 将 它 关 联 于 名 字 square 上 。 
过 程 定 义 的 一 般 形 式 是 : 
(define (<name> <formal parameters>) <body>) 
其 中 <name> 是 一 个 符号 ， 过 程 定义 将 在 环境 中 关联 于 这 个 符号 5。<formal parameters> (形式 参 
数 ) 是 一 些 名 字 ,它们 用 在 过 程 体 中 ， 用 于 表示 过 程 应 用 时 与 它们 对 应 的 各 个 实际 创 数 。 
<body> 是 一 个 表达 式 ， 在 应 用 这 一 过 程 时 ， 这 一 表达 式 中 的 形式 参数 将 用 与 之 对 应 的 实际 参 
数 取代 ， 对 这 样 取代 后 的 表达 式 的 求 值 ， 产 生出 这 个 过 程 应 用 的 值 *。<name> 和 <formal 
parameters> 被 放 在 一 对 括号 里 ， 成 为 一 组 ， 就 像 实际 调用 被 定义 过 程 时 的 写法 。 
定义 好 square 之 后 ， 我 们 就 可 以 使 用 它 了 : 


(square 21) 
441 


(square (+ 2 5)) 
49 


(square (square 3)) 
81 


我 们 还 可 以 用 square 作 为 基本 构件 去 定义 其 他 过 程 。 例 如 ,六 + 可 以 表述 为 : 

(+ (Square x) (square y)) 
现在 我 们 很 容易 定义 一 个 过 程 sum-of-sguares ， 给 它 两 个 数 作为 实际 参数 ， 让 它 产 生 这 两 
个 数 的 平方 和 : 


(define (sum-of-squares x y) 
(+ (Square x) (Square y))) 


(sum-of-squares 3 4) 
25 


2 可 以 看 到 ， 这 里 实际 上 组 合 了 两 个 不 同 操 作 ， 建 立 了 一 个 过 程 ， 并 为 它 给 定 了 名 字 square 。 完 全 可 能 将 这 两 
个 概念 分 离开 ， 能 够 那样 做 也 是 非常 重要 的 。 我 们 可 以 创建 一 个 过 程 但 并 不 予以 命名 ， 也 可 以 给 以 前 创建 好 
的 过 程 命名 。 在 1.3.2 节 里 将 会 做 这 些 事情 。 

3 在 本 书 里 描述 表达 式 的 语法 形式 时 , 用 尖 括 号 括 起 的 斜体 符号 (例如 <name> ) 表示 表达 式 中 的 一 些 “ 空 位 置 ”。 
在 实际 采用 这 种 表达 式 时 就 需要 填充 它们 。 

4 更 一 般 的 情况 是 ， 过 程 体 可 以 是 一 系列 的 表达 式 。 此 时 解释 器 将 顺序 求 值 这 个 序列 中 的 各 个 表达 式 ， 并 将 最 
后 一 个 表达 式 的 值 作为 整个 过 程 应 用 的 值 并 返回 它 。 





现在 我 们 又 可 以 用 sum-of-squares 作 为 构件 ， 进 一 步 去 构造 其 他 过 程 : 

(define (f a) | 

(sum-of-squares (+ a 1) (* a 2))) 

(£ 5) 

136 
复合 过 程 的 使 用 方式 与 基本 过 程 完全 一 样 。 实 际 上 ， 如 果 人 们 只 看 上 面 sum-of-squares 的 定 
义 ， 根 本 就 无 法 分 辨 出 sgquare 究 竟 是 (H+ * 那样 ) 直接 做 在 解释 器 里 昵 ， 还 是 被 定义 为 
一 个 复合 过 程 。 


1.1.5 ”过程 应 用 的 代 换 模型 


为 了 求 值 一 个 组 合式 (其 运算 符 是 一 个 复合 过 程 的 名 字 )， 解 释 器 的 工作 方式 将 完全 按照 
1.1.3 切中 所 描述 的 那样 ， 采用 与 以 运算 符 名 为 基本 过 程 的 组 合式 一 样 的 计算 过 程 。 也 就 是 说 ， 
解释 器 将 对 组 合式 的 各 个 元 素 求 值 ， 而 后 将 得 到 的 那个 过 程 ( 也 就 是 该 组 合式 里 运算 符 的 值 ) 
应 用 于 那些 实际 参数 ( 即 组 合式 里 那些 运算 对 象 的 值 )。 

我 们 可 以 假定 ， 把 基本 运算 符 应 用 于 实 参 的 机 制 已 经 在 解释 器 里 做 好 了 。 对 于 复合 过 程 ， 
过 程 应 用 的 计算 过 程 是 : | | 

。 将 复合 过 程 应 用 于 实际 参数 ， 就 是 在 将 过 程 体 中 的 每 个 形 参 用 相应 的 实 参 取代 之 后 ， 对 

这 一 过 程 体 求 值 。 | | 

为 了 说 明 这 种 计算 过 程 ， 让 我 们 看 看 下 面 组 合式 的 求 值 : 

(£ 5) 

其 中 的 f 是 1.1.4 节 定义 的 那个 过 程 。 我 们 首先 提取 出 f£ 的 体 : 

(sum-of-squares (+ a1) (* a 2)) 

而 后 用 实际 参数 5 代 换 其 中 的 形式 参数 : 

(sum-of-squares (+ 5 1) (* 5 2)) 

这 样 ， 问 题 就 被 归 约 为 对 另 一 个 组 合式 的 求 值 ， 其 中 有 两 个 运算 对 象 ， 有 关 的 运算 符 是 sum- 
of-squares 。 求 值 这 一 组 合式 牵涉 到 三 个 子 问题 : 我 们 必须 对 其 中 的 运算 符 求 值 ， 以 便 得 
到 应 该 去 应 用 的 那个 过 程 ， 还 需要 求 值 两 个 运算 对 象 ， 以 得 到 过 程 的 实际 参数 。 这 里 的 (+3 
1) 产生 出 6，(* 5 2) 产生 出 10， 因此 我 们 就 需要 将 sum-of-squares 过 程 用 于 6 和 10 。 
用 这 两 个 值 代 换 sum-of-squares 体 中 的 形式 参数 x 和 y ， 表 达 式 被 归 约 为 : 

(+ (square 6) (square 10)) So 
使 用 square 的 定义 又 可 以 将 它 归 约 为 : 

(+ (* 6 6) (* 10 10)) | 
通过 乘法 又 能 将 它 进 一 步 归 约 为 : 

(+ 36 100) 

最 后 得 到 : 

136 


上 面 措 述 的 这 种 计算 过 程 称 为 过 程 应 用 的 代 换 模型 ， 在 考虑 本 章 至 今 所 定义 的 过 程 时 ， 
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我 们 可 以 将 它 看 作 确 定 过 程 应 用 的 “意义 ”的 一 种 模型 。 但 这 里 还 需要 强调 两 点 : 
*。 代 换 的 作用 只 是 为 了 帮助 我 们 领会 过 程 调 用 中 的 情况 ， 而 不 是 对 解释 器 实际 工作 方式 的 
具体 描述 。 通 常 的 解释 器 都 不 采用 直接 操作 过 程 的 正文 ， 用 值 去 代 换 形式 参数 的 方式 去 
完成 对 过 程 调用 的 求 值 。 在 实际 中 ， 它 们 一 般 采 用 提供 形式 参数 的 局 部 环境 的 方式 ， 产 
生 “ 代 换 ” 的 效果 。 我 们 将 在 第 3 章 和 第 4 章 考 察 一 个 解释 器 的 细 玉 实现 ， 在 那里 更 完整 
地 讨论 这 一 问题 。 
REP PEORIA. RIEA 出 有 关 解 释 器 如 何 工 作 的 一 系列 模型 ， 一 个 比 一 个 更 精 
细 ， 并 最 终 在 第 5 章 给 出 一 个 完整 的 解释 器 和 一 个 编译 器 。 这 里 的 代 换 模型 只 是 这 些 模 
全 直 的 第 一 个 作为 形 太 化 所 考 上 起 这 种 求 值 过 程 的 起 点 ”一 般 来 说 ， 在 村 机 科学 研究 
或 者 工程 中 的 现象 时 ， 我 们 总 是 从 最 简单 的 不 完全 的 模型 开始 。 随 着 更 细致 地 检查 所 考 
虑 的 问题 ， 这 些 简 单 模型 也 会 变 得 越 来 越 不 合适 ， 从 而 必须 用 进一步 精 化 的 模型 取代 。 
代 换 模型 也 不 例外 。 特 别 地 ， 在 第 3 章 中 ， 我 们 将 要 讨论 将 过 程 用 于 “变化 的 数据 的 
问题 ， 那 时 就 会 看 到 替换 模型 完全 不 行 了 ， 必 须 用 更 复杂 的 过 程 应 用 模型 来 代替 它 “。 
应 用 序 和 正则 序 | 
按照 1.1.3 节 给 出 的 有 关 求 值 的 描述 ， 解 释 器 首先 对 运算 符 和 各 个 运算 对 象 求 值 ， 而 后 将 
得 到 的 过 程 应 用 于 得 到 的 实际 参数 。 然 而 ， 这 并 不 是 执行 求 值 的 惟一 可 能 方式 。 另 一 种 求 值 
模型 是 先 不 求 出 运算 对 象 的 值 ， 直 到 实际 需要 它们 的 值 时 再 去 做 。 采 用 这 种 求 值 方式 ， 我 们 
就 应 该 首先 用 运算 对 象 表达 式 去 代 换 形式 参数 ， 直 至 得 到 一 个 只 包含 基本 运算 符 的 表达 去 ， 
然后 再 去 执行 求 值 。 如 果 我 们 采用 这 一 方式 ， 对 下 面 表达 式 的 求 值 : 
(£ 5) 
将 按照 下 面 的 序列 逐步 展开 : 
(sum-of-squares (+ 5 1) (* 5 2)) 
(+ (square (+ 5 1)) (square {* 5 2)) ) 
(+ (* (+ 5 2) (+ 5 1)) (* (* 5 2) (* 5 2))) 
而 后 是 下 面 归 约 : | 
(+ (* 6 6) (* 10 10)) 
(+ 36 = 100) 
136 
这 给 出 了 与 前 面 求 值 模 型 同样 的 结果 ,但 其 中 的 计算 过 程 却 是 不 一 样 的 。 特 别 地 ， 在 对 下 面 
表达 式 的 归 约 中 ， 对 于 (+5 1) 和 (* 5 2) 的 求 值 各 做 了 两 次 : 
(* X x) 
其 中 的 x 分 别 被 代 换 为 (+5 1) 和 (* 5 2), 
这 种 “完全 展开 而 后 归 约 ”的 求 值 模型 称 为 正则 序 求 值 ， 与 之 对 应 的 是 现在 解释 器 里 实 
际 使 用 的 “ 先 求 值 参数 而 后 应 用 ”的 方式 ， 它 称 为 应 用 序 求 值 。 可 以 证 明 ， 对 那些 可 以 通过 


5 虽然 代 换 模型 看 起 来 似乎 非常 简单 ， 但 令 人 吃惊 的 是 ， 给 出 代 换 过 程 的 严格 数学 定义 却 异 常 复 杂 。 问 题 在 于 ， 
用 作 过 程 中 形式 参数 的 名 字 ， 可 能 会 与 该 过 程 可 能 应 用 的 那些 表达 式 中 的 (同样 ) 名 字 相 互 混 消 。 在 下 辑 和 
程序 设计 的 语义 学 文献 里 ， 关于 代 换 的 充满 错误 的 定义 有 一 个 很 长 的 历史 。 请 参考 Stoy NOTA ATURE H 
细 讨 论 。 
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替换 去 模拟 ， 并 能 产生 出 合 蒸 值 的 过 程 应 用 (包括 本 书 前 两 章 中 的 所 有 过 程 ) ， 正 则 序 和 应 用 
序 求 值 将 产生 出 同样 的 值 (参见 练习 1.5 中 一 个 “非法 ” 值 的 例子 ， 其 中 正则 序 和 应 用 序 将 给 
出 不 同 的 结果 )。 

Lisp 采 用 应 用 序 求 值 ， 部 分 原因 在 于 这 样 做 能 避免 对 于 表达 式 的 重复 求 值 (例如 上 面 的 
(+5 1) 和 (* 5 2) 的 情况 )， 从 而 可 以 提高 一 些 效率 。 更 重要 的 是 ， 在 超出 了 可 以 采用 
替换 方式 模拟 的 过 程 范围 之 后 ， 正 则 序 的 处 理 将 变 得 更 复杂 得 多 。 而 在 另 一些 方 面 ， 正 则 序 
也 可 以 成 为 特别 有 价值 的 工具 ， 我 们 将 在 第 3 章 和 第 4 章 研究 CHR AER. 


1.1.6 条 件 表达 式 和 谓词 


至 此 我 们 能 定义 出 的 过 程 类 的 表达 能 力 还 非常 有 限 ， 因 为 还 没 办 法 去 做 某 些 检测 ， 而 后 
依据 检测 的 结果 去 确定 做 不 同 的 操作 。 例 如 ， 我 们 还 无 法 定义 一 个 过 程 ， 使 它 能 计算 出 一 个 
数 的 绝对 值 。 完 成 此 事 需 要 先 检 查 一 个 数 是 正 的 、 负 的 或 者 零 ， 而 后 依据 遇 到 的 不 同情 况 ， 
按照 下 面 规则 采取 不 同 的 动作 ; | 

x mex > 0 
Jxj=1 0 如 果 x = 0 
-x 如 果 x<0 


这 种 结构 称 为 一 个 分 情况 分 析 ， 在 Lisp 里 有 着 一 种 针对 这 类 分 情况 分 析 的 特殊 形式 ， 称 为 
cond (表示 “条 件 ”)。 其 使 用 形式 如 下 : 


(define {abs x) 
(cond ‘(> x 0) x) 
‘{= x 0) 0) 
((< x 0) (- *)))) 
条 件 表达 式 的 一 般 性 形式 为 : 
(cond (<p\> <el> ) 


(<p> <e>) 


(<P> <e,>)) 
这 里 首先 包含 了 一 个 符号 cond， 在 它 之 后 跟着 一 些 称 为 子 折 的 用 括号 括 起 的 表达 式 对 偶 
(<p> <e>). 在 每 个 对 偶 中 的 第 一 个 表达 式 是 一 个 谓词 ， 也 就 是 说 ， 这 是 一 个 表达 式 ， 它 的 
值 将 被 解释 为 真 或 者 假 ”。 

条 件 表 达 式 的 求 值 方式 如 下 : 首先 求 值 谓 词 <pi> ， 如 果 它 的 值 是 false ， 那 么 就 去 求 值 
<p>, ， 如 果 <p?> 的 值 是 Ealse 就 去 求 值 <pa> 。 这 一 过 程 将 继续 做 下 去 ， 直 到 发 现 了 某 个 谓词 
的 值 为 真 为 止 。 此 时 解释 器 就 返回 相应 子 句 中 的 序列 表达 式 <e> 的 值 ， 以 这 个 值 作为 整个 条 件 
表达 式 的 值 。 如 果 无 法 找到 值 为 真 的 <p> ，cond 的 值 就 设 有 定义 。 


6 第 3 章 将 引进 流 处 理 的 概念 ， 这 是 一 种 采用 了 正则 序 的 受 限 形式 去 处 理 明 显 的 “无 限 ” 数 据 结构 的 方式 E 
4.2 节 将 修改 Scheme 解释 器 ， 做 出 Scheme 的 一 种 采用 正则 序 求 值 的 变形 。 
”7 * 解 释 为 真 或 者 假 ” 的 意思 如 下 :; 在 Scheme 里 存在 这 两 个 特殊 的 值 ， 它 们 分 别 用 常量 打 和 机 表示 。 当 解释 器 
检查 一 个 谓词 的 值 时 ， 它 将 村 解释 为 假 ， 而 将 所 有 其 他 的 值 都 作为 真 〈 这 样 ， 提 供 MEM 上 就 是 不 必要 的 ， 
只 是 为 了 方便 )。 在 本 书 中 将 使 用 true 和 false ， 令 它们 分 别 关 联 于 杂 和 HH。 
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我 们 用 术语 谓词 指 那些 返回 真 或 假 的 过 程 ， 也 指 那 种 能 求 出 真 或 者 假 的 值 的 表达 式 .。 求 
绝对 值 的 过 程 abs 使 用 了 基本 谓词 >、<< 和 =”“， 这 几 个 谓词 都 以 两 个 数 为 参数 ， 分 别 检查 第 
一 个 数 是 否 大 于 、 小 于 或 者 等 于 第 二 个 数 ， 并 据 此 分 别 返回 真 或 者 假 。 

写 绝对 值 函数 的 另 一 种 方式 是 : 

(define (abs x) 

(cond ((< x 0) (- x)) 
(else x))) | | 
用 自然 语言 来 说 ， 就 是 “如 果 x 小 于 0 就 返回 -x， 否 则 就 返回 x”。else 是 一 个 特殊 符号 ， 可 
以 用 在 cond 的 最 后 一 个 子 句 中 <p> 的 位 置 , 这 样 做 时 , 如 果 该 cond 前 面 的 所 有 子 句 都 被 跳 过 ， 
它 就 会 返回 最 后 子 句 中 <e> 的 值 。 事 实 上 ， 所 有 永远 都 求 出 真 值 的 表达 式 都 可 以 用 在 这 个 <p> 
的 位 置 上 。 
下 面 是 又 一 种 写 绝对 值 函 数 的 方式 : 
(define (abs x) 
(if (< x 0) 
(~ x) 
x)) 
这 里 采用 的 是 特殊 形式 if ， 它 是 条 件 表 达 式 的 一 种 受 限 形式 ， 适 用 于 分 情况 分 析 中 只 有 两 个 
情况 的 需要 。if 表达 式 的 一 般 形式 是 : 

(if | <predicate> <consequent> <alternative>) 

在 求 值 一 个 1f 表 达 式 时 ， 解 释 器 从 求 值 其 <predicate> 部 分 开始 ， 如 果 <predicate> 得 到 真 值 
解释 器 就 去 求 值 <consequent> 并 返回 其 值 ， 否 则 它 就 去 求 值 <alternative> 并 返回 其 值 ”。 

除了 一 批 基本 谓词 如 <、= 和 > 之 外 ， 还 有 一 些 逻 辑 复合 运算 符 ， 利 用 它们 可 以 构造 出 各 
种 复合 谓词 。 最 常用 的 三 个 复合 运算 符 是 : 

e (and <e> 。。。 <e,>) 

解释 器 将 从 左 到 右 一 个 个 地 求 值 <e>， 如 果 某 个 <e> 求 值得 到 假 ， 这 一 and 表 达 式 的 值 就 
是 假 ， 后 面 的 那些 <e> 也 不 再 求 值 了 。 如 果 前 面 所 有 的 <e> 都 求 出 真 值 ， 这 一 and 表 达 式 的 值 
就 是 最 后 那个 <e> 的 值 。 

* (Or <E> 。。。 <€,>) 

解释 器 将 从 左 到 右 一 个 个 地 求 值 <e> ， 如 果 某 个 <e> 求 值得 到 真 ，oz 表 达 式 就 以 这 个 表达 
式 的 值 作为 值 ， 后 面 的 那些 <e> 也 不 再 求 值 了 。 如 果 所 有 的 <e> AER ETE, 这 一 oT 表达 式 的 
值 就 是 假 。 

e (not <e>) 

如 果 <e> 求 出 的 值 是 假 , "not 表达 式 的 值 就 是 真 ， 否 则 其 值 为 假 。 

注意 ，and 和 or 都 是 特殊 形式 而 不 是 普通 的 过 程 ， 因 为 它们 的 子 表 达 式 不 一 定 都 求 值 。 
not 则 是 一 个 普通 的 过 程 。 

作为 使 用 这 些 逻 辑 复合 运算 符 的 例子 ， 数 x 的 值 位 于 区 间 3 <x< 10 之 中 的 条 件 可 以 写 为 : 


"abs AA 负 号 运算 符 “ 一 ， 这 个 运算 符 作用 于 一 个 对 象 时 (例如 写 (一 x))， RER 出 其 负 值 。 

9 在 4fE 和 cond 之 间 的 另 一 个 小 差异 是 每 个 cond 子 名 的 <e> 部 分 可 以 是 一 个 表达 式 的 序列 ， 如 果 对 应 的 <p> 确定 
HH, ，<e> 中 的 表达 式 就 会 顺序 地 求 值 ， 并 将 其 中 最 后 一 个 表达 式 的 值 作为 整个 cond 的 值 返回 。 而 在 诗 表 达 
式 里 ，<consequent> 和 <alternative> 都 只 能 是 单个 表达 式 。 
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(and (> x 5) (< x 10)) 


作为 另 一 个 例子 ， 下 面 定 义 了 一 个 谓词 ， 它 检测 某 个 数 是 否 大 于 或 者 等 于 另 一 个 数 : 
(define (>= x y) 
(or (> x y) (= x y))) 


或 者 也 可 以 定义 为 : 
(define (>= x y) 
(not (< x y))) 


练习 1.1 下面 是 一 系列 表达 式 ， 对 于 每 个 表达 式 ， 解 释 器 将 输出 什么 结果 ? 假定 这 一 系 
列表 达 式 是 按照 给 出 的 顺序 逐个 求 值 的 。 

10 

(+ 5 3 4) 

(- 9 1) 

(/ 6 2) 

(+ (* 2 4) (- 4 6)) 

(define a 3) 

(define b (+ a 1)) 

(+ a b (* a b)) 

(= a b) 


(if (and (> b a) (< b (* a b))) 
b 
a) 


(cond ((= a 4) 6) 
((= b 4) (+ 6 7 a)) 
(else 25)) 


(+ 2 (if (> b a) b a)) 


(* (cond ((> a b) a) 


((< a b) b) 
(else -1)) 
(+ a l1)) 


练习 1.2 请 将 下 面 表达 式 变换 为 前 级 形式 ; 
4 
5+4+(2-(3-(6+3))] 
3(6-2)(2-7) 
”练习 1.3 请 定义 一 个 过 程 ， 它 以 三 个 数 为 参数 ， 返 回 其 中 较 大 的 两 个 数 之 和 。 
练习 1.4 ”请 仔细 考察 上 面 给 出 的 允许 运算 符 为 复合 表达 式 的 组 合式 的 求 值 模型 ， 根 据 对 这 
一 模型 的 认识 描述 下 面 过 程 的 行为 : 


(define (a-plus-abs-b a b) 
((if (> b 0) + -) a b)) 


练习 1.5 Ben Bitdiddle RA] T— FEMA E, REGS Wace AE PEASE SERA PE OR, © 
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采用 应 用 序 ， 还 是 采用 正则 序 。 他 定义 了 下 面 丙 个 过 程 : 
(define (p) (P)) 
(define (test x y) 
(if (= x 0) 
0 
y)) 


而 后 他 求 值 下 面 的 表达 式 : 


(test 0 (p)) 


如 果 某 个 解释 器 采用 的 是 应 用 序 求 值 ,Ben 会 看 到 什么 样 的 情况 ? 如果 解 释 器 采用 正则 序 求 值 ， 
他 又 会 看 到 什么 情况 ? 请 对 你 的 回答 做 出 解释 。( 无 论 采用 正则 序 或 者 应 用 序 ， 假定 特殊 形式 
if 的 求 值 规则 总 是 一 样 的 。 其 中 的 谓词 部 分 先行 求 值 ， 根 据 其 结果 确定 随后 求 值 的 子 表达 去 
部 分 。) 


1.1.7 实例 :采用 牛顿 法 求 平方 根 


上 面 介绍 的 过 程 都 很 像 常 规 的 数学 国 数 ， 它 们 描述 的 是 如 何 根据 一 个 或 者 几 个 参数 去 确 
定 一 个 值 。 然 而 ， 在 数学 的 函数 和 计算 机 的 过 程 之 间 有 一 个 重要 差异 ， 那 就 是 ， 这 一 过 程 还 
必须 是 有 效 可 行 的 。 

作为 目前 情况 下 的 一 个 实例 ， 现 在 我 们 来 考虑 求 平 方 根 的 问题 。 我 们 可 以 将 平方 根 国 数 

VX = 那样 的 y， 使 得 y 之 0 而 且 y* = 
这 就 描述 出 了 一 个 完全 正统 的 数学 函数 ， 我 们 可 以 利用 它 去 判断 某 个 数 是 否 为 男 一 个 数 的 平 
方 根 ， 或 根据 上 面 叙 述 ， 推 导出 一 些 有 关 平 方 根 的 一 般 性 事实 。 然 而 ， 在 另 一 方面 ， 这 一 定 
义 并 没有 描述 一 个 计算 过 程 ， 因 为 它 确实 没有 告诉 我 们 ， 在 给 定 了 一 个 数 之 后 ， 如 何 实际 地 
找到 这 个 数 的 平方 根 。 即 使 将 这 个 定义 用 类 似 Lisp 的 形式 重 写 一 遍 也 完全 无 济 于 事 : 

(define (sqrt x) 

(the y (and (>= y 0) 
(= (square y) x)))) 

只 不 过 是 重新 提出 了 原来 的 问题 。 

函数 与 过 程 之 间 的 填 盾 ， 不 过 是 在 描述 一 件 事 情 的 特征 ， 与 描述 如 何 去 做 这 件 事情 之 间 
的 普遍 性 差异 的 一 个 具体 反映 。 换 一 种 说 法 ， 人 们 有 时 也 将 它 说 成 是 说 明 性 的 知识 与 行动 性 
的 知识 之 间 的 差异 。 在 数学 里 ， 人 们 通常 关心 的 是 说 明 性 的 描述 (是 什么 )， 而 在 计算 机 科学 
里 ， 人 们 则 通常 关心 行动 性 的 描述 (怎么 做 )“。 

计算 机 如 何 算出 平方 根 呢 ? 最 常用 的 就 是 牛顿 的 逐步 逼 进 方法 。 这 一 方法 告诉 我 们 ， 如 


2 说 明 性 描述 和 行动 性 描述 有 着 内 在 的 联系 ， 就 像 数学 和 计算 机 科学 有 着 内 在 联系 一 样 。 举 个 例子 ， 说 一 个 程 
序 产生 的 结果 “正确 ”， 就 是 给 出 了 一 个 有 关 该 程序 性 质 的 说 明 性 语句 。 存 在 着 大 量 的 研究 工作 ， 其 目标 就 是 
创建 起 一 些 技术 ,设法 证 明 一 个 程序 是 正确 的 。 在 这 一 领域 中 有 许多 技术 性 困难 ， 究 其 根源 ， 都 出 自 需 要 在 
行动 性 语句 (程序 是 由 它们 构造 起 来 的 ) 和 说 明 性 语句 (它们 可 以 用 于 推导 出 某 些 结果 ) 之 间 转 来 转 去 。 在 
与 此 相关 的 研究 分 支 里 ， 有 一 个 当前 在 程序 设计 语言 设计 领域 中 很 重要 的 问题 ， 那 就 是 所 谓 的 巷 高 级 语言 ， 
在 这 种 语言 里 编程 就 是 写 说 明 性 的 语句 。 这 里 的 想法 是 将 解释 器 做 得 足够 复杂 ， 程 序 员 描述 了 需要 “做 什么 
的 知识 之 后 ， 这 种 解释 器 就 能 自动 产生 出 “怎样 做 ”的 知识 。 一 般 而 言 这 是 不 可 能 做 到 的 ， 但 在 这 一 领域 已 
经 取得 了 巨大 进步 。 第 4 章 我 们 将 再 来 考虑 这 一 想法 。 
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RADY SACRA AB eT i AR A ME A 
只 需要 求 出 ?和 xy 的 平均 值 ( 它 更 接近 实际 的 平方 根 值 ) ”。 例 如 ， 可 以 用 这 种 方式 去 计 
mene 假定 初始 值 是 1 ， ` : 





猜测 商 平均 值 
1 222 C+) is 
1 2 
1.5 Z -13333 013333 +1.5) 1.4167 
14167 —2—=14118 C4167+14118) i442 
1.4167 2 
1.4142 ... 


继续 这 一 计算 过 程 ， 我 们 就 能 得 到 对 2 的 平方 根 的 越 来 越 好 的 近似 值 。 

现在 ， 让 我 们 设法 用 过 程 的 语言 来 描述 这 一 计算 过 程 。 开 始 时 ， 我们 有 了 被 开 方 数 的 值 
(现在 需要 做 的 就 是 算出 它 的 平方 根 ) 和 一 个 猜测 值 。 如 果 猜 测 值 已 经 足够 好 了 ， 有 关 工 作 也 
就 完成 了 。 如 若 不 然 ， 那么 就 需要 重复 上 述 计算 过 程 去 改进 猜测 值 我 们 可 以 将 这 一 基本 策 
略 写成 下 面 的 过 程 : 


(define (sqrt-iter guess x) 
(if (good-enough? guess x) 
guess | 
(sqrt-iter (improve guess x) 


x))) 
改进 猜测 的 方式 就 是 求 出 它 与 被 开 方 数 除 以 上 一 个 猜测 的 平均 值 : 


(define (improve guess x) 
(average guess (/ x guess.))) 


其 中 


(define (average x y) 


(/ (+ x Y) 2)) 
我 们 还 必须 说 明 什 么 叫做 “足够 好 ”。 下 面 的 做 法 只 是 为 了 说 明 问 题 ， 它 确实 不 是 一 个 很 好 的 
检测 方法 (参见 练习 1.7) 。 这 里 的 想法 是 ， 不 断 改进 答案 直至 它 足够 接近 平方 根 ， 使 得 其 平 
方 与 被 开 方 数 之 差 小 于 某 个 事先 确定 的 误差 值 (这 里 用 的 是 0.001) “: 


(define (good-enough? guess x) 
(< (abs (~ (square guess) x)) 9.001)) 


最 后 还 需要 一 种 方式 来 启动 整个 工作 。 例 如 ， 我 们 可 以 总 用 1 作为 对 任何 数 的 初始 猜测 值 : 


”2 这 一 平方 根 算法 实际 上 是 牛顿 法 的 一 个 特例 ， 牛 顿 法 是 一 种 寻找 方程 的 根 的 通用 技术 。 平 方 根 算法 本 身 是 由 

亚历山大 的 Heron 在 公元 一 世纪 提出 的 。 我 们 将 在 1.3.4 节 看 到 如 何 用 Lisp 描 述 一 般 性 的 牛顿 法 。 

?我 们 将 在 谓词 名 字 的 最 后 用 一 个 问号 ,以 才 人 注意 SV EA ERN. 这 不 过 是 一 种 风格 上 的 约定 。 对 于 解释 器 
而 言 ， 问 号 也 就 是 一 个 普通 的 字符 。 

3 请 注意 ， 这 里 所 用 的 初始 猜测 是 1.0 而 不 是 1。 在 许多 Lisp 实 现 中 ， 这 样 做 并 不 会 造成 任 何不 同 。MIT Scheme 
区 分 了 精确 的 整数 和 十 进 制 数值 ， 两 个 整数 的 商 是 一 个 有 理 数 而 不 是 十 进 制 数值 。 例 如 ， 用 6 去 除 10 将 得 到 
5/3 ， 而 用 6.0 去 除 10.0 得 到 的 是 1.6666666666666667 (我 们 将 在 2.1.1 节 学 习 怎样 实现 有 理 数 的 算术 运算 )。 如 
果 我 们 用 1 作为 平方 根 程序 的 初始 猜测 ，x 就 会 是 一 个 精确 的 整数 ， 随 后 在 平方 根 过 程 里 算出 的 所 有 值 都 将 是 
有 理 数 而 不 是 十 进 制 数值 。 对 有 理 数 和 十 进 制 数值 的 混合 运算 总 是 产生 十 进 制 数值 。 所 以 ， 开始 时 采用 初始 
猜测 1.0 ， 将 人 迫使 随后 的 所 有 结果 都 得 到 十 进 制 的 数值 。 
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(define (sqrt x) 
(sqrt-iter 1.0 x)) 
如 果 把 这 些 定义 都 送 给 解释 器 ， 我 们 就 可 以 使 用 sqrt 了 ， 就 像 可 以 使 用 其 他 过 程 一 样 : 
(sqrt 9) 
3.00009155413138 


(sqrt (+ 100 37)) 
11.704699917758145 


(sqrt (+ (sqrt 2) (sqrt 3))) 
1.7739279023207892 


(square {sqrt 1000)) 
1000.000369924366 


这 个 sqrt 程序 也 说 明 ， 在 用 于 写 纯粹 的 数值 计算 程序 时 ， 至 今 已 介绍 的 简单 程序 设计 语 
言 已 经 足以 写 出 可 以 在 其 他 语言 (例如 C 或 者 Pascal) 中 写 出 的 任何 东西 了。 这 看 起 来 很 让 人 
吃惊 ， 因 为 这 一 语言 中 甚至 还 没有 包括 任何 迭代 结构 (循环 )， 它 们 用 于 指挥 计算 机 去 一 过 过 
地 做 某 些 事情 。 而 在 另 一 方面 ，sqzt-iter 展 示 了 如 何不 用 特殊 的 选 代 结构 来 实现 选 代 ， 其 
中 只 需要 使 用 常规 的 过 程 调 用 能 力 ”。 

练习 1.6 Alyssa P. Hacker 看 不 出 为 什么 需要 将 if 提供 为 一 种 特殊 形式 ， 她 问 ， “为 什么 
我 不 能 直接 通过 cond 将 它 定义 为 一 个 常规 过 程 呢 ? ”Alyssa 的 朋友 Eva Lu Ator 断 言 确实 可 以 
这 样 做 ， 并 定义 了 if 的 一 个 新 版 本 : 


(define (new-if predicate then-clause else-clause) 
(cond (predicate then-clause) 
(else else-clause) )) 


Eva 给 Alyssa 演 示 她 的 程序 : 
(new-if (= 2 3) 0 5) 
5 
(new-if (= 11) 0 5) 
0 | 
她 很 高 兴 地 用 自己 的 hew-if 重 写 了 求 平方 根 的 程序 : 
(define (sqrt-iter guess x) 
(new-if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) 
. Oo x))) 
当 Alyssa 试 着 用 这 个 过 程 去 计算 平方 根 时 会 发 生 什 么 事情 呢 ? 请 给 出 解释 。 
练习 1.7 ”对 于 确定 很 小 的 数 的 平方 根 而 言 ， 在 计算 平方 根 中 使 用 的 检测 good-enough? 
是 很 不 好 的 。 还 有 ， 在 现实 的 计算 机 里 ， 算术 运算 总 是 以 一 定 的 有 限 精 度 进行 的 。 这 也 会 使 
我 们 的 检测 不 适合 非常 大 的 数 的 计算 。 请 解释 上 述 论断 ， 用 例子 说 明 对 很 小 和 很 大 的 数 ， 这 
种 检测 都 可 能 失败 。 实 现 good-enough? 的 另 一 种 策略 是 监视 猜测 值 在 从 一 次 迭代 到 下 一 次 
的 变化 情况 ， 当 改变 值 相对 于 猜测 值 的 比率 很 小 时 就 结束 。 请 设计 一 个 采用 这 种 终止 测试 方 
式 的 平方 根 过 程 。 对 于 很 大 和 很 小 的 数 ， 这 一 方式 都 能 工作 吗 ? 


2 关心 通过 过 程 调用 来 实现 迭代 时 的 效率 问题 的 读者 ， 可 以 去 看 1.2.1 节 里 有 关 “ 尾 递 轨 ”的 说 明 。 





练习 1.8 求 立方 根 的 牛顿 法 基于 如 下 事实 ， 如 果 y 是 x 的 立 万 根 的 一 个 近似 值 ， 那么 下 式 
将 给 出 一 个 更 好 的 近似 值 : 
Xx/y +2y 
3 
请 利用 这 一 公式 实现 一 个 类 似 平方 根 过 程 的 求 立方 根 的 过 程 。( 在 1.3.4 节 里 ,我 们 将 看 到 如 何 
实现 一 般 性 的 牛顿 法 ， 作 为 这 些 求 平 方 根 和 立方 根 过 程 的 抽象 。) 


1.1.8 过程 作为 黑箱 抽象 


sqrt 是 我 们 用 一 组 手工 定义 的 过 程 来 实现 一 个 计算 过 程 的 第 一 个 例子 。 请 注意 ， 在 这 里 
sqrt-iter 的 定义 是 递归 的 ， 也 就 是 说 ， 这 一 过 程 的 定义 基于 它 自身 。 能 够 基于 一 个 过 程 自 
身 来 定义 它 的 想法 很 可 能 会 令 人 感到 不 安 ， 人 们 可 能 觉得 它 不 够 清晰 ， 这 种 “循环 ”定义 怎 
么 能 有 意义 呢 ? 是 不 是 完全 刻画 了 一 个 能 够 由 计算 机 实现 的 计算 过 程 呢 ? 在 1.2 节 里 ， 我 们 将 
更 细致 地 讨论 这 一 问题 。 现 在 首先 来 看 看 sGrt 实例 所 显示 出 的 其 他 一 些 要 点 。 

可 以 看 到 ， 对 于 平方 根 的 计算 问题 可 以 自然 地 分 解 为 若干 子 问题 : 怎样 说 一 个 猜测 是 足 
够 好 了， 怎样 去 改进 一 个 猜测 ， 等 等 。 这 些 工 作 中 的 每 一 个 都 通过 一 个 独立 的 过 程 完成 ， 整 
个 sqrt 程 序 可 以 看 做 一 族 过 程 ( 如 图 1-2 所 示 ) ， 它 们 直接 反应 了 从 原 问题 到 子 问题 的 分 解 。 


sqrt 





sqrt-iter 


ZX 





good-enough improve 
square average 


图 1-2 sqrt 程 序 的 过 程 分 解 


这 一 分 解 的 重要 性 ， 并 不 仅仅 在 于 它 将 一 个 问题 分 解 成 了 几 个 部 分 。 当 然 ， 我 们 总 可 以 
拿 来 一 个 大 程序 ， 并 将 它 分 割 成 若干 部 分 一 -最 前 面 10 行 、 后 面 10 行 、 再 后 面 10 行 等 等 。 这 
里 最 关键 的 问题 是 ， 分 解 中 的 每 一 个 过 程 完成 了 一 件 可 以 请 楚 标 明 的 工作 ， 这 使 它们 可 以 被 
用 作 定 义 其 他 过 程 的 模块 。 例 如 ， 当 我 们 基于 square 定 义 过 程 good-enough? 之 时 ， 就 是 
将 square 看 做 一 个 “黑箱 ”。 在 这 样 做 时 ， 我 们 根本 无 须 关 注 这 个 过 程 是 如 何 计算 出 它 的 结 
果 的 ， 只 需要 注意 它 能 计算 出 平方 值 的 事实 。 关 于 平方 是 如 何 计算 的 细节 被 隐 去 不 提 了 ， 可 
以 推迟 到 后 来 再 考虑 。 情 况 确实 如 此 ， 如 果 只 看 good-enough? 过 程 ， 与 其 说 sgquare 是 一 
个 过 程 ， 不 如 说 它 是 一 个 过 程 的 抽象 ， 即 所 谓 的 过 程 拍 象 。 在 这 一 抽象 旺 次 上 ， 任 何 能 计算 


出 平方 的 过 程 都 同样 可 以 用 。 
这 样 ， 如 果 我 们 只 考虑 返回 值 ， 那 么 下 面 这 两 个 求 平方 的 过 程 就 是 不 可 区 分 的 。 它 们 中 





一 个 都 取 一 个 数值 参数 ， 产 生出 这 个 数 的 平方 作为 值 ”。 
(define (square x) (* x x)) 
(define (square x) 

(exp (double (log x)))) 


(define (double x) (+ x x)) 


由 此 可 见 ， 一 个 过 程 定义 应 该 能 隐藏 起 一 些 细 节 。 这 将 使 过 程 的 使 用 者 可 能 不 必 自 己 去 
写 这 些 过 程 ， 而 是 从 其 他 程序 员 那 里 作为 一 个 黑箱 而 接受 了 它 。 用 户 在 使 用 一 个 过 程 时 ， 应 
该 不 需要 去 弄 清 它 是 如 何 实现 的 。 

局 部 名 | 

过 程 用 户 不 必 去 关心 的 实现 细节 之 一 ， 就 是 在 有 关 的 过 程 里 面 形式 参数 的 名 字 ， 这 是 由 
实现 者 所 选用 的 。 也 就 是 说 ， 下 面 两 个 过 程 定义 应 该 是 无 法 区 分 的 : 

{define (square x) (* x Xx)) 


(define (square y) (* y ¥)) 


这 一 原则 (过程 的 意义 应 该 不 依赖 于 其 作者 为 形式 参数 所 选用 的 名 字 ) 从 表面 看 起 来 很 明显 ， 
但 其 影响 却 非常 深远 。 最 直接 的 影响 是 ， 过 程 的 形式 参数 名 必须 局 部 于 有 关 的 过 程 体 。 例 如 ， 
我 们 在 前 面 平方 根 程序 中 的 good-enough? 定 义 里 使 用 了 squaze: 

(define (good-enough? guess x) 

(< (abs (- (square guess) x)) 0.001)) 
good-enough? 作 者 的 意图 就 是 要 去 确定 ， 函 数 的 第 一 个 参数 的 平方 是 否 位 于 第 二 个 参数 附 
近 一 定 的 误差 范围 内 。 可 以 看 到 ，good-enough? 的 作者 用 名 字 guess 表示 其 第 一 个 参数 ， 
用 x 表示 第 二 个 参数 ， 而 送 给 square 的 实际 参数 就 是 guess。 如 果 square 的 作者 也 用 x (上 
面 确实 如 此 ) 表示 和 参数， 那么 就 可 以 明显 看 出 ，9ocod-enough? 里 的 x 必须 与 Square 里 的 那 
个 x 不 同 。 在 过 程 sguare 运 行 时 ， 绝 不 应 该 影响 good-enough? 里 所 用 的 那个 x 的 值 ， 因 为 
在 square 完成 计算 之 后 ，gocod-encough? 里 可 能 还 需要 用 X 的 值 。 

如 果 参 数 不 是 它们 所 在 的 过 程 体 里 局 部 的 东西 ， 那 么 sguare 里 的 x 就 会 与 good- 
enough? 里 的 参数 x 相 混 淆 。 如 果 这 样 ，good-enough? 的 行为 方式 就 将 依赖 于 我 们 所 用 的 
square 的 不 同 版 本 。 这 样 ，square 也 就 不 是 我 们 所 希望 的 黑箱 了 。 

过 程 的 形式 参数 在 过 程 体 里 扮演 着 一 种 非常 特殊 的 角色 ， 在 这 里 ， 形 式 参 数 的 具体 名 字 
是 什么 ， 其 实 完全 没有 关系 。 这 样 的 名 字 称 为 约束 变量 ， 因 此 我 们 说 ,一 个 过 程 的 定义 约束 
了 它 的 所 有 形式 参数 。 如 果 在 一 个 完整 的 过 程 定义 里 将 某 个 约束 变量 统一 换 名 ， 这 一 过 程 定 
义 的 意义 将 不 会 有 任何 改变 *。 如 果 一 个 变量 不 是 被 约束 的 ， 我 们 就 称 它 为 自由 的 。 一 个 名 字 
的 定义 被 约束 于 的 那 一 集 表达 式 称 为 这 个 名 字 的 作用 域 。 在 一 个 过 程 定义 里 ， 被 声明 为 这 个 
过 程 的 形式 参数 的 那些 约束 变量 ， 就 以 这 个 过 程 的 体 作 为 它 们 的 作用 域 。 

在 上 面 good-enough? 的 定义 中 ， guess 和 x 是 约束 变量 ， 而 <、-、 abs 和 square 则 
是 自由 的 。 要 想 保证 good-enough? 的 意义 与 我 们 对 guess 和 x 的 名 字 选 择 无 关 ， 只 要 求 它 


2 至 于 这 两 个 过 程 中 哪 一 个 实现 更 有 效 ， 这 一 问题 并 不 很 明确 ， 依赖 于 所 使 用 的 硬件 。 确实 存在 这 样 的 机 器 ， 
对 于 它们 ， 其 中 那个 “最 明显 的 ”实现 效率 更 低 一 些 。 例 如 ， 考 虑 一 种 机 器 ， 它 有 一 些 范围 很 广 的 对 数 和 反 
对 数 表 ， 以 某 种 非常 有 效 的 方式 存放 着 。 

2 统一 换 名 的 概念 实际 上 也 是 很 微妙 的 ， 很 难 形式 地 定义 好 。 一 些 著名 的 逻辑 学 家 也 在 这 里 犯 过 错误 。 
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们 的 名 字 与 <、-、abs 和 square 都 不 同 就 可 以 了 (如 果 将 guess 重 新 命名 为 abs ， 我 们 就 会 
因为 捕获 了 变量 名 abs 而 引进 了 一 个 错误 ， 因 为 这 样 做 就 把 一 个 原本 自由 的 名 字 变 成 约束 的 
了 )。good-enough? 的 意义 当然 与 其 中 的 自由 变量 有 关 ， 显 然 它 的 意义 依赖 于 (在 这 一 定 
义 之 外 的 ) 一 些 事实 : 要 求 符 号 abs 是 一 个 过 程 的 名 字 ， 该 过 程 能 求 出 一 个 数 的 绝对 值 。 如 
条 我 们 将 good-enough? 的 定义 里 的 abs 换 成 cos ， 它 计算 出 的 就 会 是 另 一 个 不 同 函 数 了 。 
内 部 定义 和 块 结构 
至 今 我 们 才 仅 仅 分 离 出 了 一 种 可 用 的 名 字 : 过 程 的 形式 参数 是 相应 过 程 体 里 的 局 部 名 字 。 
平方 根 程 序 还 展现 出 了 另 一 种 情况 ， 我们 也 会 希望 能 控制 其 中 的 名 字 使 用 。 现 在 这 个 程序 由 
几 个 相互 分 离 的 过 程 组 成 : 
(define (sqrt x) 
(sqrt-iter 1.0 x)) 
(define (sqrt-iter guess x) 
(if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) x))) 
(define (good-enough? guess x) 


(< (abs (- (Square guess) x)) 0.001)) 


(define (improve guess x) | 
(average guess (/ x guess))) 
问题 是 ， 在 这 个 程序 里 只 有 一 个 过 程 对 用 户 是 重要 的 ， 那 就 是 ， 这 里 所 定义 的 这 个 sqrt 确 实 
是 sqrt 。 其 他 的 过 程 (sqrt-iter、good-enough? 和 improve) 则 只 会 于 扰 他 们 的 思维 ， 
因为 他 们 再 也 不 能 定义 另 一 个 称 为 good-enough? 的 过 程 ， 作 为 需要 与 平方 根 程序 一 起 使 用 
的 其 他 程序 的 一 部 分 了 ， 因 为 现在 sqrt 需要 它 。 在 许多 程序 员 一 起 构造 大 系统 的 时 候 ， 这 一 
问题 将 会 变 得 非常 严重 。 举 例 来 说 ， 在 构造 一 个 大 型 的 数值 过 程 库 时 ， 许 多 数值 函数 都 需要 
计算 出 一 系列 的 近似 值 ， 因 此 我 们 就 可 能 希望 有 一 些 名 字 为 good-enough? 和 improve 的 过 
程 作 为 其 中 的 辅助 过 程 。 由 于 这 些 情 况 ， 我 们 也 希望 将 这 种 子 过 程 局 部 化 ， 将 它们 隐藏 到 
sqrt 里 面 ， 以 使 sqrt 可 以 与 其 他 采用 逐步 逼 进 的 过 程 共 存 ， 让 它们 中 的 每 一 个 都 有 上 自己 的 
9ood-enough? 过 程 。 为 了 使 这 一 方式 成 为 可 能 ,我 们 要 允许 一 个 过 程 里 带 有 一 些 内 部 定义 ， 
使 它们 是 局 部 于 这 一 过 程 的 。 例 如 ， 在 解决 平方 根 问题 时 ， 我 们 可 以 写 : 
(define (sqrt x) 
(define (good-enough? guess x) 
(< (abs (- (square guess) x)) 0.001)) 
(define (improve guess x) 
(average guess (/ x guess))) 
(define (sqrt-iter guess x) 
‘(if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) x))) 
(sqrt-iter 1.0 x)) 
这 种 嵌 套 的 定义 称 为 块 结构 ， 它 是 最 简单 的 名 字 包 装 问题 的 一 种 正确 解决 方式 。 实 际 上 ， 
在 这 里 还 潜藏 着 一 个 很 好 的 想法 。 除了 可 以 将 所 用 的 辅助 过 程 定义 放 到 内 部 ， 我 们 还 可 能 简 
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化 它们 。 因 为 X 在 sqgzt 的 定义 中 是 受 约束 的 ， 过 程 good-enough? improvefisqrt- 
itez 也 都 定义 在 sqrt 里 面 ， 也 就 是 说 ， 都 在 x 的 定义 域 里 。 这 样 ， 显 式 地 将 X 在 这 些 过 程 之 
间 传 来 传 去 也 就 没有 必要 了 。 我 们 可 以 让 x 作 为 内 部 定义 中 的 自由 变量 ， 如 下 所 示 。 这 样 ， 在 
外 围 的 sgrt 被 调用 时 ，Xx 由 实际 参数 得 到 自己 的 值 。 这 种 方式 称 为 词法 作用 域 。 
(define (sqrt x) | oe | 
(define (good-enough? guess) 
(< (abs (- (square guess) x)) 0.001)) 
(define (improve guess) 
(average guess (/ x guess))) 
(define (sqrt-iter guess) 
(if (good-enough? guess) 
guess 
(sqrt-iter (improve guess)))) 
(sqrt-iter 1.0)) | 
下 面 将 广泛 使 用 这 种 块 结构 ， 以 帮助 我 们 将 大 程序 分 解 成 一 些 容易 把 握 的 片段 ”。 决 结构 
的 思想 来 自 程序 设计 语言 Algol 60 ， 这 种 结构 出 现在 各 种 最 新 的 程序 设计 语言 里 ， 是 帮助 我们 
组 织 大 程序 的 结构 的 一 种 重要 工具 。 


1.2 过 程 与 它们 所 产生 的 计算 


我 们 现在 已 经 考虑 了 程序 设计 中 的 一 些 要 素 ， 使 用 过 许多 基本 的 算术 操作 ， 对 这 种 操作 
进行 组 合 ， 通 过 定义 各 种 复合 过 程 ， 对 复合 操作 进行 抽象 。 但 是 ， 即 使 是 知道 了 这 些 ， 我 们 
还 不 能 说 自己 已 经 理解 了 如 何 去 编 程序 。 我 们 现在 的 情况 就 像 是 在 学 下 象棋 的 过 程 中 的 一 个 
阶段 ， 此 时 已 经 知道 了 移动 棋子 的 各 种 规则 ， 但 却 还 不 知道 典型 的 开局 、 战 术 和 策略 。 就 像 
初学 象棋 的 人 们 那样 ， 我 们 还 不 知道 编程 领域 中 各 种 有 用 的 常见 模式 ， 缺 少 有 关 各 种 棋 步 的 
价值 (值得 定义 哪些 过 程 ) 的 知识 ， 缺 少 对 所 走 棋 步 的 各 种 后 果 (执行 一 个 过 程 的 效果 ) 做 
出 预期 的 经 验 。 o | 

能 够 看 清楚 所 考虑 的 动作 的 后 果 的 能 力 ， 对 于 成 为 程序 设计 专家 是 至 关 重 要 的 BRIX 
种 能 力 在 所 有 综合 性 的 创造 性 的 活动 中 的 作用 一 样 。 要 成 为 一 个 专业 摄影 家 ， 必 须 学 习 如 何 
去 考察 各 种 景象 ， 知 道 在 各 种 可 能 的 暴光 和 显影 选择 条 件 下 ， 景 象 中 各 个 区 域 在 影像 中 的 明 
暗 程度 。 只 有 在 此 之 后 ， 人 才能 去 做 反 向 推理 ， 对 取得 所 需 效果 应 该 做 的 取景 、 亮 度 、 曝 光 
和 显影 等 等 做 出 规划 。 在 程序 设计 里 也 一 样 ， 在 这 里 ， 我 们 需要 对 计算 过 程 中 各 种 动作 的 进 
行情 况 做 出 规划 ， 用 一 个 程序 去 控制 这 一 过 程 的 进展 。 要 想 成 为 专家 ， 我 们 就 需要 学 会 去 看 
清 各 种 不 同 种 类 的 过 程 会 产生 什么 样 的 计算 过 程 。 只 有 在 掌握 了 这 种 技能 之 后 ， 我 们 才能 学 
会 如 何 去 构 造 出 可 靠 的 程序 ， 使 之 能 够 表现 出 所 需要 的 行为 。 | | 

一 个 过 程 也 就 是 一 种 模式 ， 它 描述 了 一 个 计算 过 程 的 局 部 演化 方式 ， 描 述 了 这 一 计算 过 
程 中 的 每 个 步骤 是 怎样 基于 前 面 的 步 难 建 立 起 来 的 。 在 有 了 一 个 刻画 计算 过 程 的 过 程 描述 之 


2 词法 作用 域 要 求 过 程 中 的 自由 变量 实际 引用 外 围 过 程 定义 中 所 出 现 的 约束 ， 也 就 是 说 ， 应 该 在 定义 本 过 程 的 
环境 中 去 寻找 它们 。 我 们 将 在 第 3 章 看 到 这 种 规定 的 细节 工作 情况 ， 在 那里 我 们 将 要 研究 环境 的 概念 和 解释 器 
的 一些 行为 细节 。 

2 储 套 的 定义 必须 出 现在 过 程 体 之 前 。 如 果 我 们 运行 一 个 程序 ， 但 是 其 中 的 定义 与 使 用 混杂 在 一 起 ， 管 理 程序 
将 不 负 任何 责任 。 | Oe 
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后 ， 我 们 当然 希望 能 做 出 一 些 有 关 这 一 计算 过 程 的 整体 或 全 局 行为 的 论断 。 一 般 来 说 这 是 非 
常 困难 的 ， 但 我 们 至 少 还 是 可 以 试 着 去 描述 过 程 演化 的 一 些 典型 模式 。 

在 这 一 节 里 ， 我 们 将 考察 由 一 些 简 单 过 程 所 产生 的 计算 过 程 的 “形状 "， 还 将 研究 这 些 计 
算 过 程 消耗 各 种 重要 计算 资源 (时 间 和 空间 ) 的 速率 。 这 里 将 要 考察 的 过 程 都 是 非常 简单 的 ， 
它们 所 扮演 的 角色 就 像 是 摄影 术 中 的 测试 模式 ， 是 作为 极度 简化 的 摄影 模式 ， 而 其 自身 并 不 
是 很 实际 的 例子 。 
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图 1-3 计算 6! 的 线性 递归 过 程 
1.2.1 Seth ey ia VAAN HE 
首先 考虑 由 下 面 表达 式 定义 的 阶乘 国 数 ; 


ni=n-(n—1)-(n—-2) -3.2.1 
计算 阶乘 的 方式 有 许多 种 ， 一 种 最 简单 方式 就 是 利用 下 述 认识 : 对 于 一 个 正 整数 上 ，n! 就 等 于 
7? 乘 以 (n 一 1)!: 

nt=n- [(n —1) - (n—2) -3 -2 - 1] =n -(n—-1)! 

这 样 ， 我 们 就 能 通过 算出 (n 一 1) !， 并 将 其 结果 乘 久 m 的 方式 计算 出 必 。 如 果 再 注意 到 11! 就 是 
1， 这 些 认识 就 可 以 直接 翻译 成 一 个 过 程 了 : | 
(define (factorial n) | 
(if (=n 1) 


1 
(* n (factorial (- n 1))))) 


我 们 可 以 利用 1.1.5 节 介绍 的 代 换 模型 ， 观 看 这 一 过 程 在 计算 6! 时 表现 出 的 行为 ， 如 图 1-3 所 
o : 
现在 让 我 们 采用 另 一 种 不 同 的 观点 来 计算 阶乘 。 我 们 可 以 将 计算 阶乘 n! 的 规则 描述 为 : 
先 乘 起 1/ 和 2， 而 后 将 得 到 的 结果 乘 以 3， 而 后 再 乘 以 4， 这 样 下 去 直到 达到 n 。 更 形式 地 说 ， 我 
们 要 维持 着 一 个 变动 中 的 乘积 product ， 以 及 一 个 从 1 到 "的 计数 器 counter ， 这 一 计算 过 程 可 以 
描述 为 counter 和 product 的 如 下 变化 ， 从 一 步 到 下 一 步 ， 它 们 都 按照 下 面 规则 改变 : 

product — counter - product | . | 


counter — counter + 1 


ALAS BH, n! Rhee ithe counterit nh} Fe Aproduct Hy {A . 





我 们 又 可 以 将 这 一 描述 重 构 为 一 个 计算 阶乘 的 过 程 “: 
(define (factorial n) 
(fact-iter 1 1 n)) 


(define (fact-iter product counter max-count) 
(if (> counter max-count) 
product 
(fact-iter (* counter product) 
{+ counter 1) 
max-count ))) 


与 前 面 一 样 ， 我 们 也 可 以 应 用 替换 模型 来 查看 6! 的 计算 过 程 ， 如 图 1-4 所 示 。 


(factorial 
(fact-iter 
(fact-iter 
(fact-iter 
(fact-iter 
(fact-iter 
({fact-iter 
(fact-iter 
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图 1-4 计算 6! 的 线性 选 代 过 程 = 


现在 对 这 两 个 计算 过 程 做 一 个 比较 。 从 一 个 角度 看 ， 它 们 并 没有 很 大 差异 : 两 者 计算 的 
都 是 同一 个 定义 域 里 的 同一 个 数学 函数 ， 都 需要 使 用 与 x 正比 的 步骤 数目 去 计算 出 rx! 。 确 实 ， 
这 两 个 计算 过 程 甚至 采用 了 同样 的 乘 运算 序列 ， 得 到 了 同样 的 部 分 乘积 序列 。 但 在 另 一 方面 ， 
如 果 我 们 考虑 这 两 个 计算 过 程 的 “形状 "， 就 会 发 现 它 们 的 进展 情况 大 不 相同 。 

SAS UAE. 。 代 换 模 型 揭示 出 一 种 先 逐 步 展 开 而 后 收缩 的 形状 ， 如 图 1-3 中 的 稍 
头 所 示 。 在 展开 阶段 里 ， 这 一 计算 过 程 构造 起 一 个 推迟 进行 的 操作 所 形成 的 链条 《在 这 里 是 
一 个 乘法 的 链条 ) ， 收 缩 阶 段 表 现 为 这 些 运算 的 实际 执行 。 这 种 类 型 的 计算 过 程 由 一 个 推迟 执 
行 的 运算 链条 刻画 ， 称 为 一 个 递归 计算 过 程 。 要 执行 这 种 计算 过 程 ， 解 释 器 就 需要 维护 好 那 
些 以 后 将 要 执行 的 操作 的 轨迹 。 在 计算 阶乘 凡 时， 推迟 执行 的 乘法 链条 的 长 度 也 就 是 为 保存 
其 轨迹 需要 保存 的 信息 量 ， 这 个 长 度 随 着 n 值 而 线性 增长 (正比 于 n)， 就 像 计算 中 的 步 又 数目 
一 样 。 这 样 的 计算 过 程 称 为 一 个 线性 递归 过 程 。 

与 之 相对 应 ， 第 二 个 计算 过 程 里 并 没有 任何 增长 或 者 收缩 。 对 于 任何 一 个 %， 在 计算 过 程 
中 的 每 一 步 ， 在 我 们 需要 保存 轨迹 里 ， 所 有 的 东西 就 是 变量 product 、counter 和 和 max- 


2 在 实际 程序 里 ， 我 们 可 能 会 用 上 一 节 介 绍 的 块 结构 将 fact-itezr 的 定义 隐藏 起 来 : 


(define (factorial n) 
(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 


{iter 1 1)) . 
在 上 面 没有 这 样 做 ， 是 因为 希望 尽 可 能 减少 需要 同时 考虑 的 事项 。 
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count 的 当前 值 。 我 们 称 这 种 过 程 为 一 个 选 代 计 算 过 程 。 一 般 来 说 ， 和 迭代 计算 过 程 就 是 那 种 
其 状态 可 以 用 固定 数目 的 状态 变量 描述 的 计算 过 程 ， 而 与 此 同时 ， 又 存在 着 一 套 固定 的 规则 ， 
描述 了 计算 过 程 在 从 一 个 状态 到 下 一 状态 转换 上 时， 这些 变量 的 更 新 方式 ， 还 有 一 个 (可 能 有 
的 ) 结束 检测 ， 它 描述 这 一 计算 过 程 应 该 终止 的 条 件 。 在 计算 n! 时 ， 所 需 的 计算 步 又 随 着 n 线 
性 增长 ， 这 种 过 程 称 为 线性 迭代 过 程 。 

我 们 还 可 以 从 另 一 个 角度 来 看 这 两 个 过 程 之 则 的 对 比 。 在 迭代 的 情况 里 ， 在 计算 过 程 中 
的 任何 一 点 ， 那 几 个 程序 变量 都 提供 了 有 关 计 算 状 态 的 一 个 完整 描述 。 如 果 我 们 令 上 述 计算 
在 某 两 个 步骤 之 间 停 下 来 ， 要 想 重新 唤醒 这 一 计算 ， 只 需要 为 解释 器 提供 有 关 这 三 个 变量 的 
值 。 而 对 于 递归 计算 过 程 而 言 ， 这 里 还 存在 着 另外 的 一 些 “ 隐 含 ” 信 息 ， 它 们 并 未 保存 在 程 
序 变量 里 ， 而 是 由 解释 器 维持 着 ， 指 明 了 在 所 推迟 的 运算 所 形成 的 链条 里 的 漫游 中 , “这 一 计 
算 过 程 处 在 何 处 。 这 个 链条 越 长 ， 需 要 保存 的 信息 也 就 越 多 ”。 

在 做 迹 代 与 递归 之 间 的 比较 时 ， 我 们 必须 当心 ， 不 要 搞 混 了 递归 计算 过 程 的 概念 和 递归 
过 程 的 概念 。 当 我 们 说 一 个 过 程 是 递归 的 时 候 ， 论 述 的 是 一 个 语法 形式 上 的 事实 ， 说 明 这 个 
过 程 的 定义 中 (直接 或 者 间接 地 ) 引用 了 该 过 程 本 身 。 在 说 某 一 计算 过 程 具 有 某 种 模式 时 
(例如 ， 线 性 递归 )， 我 们 说 的 是 这 一 计算 过 程 的 进展 方式 ， 而 不 是 相应 过 程 书写 上 的 语法 形 
式 。 当 我 们 说 某 个 递归 过 程 (例如 fact-~iter) 将 产生 出 一 个 友 代 的 计算 过 程 时 ， 可 能 会 使 
人 感到 不 舒服 。 然 而 这 一 计算 过 程 确实 是 和 迭代 的 ， 因 为 它 的 状态 能 由 其 中 的 三 个 状态 变量 完 
全 刻画 ， 解 释 器 在 执行 这 一 计算 过 程 时 ， 只 需要 保持 这 三 个 变量 的 轨迹 就 足够 了 。 

区 分 计算 过 程 和 写 出 来 的 过 程 可 能 使 人 感到 困惑 ， 其 中 的 一 个 原因 在 于 各 种 常见 语言 
(包括 Ada 、Pascal 和 C ) 的 大 部 分 实现 的 设计 中 ， 对 于 任何 递归 过 程 的 解释 ， 所 需要 消耗 的 存 
储量 总 与 过 程 调 用 的 数目 成 正比 ， 即 使 它 所 描述 的 计算 过 程 从 原理 上 看 是 迭代 的 。 作 为 这 一 
事实 的 后 果 ， 要 在 这 些 语 言 里 描述 迭代 过 程 ， 就 必须 借助 于 特殊 的 “循环 结构 ， 如 do 、 
repeat、unti1l、for 和 while 等 等 。 我 们 将 在 第 5 章 里 考察 的 Scheme 的 实现 则 没有 这 一 缺 
陷 ， 它 将 总 能 在 常量 空间 中 执行 迭代 型 计算 过 程 ， 即 使 这 一 计算 是 用 一 个 递归 过 程 描述 的 。 
具有 这 一 特性 的 实现 称 为 尾 递 归 的 。 有 了 一 个 尾 递归 的 实现 ， 我 们 就 可 以 利用 常规 的 过 程 调 
用 机 制 表述 迭代 ， 这 也 会 使 各 种 复杂 的 专用 迭代 结构 变 成 不 过 是 一 些 语法 糖衣 了 ”。 

练习 1.9 下面 几 个 过 程 各 定义 了 一 种 加 起 两 个 正 整数 的 方法 ， 它 们 都 基于 过 程 inc (€ 
将 参数 增加 1 ) 和 dec ( 它 将 参数 减少 1).。 | 


(define (+ a b) 
(if (=a 0) 
b 
(ine (+ (dec a) b)))) 


(define (+ a b) 
(if (=a 0) 


30 在 第 5 童 里 ， 我 们 将 要 讨论 过 程 在 寄存 器 机 器 上 的 实现 ， 那 时 将 看 到 所 有 的 迭代 过 程 都 可 以 “以 硬件 的 方式 ” 
实现 为 一 个 机 器 ， 其 中 只 有 固定 数目 的 寄存 器 ， 无 须 任何 辅助 存储 器 。 与 这 种 情况 不 同 ， 要 实现 递归 计算 过 
程 ， 就 需要 一 种 机 器 ， 其 中 使 用 了 一 个 称 为 堆栈 的 辅助 数据 结构 。 

n 长 期 以 来 ， 尾 递归 一 直 被 看 作 一 种 编译 技巧 。 尾 递归 的 坚实 语义 基础 由 Carl Hewitt (1977) 提供 ， 他 用 计算 
的 “消息 传递 ”模型 解释 尾 递归 。 第 3 章 将 讨论 这 种 模型 。 在 该 工作 的 启发 下 ，Gerald Jay Sussman 和 Guy 
Lewis Steele Jr. ( 见 Steele 1975) 为 Scheme 构造 了 尾 递归 的 解释 器 。 Steele 后 来 证 明了 尾 递 归 是 编译 过 程 调用 
的 自然 方式 的 推论 (Steele 1977 ) 。Scheme 的 IJEEE 标 准 要 求 Scheme 解释 器 必须 是 尾 递 归 的 。 





b 
(+ (dec a) (inc b)))) 
请 用 代 换 模型 展示 这 两 个 过 程 在 求 值 (+4 5) 时 所 产生 的 计算 过 程 。 这 些 计算 过 程 是 递归 
的 或 者 迭代 的 吗 ? 
练习 1.10 下 面 过 程 计 算 一 个 称 为 Ackermanmn ch Re My RF AR : 
(define (a x y) 
(cond ((= y 0) 0) 
((= x 0) (* 2 y)) 
((= y 1) 2) 
(else (A (- x 1) 
(A x (- y 1)))))) 
下 面 各 表达 式 的 值 是 什么 : 
(A 1 10) 
(A 2 4) 
(A 3 3) 
请 考 虚 下 面 的 过 程 ， 其 中 的 A 就 是 上 面 定义 的 过 程 : 
(define (f n) (A 0 n)) 
(define (g n) (A 1 n)) 
(define {h n} (A 2 n)) 
(define (k n) (* 5 n n)) 


请 给 出 过 程 E 、g 和 h 对 给 定 整数 值 " 所 计算 的 函数 的 数学 定义 。 例 如 ，(k n) 计算 的 是 5m 。 
1.2.2 树 形 递 归 


另 一 种 常见 计算 模式 称 为 树 形 递归 。 作 为 例子 ， 现 在 考虑 斐 波 那 契 (Fibonacci) 数 序列 
的 计算 ， 这 一 序列 中 的 每 个 数 都 是 前 面 两 个 数 之 和 : 

0, 1, 1, 2, 3, 5, 8, 13, 21, --- 
fri, SERA RAAT 面 规则 定义 : 


0 如 果 n=0 
Fib(n) = 21 an n=l 
Fib(n -1)+Fib(n-2) ”否则 


我 们 马上 就 可 以 将 这 个 定义 翻译 为 一 个 计算 斐 波 那 契 数 的 递归 过 程 ; 
(define (fib n) 
(cond (({= n 0) 0) 
((= n 1) 1) 
(else (+ (fib (- n 1)) 
(fib (- n 2)))))) > 
考虑 这 一 计算 的 模式 。 为 了 计算 (fib 5) ， 我 们 需要 计算 出 (fib 4) 和 (fib 3). 
而 为 了 计算 (fib 4) ， 又 需要 计算 (fib 3) 和 (fib 2)。 一 般 而 言 ,这 一 展开 过 程 看 起 
来 像 一 棵 树 ， 如 图 1-5 所 示 。 请 注意 ， 这 里 的 每 层 分 裂 为 两 个 分 支 (除了 最 下 面 )， 反 映 出 对 








图 1-5 计算 (fib 5) 中 产生 的 树 形 递归 计算 过 程 


fib 过 程 的 每 个 调用 中 两 次 递归 调用 自身 的 事实 。 

上 面 过 程 作为 典型 的 树 形 递归 具有 教育 意义 ， 但 它 却 是 一 种 很 糟 的 计算 斐 波 那 契 数 的 方 
法 ， 因 为 它 做 了 太 多 的 宛 余 计算 。 在 图 1-5 中 , kK (fib 3) 差不多 是 这 里 的 一 半 工 作 ， 这 一 
计算 整个 地 重复 做 了 两 次 。 事 实 上 ， 不 难 证 明 ， 在 这 一 过 程 中 ,计算 (fib 1) 和 (fib 0) 
的 次 数 (一 般 说 ， 也 就 是 上 面 树 里 树叶 的 个 数 ) 正好 是 Fib(n +1)。 要 领会 这 种 情况 有 多 么 精 
糕 ， 我 们 可 以 证 明 Fib(z) 值 的 增长 相对 于 n 是 指数 的 。 更 准确 地 说 ( 见 练习 1.13) ，Fib(n) 就 是 
最 接近 如 / V5 的 整数 ， 其 中 : 

g=(1+4 4/5 )/2 ~1.6180 
就 是 黄金 分 割 的 值 ， 它 满足 方程 : 
=p+1 
这 样 ， 该 过 程 所 用 的 计算 步骤 数 将 随 着 输入 增长 而 指数 性 地 增长 。 在 另 一 方面 ， 其 空间 需求 
只 是 随 着 输入 增长 而 线性 增长 ， 因 为 ， 在 计算 中 的 每 一 点 ， 我 们 都 只 需 保 存 树 中 在 此 之 上 的 
结 点 的 轨迹 。 一 般 说 ， 树 形 递归 计算 过 程 里 所 需 的 步 时 数 将 正 Pa Fk 其 空间 需 
求 正 比 于 树 的 最 大 深度 。 

我 们 也 可 以 规划 出 一 种 计算 斐 波 那 契 数 的 迭代 计算 过 程 ， 其 基本 想法 就 是 用 一 一 对 整数 a 和 
b， 将 它们 分 别 初始 化 为 Fib(1) = 1 和 Fib(0) =0， 而 后 反复 地 同时 使 用 下 面 变换 规则 : 

aa +b 


` 


b—a 
不 难 证 明 ， 在 n 次 应 用 了 这 些 变 换 后 ，a 和 4b 将 分 别 等 于 Fib(n +1) 和 Fib(n)。 因 此 ， 我 们 可 以 用 
下 面 过 程 ， 以 迭代 方式 计算 斐 波 那 契 数 : 
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(define (fib n) 
(fib-iter 1 0 n)) 


(define (fib-iter a b count) 
(if (= count 0) 
b 
(fib-iter {+ a b) a (- count 1)))) 
计算 Fib(n) 的 这 种 方法 是 一 个 线性 迭代 。 这 两 种 方法 在 计算 中 所 需 的 步骤 上 差异 巨大 一 一 后 
一 方法 相对 于 n 为 线性 的 ， 前 一 个 的 增长 像 Fib(n) 一 样 快 ， 即 使 不 大 的 输入 也 可 能 造成 很 大 
的 差异 。 
但 是 我 们 也 不 应 做 出 结论 ， 说 树 形 递 归 计 算 过 程 根 本 没有 用 。 当 我 们 考虑 的 是 在 层次 结 
构 性 的 数据 上 操作 ， 而 不 是 对 数 操作 时 ， 将 会 发 现 树 形 递归 计算 过 程 是 一 种 自然 的 、 威 力 强 
大 的 工具 ?2。 即 使 是 对 于 数 的 计算 ， 树 形 递归 计算 过 程 也 可 能 帮助 我 们 理解 和 设计 程序 。 以 计 
算 斐 波 那 契 数 的 程序 为 例 ， 虽 然 第 一 个 fib 过 程 远 比 第 二 个 低 效 ， 但 它 却 更 加 直截了当 ， 基 
Be TAIN RS RRR PES. MEREU TERIE, MERI 
意 到 ， 这 一 计算 过 程 可 以 重新 塑造 为 一 个 采用 三 个 状态 变量 的 和 迭代。 


Gi wh. BERSAMA 

要 想得到 一 个 迭代 的 斐 波 那 契 算法 需要 一 点 点 智慧 。 与 此 相对 应 ， 现 在 考虑 下 面 的 问题 : 
给 了 半 美 元 、 四 分 之 一 美元 、10 美 分 、5 美 分 和 1 美 分 的 硬币 ， 将 1 美元 换 成 零钱 ， 一 共有 多 少 
种 不 同方 式 ? 更 一 般 的 问题 是 ， 给 定 了 任意 数量 的 现金 ， 我 们 能 写 出 一 个 程序 ， 计 算出 所 有 
换 零钱 方式 的 种 数 吗 ? 

采用 递归 过 程 ， 这 一 问题 有 一 种 很 简单 的 解法 。 假定 我 们 所 考虑 的 可 用 硬币 类 型 种 类 排 
了 某 种 顺序 ， 于 是 就 有 下 面 的 关系 : 

将 总 数 为 < 的 现金 换 成 2 种 硬币 的 不 同方 式 的 数目 等 于 

。 将 现金 数 x 换 成 除 第 一 种 硬币 之 外 的 所 有 其 他 硬币 的 不 同方 式 数 上 且 ， 加 上 

。 将 现金 数 a --d 换 成 所 有 种 类 的 硬币 的 不 同方 式 数 目 ， 其 中 的 d 是 第 一 种 硬币 的 币值 。 

要 问 为 什么 这 一 说 法 是 对 的 ， 请 注意 这 里 将 换 零钱 分 成 两 组 时 所 采用 的 方式 ， 第 一 组 里 
都 没有 使 用 第 一 种 硬币 ， 而 第 二 组 里 都 使 用 了 第 一 种 硬币 。 显 然 ， 换 成 零钱 的 全 部 方式 的 数 
目 ， 就 等 于 完全 不 用 第 一 种 硬币 的 方式 的 数目 ， 加 上 用 了 第 一 种 硬币 的 换 零钱 方式 的 数目 。 
而 后 一 个 数目 也 就 等 于 去 掉 一 个 第 一 种 硬币 值 后 ， 剩 下 的 现金 数 的 换 零 钱 方式 数目 。 

这 样 就 可 以 将 某 个 给 定 现金 数 的 换 零钱 方式 的 问题 ， 递 归 地 归 约 为 对 更 少 现金 数 或 者 更 
少 种 类 硬币 的 同一 个 问题 。 仔 细 考 虚 上 面 的 归 约 规则 ， 设 法 使 你 确信 ， 如 果 采 用 下 面 方式 处 
理 退 化 情况 ， 我 们 就 能 利用 上 面 规 则 写 出 一 个 算法 来 ”: | 

。 如 果 a 就 是 0 ， 应 该 算 作 是 有 1 种 换 零 钱 的 方式 。 

。 如 果 a 小 于 0， 应 该 算 作 是 有 0 种 换 零 钱 的 方式 。 

。 如 果 n 是 0 ， 应 该 算 作 是 有 0 种 换 零钱 的 方式 。 

我 们 很 容易 将 这 些 描述 翻译 为 一 个 递归 过 程 : 


(define (count- change amount) 


2 我 们 已 经 在 1.1.3 节 里 过 到 过 这 种 情况 的 例子 。 在 求 值 表达 式 时 ， 角 灵 本身 采 用 的 就是 柑 形 的 六 和 计算 过 各 
3 例如 ， 仔 细 地 将 上 述 归 约 规则 用 于 将 10 分 换 成 5 分 和 1 分 零钱 的 问题 。 





(cc amount 5)) 


(define (cc amount kinds-of-coins) 
(cond ((= amount 0) 1) 
((or (< amount 0) (= kinds-of-coins 0)) 0) 
(else (+ (cc amount 
(~ kKinds~-of-coins 1)) 
(cc (- amount 
(first-denomination kinds-of-coins) ) 


kinds-of~coins) )))) 


(define (first-denomination kinds-of-coins) 
(cond ((= kinds-of-coins 1) 1) 
((= kinds-of-coins 2) 5) 
((= kinds-of-coins 3) 10) > 
((= kinds-of-coins 4) 25) 
((= kinds-of-coins 5) 50))) | | 
(过 程 first-~-denomination 以 可 用 的 硬币 种 数 作为 输入 ， 返 回 第 一 种 硬币 的 币值 。 这 里 认 
为 硬币 已 经 从 最 大 到 最 小 排列 好 了 ， 其 实 采 用 任何 顺序 都 可 以 )。 我 们 现在 就 能 回答 开始 的 问 
题 了 了， 下面 是 换 1 美 元 硬币 的 不 同方 式 数目 : 
(count-change 100) 
292 


count-change 产 生出 一 个 树 形 的 递归 计算 过 程 ， 其 中 的 元 余 计算 与 前 面 fib 的 第 一 种 
实现 类 似 ( 它 计 算出 292 需 要 一 点 时 间 )。 在 另 一 方面 ， 要 想 设计 出 一 个 更 好 的 算法 ， 使 之 能 
算出 同样 结果 ， 就 不 那么 明显 了 。 我 们 将 这 一 问题 留 给 读者 作为 一 个 挑战 。 人 们 认识 到 ， 树 
形 递归 计算 过 程 有 可 能 极其 低 效 ， 但 常常 很 容易 描述 和 理解 ， 这 就 导致 人 们 提出 了 一 个 建议 ， 
希望 能 利用 世界 上 的 这 两 个 最 好 的 东西 。 人 们 希望 能 设计 出 一 种 “灵巧 编译 器 ， 使 之 能 将 一 
个 树 形 递归 的 过 程 翻译 为 一 个 能 计算 出 同样 结果 的 更 有 效 的 过 程 。 

练习 1.11 ”函数 矿 由 如 下 的 规则 定义 : WRN <3, BA Kn) =n; WMRn>3, AA fin) = 
fln 一 1) +2f(n -2)+3Kna 一 3)。 请 写 一 个 采用 递归 计算 过 程 计 算 了 的 过 程 。 再 写 一 个 采用 选 代 


计算 过 程 计算 三 的 过 程 。 
练习 1.12 ”下 面 数值 模式 称 为 帕斯卡 三 角形 ， 
1 

1 1 

121 

1 3 3 1 

146341 


M 对 付 元 祭 计 算 的 一 种 途径 是 通过 重新 安排 ， 使 计算 过 程 能 自动 构造 出 一 个 已 经 计算 出 的 值 的 表格 。 每 次 要 求 
对 某 一 参数 调用 过 程 时 ， 首 先 去 查看 这 个 值 是 否 已 在 表 里 ， 如 果 存 在 就 可 以 避免 重复 计算 。 这 一 策略 被 称 为 
表格 技术 或 记 亿 技术 ， 它 也 很 容易 实现 。 有 时 采用 表格 技术 可 以 将 原本 需要 指数 步骤 的 计算 过 程 (例如 
count-change) 转变 成 空间 和 时 间 和 需求 都 相对 于 输入 线性 增长 的 计算 过 程 。 参 见 练习 3.27。 
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三 角形 边界 上 的 数 都 是 1 ， 内 部 的 每 个 数 是 位 于 它 上 面 的 两 个 数 之 和 25。 请 写 一 个 过 程 ， 它 采 
用 递归 计算 过 程 计 算出 帕斯卡 三 角形 。 

练习 1.13 证明 Fib(n) 是 最 接近 4/ V5 的 整数 ， 其 中 g=(1+ V5)/2 。 提 示 : 利用 归纳 法 和 
SEE BB SATE SL ( 见 1.2.2 节 )， 证 明 Fib(m) =( 炙 一 7)/ V5。 


1.2.3. ”增长 的 阶 


前 面 一 些 例子 说 明 ， 不 同 的 计算 过 程 在 消耗 计算 资源 的 速率 上 可 能 存在 着 巨大 差异 。 描 
述 这 种 差异 的 一 种 方便 方式 是 用 增长 的 阶 的 记 法 ， 以 便 我 们 理解 在 输入 变 大 时 ， 某 一 计算 过 
程 所 需 资源 的 粗略 度量 情况 。 

令 n 是 一 个 参数 ， 它 能 作为 问题 规模 的 一 种 度量 ， 令 R(n) 是 一 个 计算 过 程 在 处 理 规 模 为 n 
的 问题 时 所 需要 的 资源 量 。 在 前 面 的 例子 里 ， 我 们 取 n 为 给 定 函数 需要 计算 的 那个 数 ， 当 然 也 
存在 其 他 可 能 性 。 例 如 ， 如 果 我 们 的 目标 是 计算 出 一 个 数 的 平方 根 的 近似 值 ， 那 么 就 可 以 将 n 
取 为 所 需 精 度 的 数字 个 数 。 对 于 和气 阵 乘法 ， 我 们 可 以 将 "到 为 矩阵 的 行 数 。 一 般 而 言 ， 总 存在 
着 某 个 有 关 问 题 特性 的 数值 ， 使 我 们 可 以 相对 于 它 去 分 析 给 定 的 计算 过 程 。 与 此 类 似 ，R(m) 
也 可 以 是 所 用 的 内 部 寄存 器 数目 的 度量 值 ， 也 可 能 是 需要 执行 的 机 器 操作 数目 的 度量 值 ， 或 
者 其 他 类 似 东西 。 在 每 个 时 刻 只 能 执行 因 定 数目 的 操作 的 计算 机 里 ， 所 需 的 时 间 将 正比 天 
要 执行 的 基本 机 器 指令 条 数 。 

我 们 称 R(n) RAON) 的 增长 阶 ， 记 为 R(n) =BYln))( 读 做 “fn) 的 theta”)， 如 果 存 在 
tn FE A Ako, E: 


kfn) <R(n) <kf(n) 


对 任何 足够 大 的 n 值 都 成 立 ( 换 名 话说， 对 足够 大 的 n ， 值 R(n) 总 位 于 kn) Aken) 之 间 )。 
举例 来 说 ， 在 1.2.1 节 中 描述 的 计算 阶乘 的 线性 递归 计算 过 程 里 ， 步 最 数目 的 增长 正比 于 
输入 。 也 就 是 说 ， 这 一 计算 过 程 所 需 步 又 的 增长 为 B(m) ， 其 空间 需求 的 增长 也 是 8(D)。 对 于 
迭代 的 阶乘 ， 其 步 数 还 是 B(m) 而 空间 是 8B(1) ， 即 为 一 个 常数 5%。 树 形 递归 的 斐 波 那 契 计算 需 
FOP) HAMON) 空间 ， 这 里 的 9 就 是 1.2.2 节 中 描述 的 黄金 分 割 率 。 

增长 的 阶 为 我 们 提供 了 对 计算 过 程 行为 的 一 种 很 粗略 的 描述 。 例 如 , 某 计 算 过 程 需要 必 步 ， 
另 一 计算 过 程 需要 1000n? 步 ， 还 有 一 个 计算 过 程 需要 3n? +10n+17 步 ， 它 们 增长 的 阶 都 是 
B(n*)。 但 在 另 一 方面 ， 增 长 的 阶 也 为 我 们 在 问题 规模 改变 时 ， 预 期 一 个 计算 过 程 的 行为 变化 
提供 了 有 用 的 线索 。 对 于 一 个 8(n) (线性 ) 的 计算 过 程 ， 规 模 增 大 一 倍 大 致 将 使 它 所 用 的 次 


55 帕斯卡 三 角形 的 元 素 又 称 为 二 项 式 系数 ， 因 其 中 第 " 行 就 是 (x+y) “的 展开 式 的 系数 。 计 算 这 些 系数 的 这 一 
模式 发 表 在 布 赖 斯 - 帕斯卡 有 关 概 率 论 的 开创 性 工作 “ 论 算术 三 角形 ”(Traitl du triangle arithmétique ) 中 。 
根据 Knuth (1973 )， 同 样 的 模式 也 出 现在 中 国 数学 家 朱 世 杰 于 1303 成 书 的 《四 元 玉 鉴 》， 还 出 现在 12 世 纪 波 
斯 诗人 和 数学 家 Omar Khayyam 的 论文 ， 以 及 12 世 纪 印 度数 学 家 Bhhscara Achirya 的 论文 中 。( 这 一 三 角形 也 称 
为 “页 宪 三 角形 ”( 页 宪 ， 宋朝 960.1127 年 ) 和 “杨辉 三 角形 ”( 杨辉 ，1261 ) ， 是 中 国 古 代数 学 的 辉煌 成 就 。 
-一 译 者 注 ) 

% 这 些 说 法 都 是 经 过 了 很 大 简化 。 例 如 ， 如 果 采 用 “机 器 操作 ”去 计算 步 数 ， 我 们 实际 上 就 做 了 一 个 假定 ， 候 
定 所 需 执行 的 各 种 机 器 操作 ， 例 如 执行 一 次 乘法 与 需要 乘 的 那 两 个 数 的 大 小 无 关 。 如 果 需 要 乘 的 数 非常 大 ， 
这 一 假定 实际 上 是 不 成 立 的 。 对 于 空间 的 估计 也 需要 做 类 似 的 说 明 。 与 计算 过 程 的 设计 和 描述 的 情况 类 似 ， 
对 于 计算 过 程 的 分 析 也 可 以 在 不 同 的 抽象 层次 上 进行 。 
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源 增加 了 一 倍 。 对 于 一 个 指数 的 计算 过 程 ， 问 题 规模 每 增加 1 都 将 导致 所 用 资源 按照 某 个 常数 
倍增 长 。 在 1.2 节 剩 下 的 部 分 ， 我 们 将 考察 两 个 算法 ， 其 增长 的 阶 都 是 对 数 型 增长 的 ， 因 此 ， 
当 问 题 规模 增 大 一 倍 时 ， 所 需 资 源 量 只 增加 一 个 常数 。 


练习 1.14 请 画 出 有 关 的 树 ， 展示 1.2.2 节 的 过 程 count-change 在 将 11 美 分 换 成 硬币 时 
所 产生 的 计算 过 程 。 相 对 于 被 换 现金 量 的 增加 ， 这 一 计算 过 程 的 空间 和 步 数 增长 的 阶 各 是 什 
么 ? | 

练习 1.15 EA (用 弧度 描述 ) x 足够 小 时 ， 其 正弦 值 可 以 用 sinx =x 计 算 ， 而 三 角 人 恒等式 : 


sinx =3 sinŽ -4sin? Ž 
3 3 


可 以 减 小 sin 的 参数 的 大 小 (为 完成 这 一 练习 ， 我 们 认为 一 个 角 是 “足够 小 ”"， 如 果 其 数值 不 大 
于 0.1 弧 度 )。 这 些 想 革 都 体现 在 下 述 过 程 中 : 

(define (cube x) (* x x x)) 

(define (p x) (- (* 3 x) (* 4 (cube x)))) 


(define (sine angle) 
{if (not (> (abs angle) 0.1)) 
angle 
(p (sine (/ angle 3.0))))) 


a) 在 求 值 (sine 12.15) 时 ，P 将 被 使 用 多 少 次 ? 
b) 在 求 值 (sine a) 时 ， 由 过 程 sine 所 产生 的 计算 过 程 使 用 的 空间 和 步 数 (作为 a 的 函 
数 ) 增长 的 阶 是 什么 ? 


12.4 RE 


现在 考虑 对 一 个 给 定 的 数 计 算 乘 寡 的 问题 ， 我 们 希望 这 一 过 程 的 参数 是 一 个 基数 和 一 个 
正 整 数 的 指数 x ， 过 程 计算 出 b"。 做 这 件 事 的 一 种 方式 是 通过 下 面 这 个 递归 定义 ; 


bp"=b . br! 
b=1 
它 可 以 直接 翻译 为 如 下 过 程 : 
(define (expt b n) 
(if (=n 0) 


1 
(* b (expt b (- n 1))))) 
这 是 一 个 线性 的 递归 计算 过 程 ， 需 要 6B(n) 步 和 B(n) 空间 。 就 像 阶乘 一 样 ， 我 们 很 容易 将 其 形 
式 化 为 一 个 等 价 的 线性 友 代 : 
(define (expt b n) 
(expt-iter b n 1)) 
(define (expt-iter b counter product) 
(if (= counter 0) 


product 
(expt-iter b 
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(- counter 1) 
(* b product) ))) 


这 一 版 本 需要 B(n) Hm) 空间 。 
我 们 可 以 通过 连续 求 平方 ， 以 更 少 的 步骤 完成 乘客 计算 。 例 如 ， 不 是 采用 下 面 这 样 的 方 
TURD 
b-(b-(b- (b-(b- (6 - (b-b) 
而 是 用 三 次 乘法 算出 它 来 : 
b=b.b 
pb4 一 六 2 .pb2 
b§ =b* - b* 
这 一 方法 对 于 指数 2 RA LA. ORR AP A, RT A ERR E 
H, HMR RHR.: 
b" = (b"?)? 若 n 是 偶数 
bp"=b.b"' Anke BH 
这 一 方法 可 以 定义 为 如 下 的 过 程 : 
(define (fast-expt b n) 
(cond ((= n 0) 1) | 
((even? n) (square (fast-expt b (/ n 2)))) 
(else (* b (fast-expt b (- n 1)))))) 
其 中 检测 一 个 整数 是 否 偶数 的 谓词 可 以 基于 基本 过 程 Yremainder 定 义 : 


(define (even? n) 
(= (remainder n 2) 0)) 


由 fast-expt 演 化 出 的 计算 过 程 ， 在 空间 和 步 数 上 相对 于 m 都 是 对 数 的 。 要 看 到 这 些 傅 次 ， 
请 注意 ， 在 用 fast-expt 计 算 和 2 时 ， 只 需要 比 计 算 六 多 做 一 次 乘法 。 每 做 一 次 新 的 乘法 ， 能 
够 计算 的 指数 值 (大 约 ) 增 大 一 倍 。 这 样 ， 计 算 指 数 上 所 需要 的 乘法 次 数 的 增长 大 约 就 是 以 2 
为 底 的 上 的 对 数值 ， 这 一 计算 过 程 增长 的 阶 为 Bdlog n)”. 

ngk, olog n) 增长 与 8(m) 增长 之 间 的 差异 也 会 变 得 非常 明显 。 例 如 对 n =1000， 
fast-expt 只 需要 14 次 乘法 *。 我 们 也 可 能 采用 连续 求 平方 的 想法 ， 设 计 出 一 个 具有 对 数 步 
数 的 计算 乘客 的 迭代 算法 ( 见 练习 1.16 )。 但 是 ， 就 像 迭 代 算 法 的 常见 情况 一 样 ， 写 出 这 一 算 
法 就 不 像 对 递归 算法 那样 直截了当 了” 。 

练习 1.16 请 定义 一 个 过 程 ， 它 能 产生 出 一 个 按照 和 迭代 方式 的 求 笑 计算 过 程 ， 其 中 使 用 一 
系列 的 求 平方 ， 就 像 一 样 fast~expt 只 用 对 数 个 步骤 那样 。( 提 示 : 请 利用 关系 OY = 
(52)"2 ， 除 了 指数 m 和 基数 5 之 外 ， 还 应 维持 一 个 附加 的 状态 变量 a， 并 定义 好 状态 变换 ， 使 得 


? 更 准确 地 说 ， 这 里 所 需 乘法 的 次 数 等 于 "的 以 2 为 底 的 对 数值 ， 再 加 上 "的 二 进 制 表示 中 1 的 个 数 减 1 。 这 个 值 总 
小 于 nn 的 以 2 为 底 的 对 数值 的 两 倍 。 对 于 对 数 的 计算 过 程 而 言 ， 在 阶 记 法 定义 中 的 任意 常量 kL 和 ka， 意味 着 对 数 
的 底 并 没有 关系 。 因 此 这 种 过 程 被 描述 为 8(log n). | | 

8 你 可 能 奇怪 什么 人 会 关心 去 求 数 的 1000 次 乘 敌 。 参 看 1.2.6 节 。 

2% 这 一 迭代 算法 也 是 一 个 古董 ， 它 出 现在 公元 前 200 年 之 前 Acharya Pingala 所 写 的 Chandah-sutra 里 。 有 关 求 天 的 
这 一 算法 和 其 他 算法 的 完整 讨论 和 分 析 ， 请 参看 Knuth 1981 的 4.6.3 节 。 





从 一 个 状态 转 到 另 一 状态 时 乘积 a "不 变 。 在 计算 过 程 开 始 时 令 a 取 值 1， 并 用 计算 过 程 结 束 时 
4 的 值 作为 回答 。 一 般 说 ， 定 义 一 个 不 变量 ， 要 求 它 在 状态 之 间 保 持 不 变 ， 这 一 技术 是 思考 和 迭 
代 算 法 设计 问题 时 的 一 种 非常 强 有 力 的 方法 。) 

练习 1.17 ”本 节 里 的 求 帮 算 法 的 基础 就 是 通过 反复 做 乘法 去 求 乘 医 。 与 此 类 似 ， 也 可 以 
通过 反复 做 加 法 的 方式 求 出 乘积 。 下 面 的 乘积 过 程 与 expt 过 程 类 似 (其 中 假定 我 们 的 语言 只 
有 加 法 而 没有 乘法 ): 

(define (* a b) 

(if (= b 0) 
0 
(+ a (* a (~ b 1))))) 

这 一 算法 具有 相对 于 b 的 线性 步 数 。 现 在 假定 除了 加 法 之 外 还 有 运算 Gouble， 它 能 求 出 一 个 
整数 的 两 倍 ; 还 有 halve， 它 将 一 个 (偶数 ) 除 以 2。 请 用 这 些 运算 设计 一 个 类 似 fast- 
expt 的 求 乘积 过 程 ， 使 之 只 用 对 数 的 计算 步 数 。 | 

练习 1.18 ”利用 练习 1.16 和 1.17 的 结果 设计 一 个 过 程 ， 它 能 产生 出 一 个 基于 加 、 加 倍 和 折 
半 运 算 的 迭代 计算 过 程 ， 只 用 对 数 的 步 数 就 能 求 出 两 个 整数 的 乘积 。 

练习 1.19 存在 着 一 种 以 对 数 步 数 求 出 斐 波 那 契 数 的 巧妙 算法 。 请 回忆 1.2.27fLb- 
iter 计 算 过 程 中 状态 变量 a 和 4b 的 变换 规则 ，a4a 一 a +b 和 b 一 4， 现 在 将 这 种 变换 称 为 变换 。 通 
过 观察 可 以 发 现 ， 从 1 和 0 开始 将 了 反复 应 用 次， 将 产生 出 一 对 数 Fib(a + 1 和 Fib(n) 。 换 句 话 
i, SER MRR (BAT HINT) 应 用 于 对 偶 (1, 0) 而 产生 出 来 。 现 在 将 [看 做 
ETRA Pp =0 且 4 =1 的 特殊 情况 FT, ee TO (a, b) Rabg + aq +ap 和 b 一 bp 
+a4 规 则 的 变换 。 请 证 明 ， 如 果 我 们 应 用 变换 Te 两 次 ， 其 效果 等 同 于 应 用 同样 形式 的 一 次 变 
MT yg, SMP 和 4 可 以 由 和 9 计算 出 来 。 这 就 指明 了 一 条 求 出 这 种 变换 的 平方 的 路 径 ， 使 
我 们 可 以 通过 连续 求 平方 的 方式 去 计算 T"， 就 像 fast-expt 过 程 里 所 做 的 那样 。 将 所 有 这 些 
集中 到 一 起 ， 就 形成 了 下 面 的 过 程 ， 其 运行 只 需要 对 数 的 步 数 ”: 


(define (fib n) 
(fib-iter 1001 n)) 


(define (fib-iter a b p q count) 
(cond ((= count 0) b) 
( (even? count) 
(fib-iter a 
b 


<??> . ; compute p' 
<77> ; compute q' 
(/ count 2))) 


(else (fib-iter (+ (* bq) (* aq) (* a p)) 
(+ (* Dp) (* a q)) 
P 


q 
(- count 1))))) 


4 这 一 算法 有 时 被 称 为 乘法 的 “俄罗斯 农民 的 方法 "， 它 的 历史 也 很 悠久 。 使 用 它 的 实例 可 以 在 菜 因 德 纸 草 书 
(Rhind Papyrus) 中 找到 ， 这 是 现存 最 悠久 的 两 份 数 学 文献 之 一 ， 由 一 位 名 为 Ah-mose 的 埃及 抄写 人 写 于 大 约 
公元 前 1700 年 (而且 是 另 一 份 年 代 更 久远 的 文献 的 复制 品 ) 。 

4 这 一 练习 是 Joy Stoy 给 我 们 建议 的 ， 基 于 在 Kaldewaij 1990 的 一 个 例子 。 





1.2.5 最 大 公约 数 


两 个 整数 4 和 b 的 最 大 公约 数 (GCD) 定义 为 能 除 尽 这 两 个 数 的 那个 最 大 的 整数 。 例 如 ， 
16 和 28 的 GCD 就 是 4 。 在 第 2 章 里 ， 当 我 们 要 去 研究 有 理 数 算术 的 实现 时 ， 就 会 需要 GCD ， 以 
便 能 把 有 理 数 约 化 到 最 简 形式 (要 将 有 理 数 约 化 到 最 简 形 式 ， 我 们 必须 将 其 分 母 和 分 子 同时 
除 掉 它们 的 GCD。 例 如 ，16/28 将 约 简 为 4/7 ) 。 找 出 两 个 整数 的 GCD 的 一 种 方式 是 对 它们 做 因 
数 分 解 ， 并 从 中 找 出 公共 因子 。 但 存在 着 一 个 更 高 效 的 著名 算法 。 

这 一 算法 的 思想 基于 下 面 的 观察 如果 "是 4 除 以 b 的 余数 ， 那 么 4 和 5 的 公约 数 正好 也 是 4 
的 的 公约 数 。 因 此 我 们 可 以 借助 于 等 式 : 

GCD(a, b) =GCD(b, r) 


这 就 把 一 个 GCD 的 计算 问题 连续 地 归 约 到 越 来 越 小 的 整数 对 的 GCD 的 计算 问题 。 例 如 : 
GCD(206, 40) =GCD(40, 6) 
=GCD(6, 4) 
=GCD(4, 2) 
=GCD(2, 0) 
=2 


将 GCD (206, 40) 归 约 到 GCD (2, 0) ， 最 终 得 到 2。 可 以 证 明 ， 从 任意 两 个 正 整数 开始 ， 反 复 执 
行 这 种 归 约 ， 最 终 将 产生 出 一 个 数 对 ， 其 中 的 第 二 个 数 是 0， 此 时 的 GCD 就 是 另 一 个 数 。 这 一 
计算 GCD 的 方法 称 为 欧 几 里 得 算法 ”。 
不 难 将 欧 几 里 得 算法 写成 一 个 过 程 : 
(define (gcd a b) 
(if (= b 0) 
(gcd b (remainder a b)))) 


这 将 产生 一 个 迭代 计算 过 程 ， 其 步 数 依 所 涉及 的 数 的 对 数 增长 。 
欧 儿 里 得 算法 所 需 的 步 数 是 对 数 增长 的 ， 这 一 事实 与 斐 波 那 契 数 之 间 有 一 种 有 趣 大 系 : 
Lam6 定 理 : 如 果 欧 几 里 得 算法 需要 用 k 步 计算 出 一 对 整数 的 GCD， 那 么 这 对 数 中 较 小 的 
那个 数 必然 大 于 或 者 等 于 第 kt 个 斐 波 那 契 数 ”。 


4 这 一 算法 称 为 欧 几 里 得 算法 ， 是 因为 它 出 现在 欧 几 里 得 的 《几何 原本 》(Elements ， 第 7 着 ， 大 约 为 公元 前 300 
年 )。 根 据 Knuth (1973) 的 看 法 ， 这 一 算法 应 该 被 认为 是 最 老 的 非 平 凡 算法 。 古 埃及 的 乘 方法 (练习 1.18) 
确实 年 代 更 久远， 但 按 Knuth 的 看 法 ， 欧 几 里 得 算法 是 已 知 的 最 早 描述 为 一 般 性 算法 的 东西 ， 而 不 是 仅仅 给 出 
一 集 示 例 。 

4 这 一 定理 是 1845 年 由 Gabriel Lamé 证 明 的 。Gabriel Lamé 是 法 国 数学 家 和 工程 师 ， 他 以 在 数学 物理 领域 的 贡献 
而 闻名。 为 了 证 明 这 一 定理 ， 考 虚数 对 序列 (ae bt) ， 其 中 at >b:， 假 设 欧 几 里 得 算法 在 第 步 结束 。 这 一 证 明 
基于 下 述 论断 ; 如 果 (at bi 1) 一 (ab bp 一 (Ge De) 是 归 约 序列 中 连续 的 三 个 数 对 ， 我 们 必然 有 b+! >b + br, 
为 验证 这 一 论断 ， 我 们 需要 注意 到 ， 这 里 的 每 个 归 约 步骤 都 是 通过 应 用 变换 at= b, bii 二 G4 除 以 bi 的 余数 。 
第 二 个 等 式 意味 着 at = qb tba, KH 的 9 是 某 个 正 整 数 。 因 为 9 至 少 是 1 ， 所 以 我 们 有 ak =qb; +b >b; 十 pt。 
但 在 前 面 一 个 归 约 步 中 有 bi41 ma, Wieb n =a >b, +bir。 这 就 证 明了 上 述 论断 。 现 在 就 可 以 通过 对 归纳 来 
证 明 这 一 定理 了 ， 假 设 k 是 算法 结束 所 需要 的 步 数 。 对 k=1 结 论 成 立 ， 因 为 此 时 不 过 是 要 求 5 不 小 于 Fib(1) =1。 
现在 假定 结果 对 所 有 小 于 等 于 k 的 整数 都 成 立 ， 让 我 们 来 设法 建立 对 +1 的 结果 。 令 Ge sts bea) 一 (Ge 2 一 
(ans On) 是 归 约 计算 过 程 中 的 几 个 连续 的 数 对 ， 我 们 有 >EFib(k 一 1 LAR, 之 Fib(k)。 这 样 ， 应 用 我 们 在 上 
面 已 证 明 的 论断 ， 再 根据 Fibonacci 数 的 定 L, RTLS Hbr 之 b+ by > Fib(h) + Fib(k 一 1) = Fib(k +1), xa 
完成 了 Lame 定 理 的 证 明 。 
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我 们 可 以 利用 这 一 定理 ， 做 出 欧 几 里 得 算法 的 增长 阶 估计 。 令 nn 是 作为 过 程 输入 的 两 个 数 
中 较 小 的 那个 ， 如 果 计 算 过 程 需 要 k 步 ， 那 么 我 们 就 一 定 有 nn SFib(k) ~ 和/ VS 。 这 样 ， 步 数 k 的 
增长 就 是 4 的 对 数 (对 数 的 底 是 $)。 这 样 ， 算 法 的 增长 阶 就 是 8(log n), 

练习 1.20 ”一 个 过 程 所 产生 的 计算 过 程 当然 依赖 于 解释 器 所 使 用 的 规则 。 作 为 一 个 例子 
考 虚 上 面 给 出 的 迭代 式 gcd 过 程 ， 假 定 解释 器 用 第 1.1.5 节 讨论 的 正则 序 去 解释 这 一 过 程 (对 
if 的 正则 序 求 值 规则 在 练习 1.5 中 描述 )。 请 采用 (正则 序 的 ) 代 换 方法 ， 展 示 在 求 值 表达 式 
(gcd 206 40) 中 产生 的 计算 过 程 ， 并 指明 实际 执行 的 remainder 运 算 。 在 采用 正则 序 求 
值 (ged 206 40) 中 实际 执行 了 多 少 次 remainder 运 算 ? 如 果 采 用 应 用 序 求 值 呢 ? 


1.2.6 实例 ， 素数 检测 


本 节 将 描述 两 种 检查 整数 4 是 否 素数 的 方法 ， 第 一 个 具有 B( Va) 的 增长 阶 ， 而 另 一 个 “ 概 
率 ” WIA O(log n 的 增长 阶 。 本 节 最 后 的 练习 提出 了 若干 基于 这 些 算法 的 编程 作业 。 


寻找 因子 | 
自古 以 来 ， 数 学 家 就 被 有 关 素 数 的 问题 所 吸引 ， 许 多 人 都 研究 过 确定 整数 是 否 素数 的 方 
法 。 检 测 一 个 数 是 否 素数 的 一 种 方法 就 是 找 出 它 的 因子 。 下 面 的 程序 能 找 出 给 定数 ”的 (KF 
1 的 ) 最 小 整数 因子 。 它 采用 了 一 种 直接 方法 ， 用 从 2 开始 的 连续 整数 去 检查 它们 能 否 整除 n。 
(define (smallest-divisor n) 
(find-divisor n 2)) 
(define (find-divisor n test-divisor) 
(cond ((> (square test-divisor) n) n) 
( (divides? test-divisor n) test-divisor) 


(else (find-divisor n (+ test-divisor DD 


(define (divides? a b) 
(= (remainder b a) 0)) 


我 们 可 以 用 如 下 方式 检查 一 个 数 是 否 素数 : n 是 素数 当 且 仅 当 它 是 自己 的 最 小 因子 : 


(define (prime? n) 
(= n (smallest-divisor n))) 


find-divisor 的 结束 判断 基于 如 下 事实 ， 如 果 n 不 是 素数 ， 它 必 ma TRE eT Si 
的 因子 4 ， 这 也 意味 着 该 算法 只 需 在 1 和 mn 之 间 检 查 因 子 。 由 此 可 知 ， 确 定 是 否 素数 所 需 的 
步 数 将 具有 B( Vn) 的 增长 阶 。 


费 马 检查 
O(log n) 的 素数 检查 基于 数论 沦 中 著名 的 费 马 小 定理 的 结果 


4 如 果 d 是 n 的 因子 ， 那 么 4/n 当 然 也 是 。 而 d 和 d/n 绝 不 会 都 大 于 Vn 。 
4 ie oe. 得 费 马 (1601 一 1665 ) BR RMA RH A, 他 得 出 了 次 多 有 关 数 论 的 重要 理论 结果 ， 但 他 通 
常 只 是 通告 这 些 结果 ， 而 没有 提供 证 明 。 费 马 小 定理 是 在 1640 年 他 所 写 的 一 封 信里 提 到 的 ， 公 开发 表 的 第 
一 个 证 明 由 欧 拉 在 1736 年 给 出 (更 早 一 些 ， 同 样 的 证 明 也 出 现在 莱 布 尼 获 的 未 发 表 的 手稿 中 ) 。 费 马 的 最 著 
名 结果 一 称 为 费 马 的 最 后 定理 一 是 1637 年 草草 写 在 他 所 读 的 书籍 《算术 》 里 (3 世纪 希腊 数学 家 丢 番 图 
记 著 ) ， 还 带 有 一 多 注释 “我 已 经 发 现 了 一 个 极其 美妙 的 证 明 ， 但 这 本 书 的 边栏 太 小 ， 无 法 将 它 写 在 这 里 ”。 
找 出 费 马 最 后 定理 的 证 明成 为 数论 中 最 著名 的 挑战 。 JE ME A I LS ， 怀 尔 斯 在 
1995 年 给 出 。 | 
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费 马 小 定理 : 如 果 n 是 一 个 素数 ，a 是 小 于 n 的 任意 正 整 数 ， 那 么 4 的 n 次 方 与 4 模 n 同 余 。 
(两 个 数 称 为 是 模 n 同 余 ， 如 果 它 们 除 以 4 的 余数 相同 。 数 a 除 以 4 的 余数 称 为 4 取 模 n 的 余数 ,或 
简称 为 4 取 模 n ) 。 | 

如 果 n 不 是 素数 ， 那 么 ， 一 般 而 言 ， 大 部 分 的 a <n 都 将 满足 上 面 关 系 。 这 就 引出 了 下 面 这 
个 检查 素数 的 算法 对 于 给 定 的 整数 + ， 随 机 任 取 一 个 a<n 并 计算 出 a" 取 模 n 的 余数 。 如 果 得 
到 的 结果 不 等 于 a， 那 么 n 就 肯定 不 是 素数 。 如 果 它 就 是 4 ， 那 么 "是 素数 的 机 会 就 很 大 。 现 在 
再 另 取 一 个 随机 的 a 并 采用 同样 方式 检查 。 如 果 它 满足 上 述 等 式 ， 那 么 我 们 就 能 对 n 古 素数 有 
更 大 的 信心 了。 通过 检查 越 来 越 多 的 g 值 ， 我 们 就 可 以 不 断 增加 对 有 关 结 果 的 信心 。 这 一 算法 
称 为 费 马 检查 。 

为 了 实现 费 马 检查 ， 我 们 需要 有 一 个 过 程 来 计算 一 个 数 的 需 对 另 一 个 数 取 模 的 结 采 : 


(define (expmod base exp m) 
(cond ((= exp 0) 1) 
((even? exp) 
(remainder (square (expmod base (/ exp 2) m)) 
m) ) 
(else 
(remainder (* base (expmod base (- exp 1) m)) 
m)))) 
这 个 过 程 很 像 1.2.4 节 的 East-expt 过 程 ， 它 采用 连续 求 平方 的 方式 ， 使 相对 于 计算 中 指数 ， 
步 数 增长 的 阶 是 对 数 的 “。 
执行 费 马 检查 需要 选取 位 于 1 和 n 一 1 之 间 (包含 这 两 者 ) 的 数 a4， 而 后 检查 4 的 n 次 笑 取 模 n 
的 余数 是 否 等 于 a。 随 机 数 a 的 选取 通过 过 程 random 完 成 ， 我 们 假定 它 已 经 包含 在 Scheme 的 
基本 过 程 中 ， 它 返回 比 其 整数 输入 小 的 某 个 非 负 整数 。 这 样 ， 要 得 到 1 和 n 一 1 之 间 的 随机 数 ， 
只 需 用 输入 n 一 1 去 调用 ranGom， 并 将 结果 加 1 ; i 
(define (fermat-test n) 
(define (try-it a) 
(= (expmod a n n) a)) 
(try-it (+ 1 (random (- n 1))))) 
下 面 这 个 过 程 的 参数 是 某 个 数 ， 它 将 按照 由 另 一 参数 给 定 的 次 数 运 行 上 述 检查 MRE 
次 检查 都 成 功 ， 这 一 过 程 的 值 就 是 真 ， 否 则 就 是 假 : 
(define (fast-prime? n times) 
(cond ((= times 0) true) 


((fermat-test n) (fast-prime? n (- times 1))) 
(else false))) 


概率 方法 
从 特征 上 看 ， 费 马 检查 与 我 们 前 面 已 经 熟悉 的 算法 都 不 一 样 。 前 面 那些 算法 都 保证 计算 
的 结果 一 定 正 确 ， 而 费 马 检 查 得 到 的 结果 则 只 有 概率 上 的 正确 性 。 说 得 更 准确 些 ， 如 果 数 "不 


4 对 于 指数 值 e 大 于 1 的 情况 ， 所 采用 归 约 方式 是 基于 下 面 事 实 : 对 任意 的 +-、y 和 m， 我 们 总 可 以 通过 分 别 计算 x 
到 模 m 和 y 取 模 m ， 而 后 将 它们 羔 起 来 之 后 取 覆 mn， 得 到 * 乘 y 取 模 的 余数 。 例 如 ， 在 e 是 偶数 时 ， 我 们 计算 多” 取 
模 m 的 余数 ， 求 它 的 平方 ， 而 后 再 求 它 取 模 m 的 余数 。 这 种 技术 非常 有 用 ， 因 为 它 意味 着 我 们 的 计算 中 不 需要 
去 处 理 比 m 大 很 多 的 数 (请 与 练习 1.25 比 较 )。 





能 通过 费 马 检查 ， 我 们 可 以 确信 它 一 定 不 是 素数 。 而 n 通 过 了 这 一 检查 的 事实 只 能 作为 它 是 素 
数 的 一 个 很 强 的 证 据 ， 但 却 不 是 对 n 为 素数 的 保证 。 我 们 能 说 的 是 ， 对 于 任何 数 x*， 如 果 执 行 
这 一 检查 的 次 数 足 够 多 ， 而 且 看 到 "通过 了 检查 ， 那 么 就 能 使 这 一 素数 检查 出 错 的 概率 减 小 到 
所 需要 的 任意 程度 。 

不 幸 的 是 ， 这 一 断言 并 不 完全 正确 。 因为 确实 存在 着 一 些 能 骗 过 费 马 检查 的 整数 ， 某 些 
数 n 不 是 素数 但 却 具有 这 样 的 性 质 ， 对 任意 整数 a <n， 都 有 a" 与 4 模 n 同 余 。 由 于 这 种 数 极其 罕 
见 ， 因 此 费 马 检查 在 实践 中 还 是 很 可 靠 的 ' 。 也 存在 着 一 些 费 马 检查 的 不 会 受骗 的 变形 ， 它 们 
也 像 费 马 方法 一 样 ， 在 检查 整数 ?是否 为 素数 时 ， 选 择 随机 的 整数 gz <n 并 去 检查 某 些 依赖 于 n 
和 a 的 关系 (练习 1.28 是 这 类 检查 的 一 个 例子 )。 另 一 方面 ， 与 费 马 检查 不 同 的 是 可 以 证 明 ， 
对 任意 的 数 n+， 相 应 条 件 对 整数 a <n 中 的 大 部 分 都 不 成 立 ， 除 非 n 是 素数 。 这 样 ， 如 果 n 对 某 个 
随机 选 出 的 a 能 通过 检查 ，n 是 素数 的 机 会 就 大 于 一 半 。 如 果 n 对 两 个 随机 选择 的 a 能 通过 检查 ， 
n 是 素数 的 机 会 就 大 于 四 分 之 三 。 通 过 用 更 多 随机 选择 的 a 值 运行 这 一 检查 ， 我 们 可 以 使 出 现 
错误 的 概率 减 小 到 所 需要 的 任意 程度 。 | 

能 够 证 明 ， 存 在 着 使 这 样 的 出 错 机 会 达到 任意 小 的 检查 算法 ， 激 发 了 人 们 对 这 类 算法 的 
极 大 兴趣 ， 已 经 形成 了 人 所 共 知 称 为 概率 昔 法 的 领域 。 在 这 一 领域 中 已 经 有 了 大 量 研 究 工作 ， 
概率 算法 也 已 被 成 功 地 应 用 于 许多 重要 领域 ”。 

练习 1.21 使 用 smallest-divisor 过 程 找 出 下 面 各 数 的 最 小 因子 : 199、1999 、19999 。 

练习 1.22 大 部 分 Lisp 实现 都 包含 一 个 runtime 基 本 过 程 ， 调 用 它 将 返回 一 个 整数 ， 表 示 
系统 已 经 运行 的 时 间 (例如 ， 以 微 秒 计 )。 在 对 整数 4 调用 下 面 的 timed-prime-test 过 程 
时 ， 将 打印 出 x 并 检查 4 是否 为 素数 。 如 果 n 是 素数 ， 过 程 将 打印 出 三 个 星 号 ， 随 后 是 执行 这 一 
检查 所 用 的 时 间 量 。 

(define (timed-prime-test n) 

(newline) 


(display n) 
(start-prime-test n (runtime) )) 


(define (start-prime-test n start-time) 
(if (prime? n) 
(report-prime (~ (runtime) start-time)))) 


(define (report-prime elapsed-time) 
(display " *** ") 
(display elapsed-time) ) 


请 利用 这 一 过 程 写 一 个 search~for-primes 过 程 ， 它 检查 给 定 范 转 内 连续 的 各 个 奇数 的 


4 能 够 骗 过 费 马 检查 的 数 称 为 Carmichael 数 ， 我 们 对 它们 知之 其 少 ， 只 知 其 非常 罕见 。 在 100 000 000 之 内 有 255 
个 Carmichael 数 ， 其 中 最 小 的 几 个 是 561 、1105 、1729、2465 、2821 和 6601 。 在 检查 很 大 的 数 是 否 为 素数 时 ， 
所 用 选择 是 随机 的 。 撞 上 能 欺骗 费 马 检查 的 值 的 机 会 比 字 宙 射 线 导致 计算 机 在 执行 “正确 ”算法 中 出 错 的 机 
会 还 要 小 。 对 算法 只 考虑 第 一 个 因素 而 不 考虑 第 二 个 因素 恰好 表现 出 数学 与 工程 的 不 同 。 

4 概率 素数 检查 的 最 惊人 应 用 之 一 是 在 密码 学 的 领域 中 。 虽 然 完 成 200 位 数 的 因数 分 解 现在 在 计算 上 还 是 不 现实 
的 ， 但 用 费 马 检查 却 可 以 在 几 秒 钟 内 判断 这 么 大 的 数 的 素性 。 这 一 事实 成 为 Rivest、Shamir 和 Adleman (1977 ) 
提出 的 一 种 构造 “不 可 摧毁 的 密码 ”的 技术 基础 ， 这 一 RSA 算 法 已 成 为 提高 电子 通信 安全 性 的 一 种 使 用 三 还 
的 技术 。 因 为 这 项 研究 和 其 他 相关 研究 的 发 展 ， 素 数 研 究 这 一 曾 被 认为 是 “纯粹 ”数学 的 缩影 ， 是 仅仅 因为 
其 自身 原因 而 被 研究 的 课题 ,现在 已 经 变 成 在 密码 学 、 电 子 资 金 流通 和 信息 查询 领域 里 有 重要 实际 应 用 的 问 


题 了 。 
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素性 。 请 用 你 的 过 程 找 出 大 于 1 000 、 大 于 10 000, AF100 000 和 大 于 1 000 000 的 三 个 最 小 
的 素数 。 请 注意 其 中 检查 每 个 素数 所 需要 的 时 间 。 因 为 这 一 检查 算法 具有 B( Vn) 的 增长 阶 ， 
你 可 以 期 望 在 10 000 附 近 的 素数 检查 的 耗 时 大 约 是 在 1 000 附 近 的 素数 检查 的 V10 倍 。 你 得 到 
的 数据 确实 如 此 吗 ? 对 于 100 000 和 1 000 000 得 到 的 数据 ， 对 这 一 Vn 预测 的 支持 情况 如 何 ? 
有 人 说 程序 在 你 的 机 器 上 运行 的 时 间 正 比 于 计算 所 需 的 步 数 ， 你 得 到 的 结果 符合 这 种 说 法 

练习 1.23 ”在 本 节 开 始 时 给 出 的 那个 smallest-divisor 过 程 做 了 许多 无 用 检查 EE 
检查 了 一 个 数 是 否 能 被 2 整除 之 后 , 实际 上 已 经 完全 没 必要 再 检查 它 是 否 能 被 任何 偶数 整除 了 。 
这 说 了 明 est-dqivisor 所 用 的 值 不 应 该 是 2，3，4，3，0，.…， 而 应 该 是 2，3，3，7，9，…。 
请 实现 这 种 修改 。 其 中 应 定义 一 个 过 程 next ， 用 2 调用 时 它 返 回 3， 人 否则 就 返回 其 输入 值 加 。 
修改 smallest-divisor 过 程 ， 使 它 去 使 用 (next test-divisor) 而 不 是 (+test- 
divisor 1), ittimed-prime-test 结 合 这 个 smallest~divisor 版 本 ， 运 行 练 习 1.22 
里 的 12 个 找 素数 的 测试 。 因 为 这 一 修改 使 检查 的 步 数 减少 一 半 ， 你 可 能 期 望 它 的 运行 速度 快 
一 倍 。 实 际 情况 符合 这 一 预期 吗 ? 如 果 不 符合 ， 你 所 观察 到 的 两 个 算法 速度 的 比值 是 什么 ? 
你 如 何 解释 这 一 比值 不 是 “的 事实 ? | 

练习 1.24 ”修改 练习 1.22 的 timed-prime-test 过 程 ， 让 它 使 用 fast~prime? (#5 
方法 ) ， 并 检查 你 在 该 练习 中 找 出 的 12 个 素数 。 因 为 费 马 检 查 具 有 B(1og n) 的 增长 速度 ， 对 
接近 1 000 000 的 素数 检查 与 接近 1000 的 素数 检查 作对 期 望 时 间 之 间 的 比较 有 怎样 的 预期 ? 你 
的 数据 确实 表明 了 这 一 预期 吗 ? 你 能 解释 所 发 现 的 任何 不 符合 预期 的 地 方 吗 ? 

练习 1.25 Alyssa P. Hacker 提 出 ， 在 写 expmod 时 我 们 做 了 过 多 的 额外 工作 。 她 说 Hes 
我 们 已 经 知道 怎样 计算 乘 寡 ， 因 此 只 需要 向 单 地 写 : 


(define (expmod base exp m) 
(remainder (fast-expt base exp) m)) 


她 说 的 对 吗 ? 这 一 过 程 能 很 好 地 用 于 我 们 的 快速 素数 检查 程序 吗 ? 请 解释 这 些 问题 。 
练习 1.26 Louis Reasoner 在 做 练习 1.24 时 遇 到 了 很 大 困难 ， 他 的 fast-prime? 检 查看 起 
来 运行 得 比 他 的 prime? 检 查 还 慢 。Louis 请 他 的 朋友 Eva Lu Ator 过 来 帮忙 。 在 检查 Louls 的 代 
码 时 ， 两 个 人 发 现 他 重 写 了 expmod 过 程 ， 其 中 用 了 一 个 显 式 的 乘法 ， 而 没有 调用 square: 
(define (expmod base exp m) 
(cond ((= exp 0) 1) 
( (even? exp) 
(remainder (* (expmod base (/ exp 2) m) 
(expmod base (/ exp 2) m)) 
m) ) 
(else 
(remainder (* base (expmod base (- exp 1) m)) 
. m)))) 7 | 
“我 看 不 出 来 这 会 造成 什么 不 同 ,”Louis 说 。“ 我 能 看 出 ,”Eva 说 ,“ 采 用 这 种 方式 写 出 该 过 程 
时 ， 你 就 把 一 个 8@(log n) 的 计算 过 程 变 成 G6(n) 的 了 。” 请 解释 这 一 问题 。 
练习 1.27 ”证 明 脚 注 47 中 列 出 的 Carmichael 数 确实 能 骗 过 费 马 检 查 。 也 就 是 说 ， 写 一 个 过 
程 ， 它 以 整数 4 为 参数 ， 对 每 个 a <m 检 查 必 是 否 与 4 模 n 同 余 。 用 你 的 过 程 去 检查 前 面 给 出 的 那 
此 Carmichael 数 。 | wo 
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练习 1.28 费 马 检查 的 一 种 不 会 被 欺骗 的 变形 称 为 Miller-Rabin 检 查 (Miller 1976: Rabin 
1980 )， 它 来 源 于 费 马 小 定理 的 一 个 变形 。 这 一 变形 断言 ， 如 果 n 是 素数 ，a 是 任何 小 于 n 的 整 
数 ， 则 4 的 (n 一 1) 次 等 与 1 模 2 同 余 。 要 用 Miller-Rabin 检 查考 察 数 ?的 素性 ， 我 们 应 随机 地 取 -- 
个 数 a <n 并 用 过 程 expmod 求 4 的 (n~ 1) ue A. Ai, 在 执行 expmod 中 的 平方 步骤 时 ， 
A Ae ee SIT “Lin FE eR”, RR, BORER SFI RE 一 
1 的 数 ， 其 平方 取 模 2 等 于 1 。 可 以 证 明 ， 如 果 1 的 这 种 非 平 几 平 方 根 存在 ， 那 么 n 就 不 是 素数 。 
还 可 以 证 明 ， 如 果 n 是 非 素 数 的 奇数 ， 那 么 ， 至 少 有 一 半 的 数 a <n， 按照 这 种 方式 计算 a”!， 
将 会 遇 到 1 取 模 ?的 非 平凡 平方 根 。 这 也 是 Miller-Rabin 检 查 不 会 受骗 的 原因 。 请 修改 expmod 
过 程 ， 让 它 在 发 现 1 的 非 平凡 平方 根 时 报告 失败 ， 并 利用 它 实 现 一 个 类 似 于 fermat-test 的 
we, ， 完 成 Miller-Rabin 检查 。 通 过 检查 一些 忆 知 素数 和 非 素 数 的 方式 考验 你 的 过 程 。 提示 : 
送出 失败 信号 的 一 种 简单 方式 就 是 让 它 返 回 0。 


1.3 用 高 阶 函 数 做 抽象 


我 们 已 经 看 到 ， 在 作用 上 ， 过程 也 就 是 一 类 抽象 ， 它 们 描述 了 一 些 对 于 数 的 复合 操作 ， 
但 又 并 不 依赖 于 特定 的 数 。 例 如 ， 在 定义 : 

(define (cube x) (* x x x)) 
时 ， 我 们 讨论 的 并 不 是 某 个 特定 数值 的 立方 ， 而 是 对 任意 的 数 得 到 其 立方 的 方法 。 当 然 ， 我 
们 也 完全 可 以 不 去 定义 这 一 过 程 ， 而 总 是 号 出 下 面 这 样 的 表达 式 : 

(* 3 3 3) 

(* X x X) 

(* yy y) : . Ea 
JER BA abd Hcube, E, RRA CRF MER MRR, BERN Ao EE 
言 恰好 提供 了 的 那些 特定 基本 操作 (例如 这 里 的 乘法 ) 的 层面 上 工作 ， 而 不 能 基于 更 高 级 的 
操作 去 工作 。 我 们 写 出 的 程序 也 能 计算 立方 ,但 是 所 用 的 语言 却 不 能 表述 立方 这 一 概念 。 人 
们 对 功能 强大 的 程序 设计 语言 有 一 个 必然 要 求 ， 就 是 能 为 公共 的 模式 命名 ， 建 立 抽 象 ， 而 后 
直接 在 抽象 的 层次 上 工作 。 过 程 提供 了 这 种 能 力 ， 这 也 是 为 什么 除 最 简单 的 程序 语言 外 ， 其 
他 语言 都 包含 定义 过 程 的 机 制 的 原因 。 s 

然而 ， 即 使 在 数值 计算 过 程 中 ， 如 果 将 过 程 限 制 为 只 能 以 数 作为 参数 ， 那 也 会 严重 地 限 
制 我 们 建立 抽象 的 能 力 。 经 常 有 一 些 同样 的 程序 设计 模式 能 用 于 若干 不 同 的 过 程 。 为 了 把 这 
种 模式 描述 为 相应 的 概念 ， 我 们 就 需要 构造 出 这 样 的 过 程 ， 让 它们 以 过 程 作为 参数 ， 或 者 以 
过 程 作为 返回 值 。 这 类 能 操作 过 程 的 过 程 称 为 高 阶 过 程 。 本 节 将 展示 高 阶 过 程 如 何 能 成 为 强 
有 力 的 抽象 机 制 ， 极 大 地 增强 语言 的 表述 能 力 。 


1.3.1 过 程 作 为 参数 
考虑 下 面 的 三 个 过 程 ， 第 一 个 计算 从 a 到 b 的 各 整数 之 和 : 


(define (sum-integers a b) 
(if (> a b) 
0 
(+ a (sum-integers (+ a1) b)))) 





第 二 个 计算 给 定 范围 内 的 整数 的 立方 之 和 : 
(define (sum-cubes a b) 
(if (> a b) 
0 
(+ (cube a) (sum~cubes (+ a 1) b)))) 
第 三 个 计算 下 面 的 序列 之 和 : 
1 
13 5-7 91 
EK (非常 缓慢 地 ) 收敛 ”到 my/8 : 
(define (pi-sum a b) 
(if (> a b) 
0 
(+ (/ 1.0 (* a (+ a 2))) (pi-sum (+ a 4) b)))) 
可 以 明显 看 出 ， 这 三 个 过 程 共享 着 一 种 公共 的 基础 模式 。 它 们 的 很 大 一 部 分 是 共同 的 ， 
只 在 所 用 的 过 程 名 字 上 不 一 样 : 用 于 从 a 算 出 需要 加 的 项 的 函数 ， 还 有 用 于 提供 下 一 个 a 值 的 
函数 。 我 们 可 以 通过 填充 下 面 模板 中 的 各 空位 ， 产 生出 上 面 的 各 个 过 程 : 
(define (<name> a bD) 
(if (> a b) 
0 
(+ (<term> a) 
| (<name> {<next> a) b))})}? 
这 种 公共 模式 的 存在 是 一 种 很 强 的 证 据 ， 说 明 这 里 实际 上 存在 着 一 种 很 有 用 的 抽象 ， 在 
那里 等 着 浮现 出 来 。 确 实 ， 数 学 家 很 早 就 认识 到 序列 求 和 中 的 抽象 模式 ， 并 提出 了 专门 的 
“RANI eK”, PRO: 


Ş f(a) = fla)+--+ f(b) 


用 于 描述 这 一 概念 。 求 和 记 法 的 威力 在 于 它 使 数学 家 能 去 处 理 求 和 的 概念 本 身 ， 而 不 只 是 某 
个 特定 的 求 和 -- 一 例如 ， 借 助 它 去 形式 化 某 些 并 不 依赖 于 特定 求 和 序列 的 求 和 结果 。 

与 此 类 似 ， 作 为 程序 模式 ， 我 们 也 希望 所 用 的 语言 足够 强大 ， 能 用 于 写 出 一 个 过 程 & 
表述 求 和 的 概念 ， 而 不 是 只 能 写 计算 特定 求 和 的 过 程 。 我 们 确实 可 以 在 所 用 的 过 程 语 言 中 做 
到 这 些 ， 只 要 按照 上 面 给 出 的 模式 ， 将 其 中 的 “空位 ”翻译 为 形式 参数 : 

(define (sum term a next b) 

(if (> a b) 
0 


(+ (term a) 
(sum term (next a) next b)))}) 


请 注意 ，sum 仍 然 以 作为 下 界 和 上 界 的 参数 a 和 b 为 参数 ， 但 是 这 里 又 增加 了 过 程 参 数 term 和 
next ， 使 用 sum 的 方式 与 其 他 函数 完全 一 样 。 例 如 ， 我 们 可 以 用 它 去 定义 sum-cubes (还 
需要 一 个 过 程 inc ， 它 得 到 参数 值 加 一 ): 


4 这 一 序列 通常 被 写成 与 之 等 价 的 形式 (mW4) =1- (1/3) + (1/5) — (1/7) +…。 这 归功 于 莱 布 尼 医 。 我 们 
将 在 3.5.3 节 看 到 如 何 用 它 作 为 某 些 数值 技巧 的 基础 。 
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(define (inc n) (+ n 1)) 
(define (sum-cubes a b) 


(sum cube a inc b)) 


我 们 可 以 用 这 个 过 程 算出 从 1 到 10 的 立方 和 : 


(sum-cubes 1 10) 
3025 


利用 一 个 恒 等 函 数 帮 助 算出 项 值 ， 我 们 就 可 以 基于 sum 定 义 出 sum-integers : 
(define (identity x) x) | 
(define (sum-integers a b) 
(sum identity a inc b)) 
而 后 就 可 以 求 出 从 1 到 10 的 整数 之 和 了 : 


(sum-integers 1 10) 
55 


我 们 也 可 以 按 同样 方式 定义 Pi-sum : 
(define (pi-sum a b) 
| (define (pi-term x) 
(/ 1.0 (* x (+ x 2)))) 
(define (pi-next x) 
(+ x 4)) 
(sum pi-term a pi-next b)) 


利用 这 一 过 程 就 能 计算 出 r 的 一 个 近似 值 了 : 
(* 8 (pi-sum 1 1000)) 
3.139592655589783 


一 日 有 了 sum， 我 们 就 能 用 它 作 为 基本 构件 ， 去 形式 化 其 他 概念 。 例 如 ， 求 出 函数 /在 范 
围 c 和 % 之 间 的 定 积分 的 近似 值 ， 可 以 用 下 面 公式 完成 
/由 Alf dx\ el dx\ L... 
fiat 5 +fla+dx+ 7 + fia+2dx+ ai dx 


ff- J+A JHA 
其 中 的 dx 是 一 个 很 小 的 值 。 我 们 可 以 将 这 个 公式 直接 描述 为 一 个 过 程 : 


(define (integral f a b dx) 
(define (add-dx x) (+ x dx)) 
(* (sum f (+ a (/ dx 2.0)) add-dx b) 
dx) ) | 





(integral cube 0 1 0.01) 
-24998750000000042 


(integral cube 0 1 0.001) 

.249999875000001 

(cube 在 0 和 1 间 积 分 的 精确 值 是 L/4 。) 

练习 1.29 “辛普森 规则 是 另 一 种 比 上 面 所 用 规则 更 精确 的 数值 积分 方法 。 采 用 辛普森 规 


5 注意 ， 我 们 已 经 用 (1.1.8 节 介绍 的 ) eet Mpi-next Fipi-termmApi-sumAM, AAR LAR AA 
能 用 于 其 他 地 方 。 我 们 将 在 1.3.2 节 说 明 如 何 完全 摆脱 这 种 定义 。 
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Wi, eR BFE Te la Fb Z IA AS EAA BY I : 
Ly. +4y, +2y, +4y, +2y, 十 二 2Y,-2 +4y,_, +y, | 


其 中 h =(b -a)/n，n 是 某 个 偶数 ， 而 y =f(a +kh)( 增 大 n 能 提高 近似 值 的 精度 ) 。 请 定义 一 个 
具有 参数 7、a 、b 和 n ， 采 用 辛普森 规则 计算 并 返回 积分 值 的 过 程 。 用 你 的 函数 求 出 cube 在 0 
和 1 之 间 的 积分 (用 n=100 和 和 n=1000)， 并 将 得 到 的 值 与 上 面 用 integral 过 程 所 得 到 的 结果 
比较 。 
练习 1.30 ”上 面 的 过 程 sum 将 产生 出 一 个 线性 递归 。 我 们 可 以 重 写 该 过 程 ， 使 之 能 够 选 代 
地 执行 。 请 说 明 应 该 怎样 通过 填充 下 面 定义 中 缺少 的 表达 式 ， 完 成 这 一 工作 。 
(define (sum term a next b) 
(define (iter a result) 
(if <??> 
<??> 
(iter <??> <??>))) 


(iter <??> <??>)) 


练习 1.31 a) 过 程 sum 是 可 以 用 高 阶 过 程 表 示 的 大 量 类 似 抽 象 中 最 简单 的 一 个 "。 请 写 出 
一 个 类 似 的 称 为 product 的 过 程 ， 它 返回 在 给 定 范围 中 各 点 的 某 个 函数 值 的 乘积 。 请 说 明 如 
何 用 product 定 义 factorial。 另 请 按照 下 面 公 式 计 算 r 的 近似 值 ”: 

#244668 
4 33-5577- 

b) 如 果 你 的 product 过 程 生成 的 是 一 个 递归 计算 过 程 ， 那么 请 写 出 一 个 生成 选 代 计算 过 
程 的 过 程 。 如 果 它 生成 一 个 友 代 计算 过 程 ， 请 写 一 个 生成 递 归 计算 过 程 的 过 程 。 | 

练习 1.32 a) 请 说 明 ，sum 和 product (练习 1.31 ) 都 是 另 一 称 为 accumulate 的 更 一 
般 概念 的 特殊 情况 ， accumulate 使 用 菜 些 一 般 性 的 累积 函数 组 合 起 一 系列 项 


(accumulate combiner null-value term a next b) 


accumulate 取 的 是 与 sum 和 product 一 样 的 项 和 范围 描述 参数 ， 再 加 上 一 个 (两 个 参数 的 ) 
combiner 过 程 ， 它 描述 如 何 将 当前 项 与 前 面 各 项 的 积累 结果 组 合 起 来 ， 另外 还 有 一 个 
null-value 参 数 ， 它 描述 在 所 有 的 项 都 用 完 时 的 基本 值 。 请 写 出 accumulate ， 并 说 明 我 
们 能 怎样 基于 简单 地 调用 accumulate， 定 义 出 sum 和 product 来 。 

b) 如 果 你 的 accumulate 过 程 生成 的 是 一 个 递归 计算 过 程 ， 那 么 请 写 出 一 个 生成 迭代 计 
算 过 程 的 过 程 。 如 果 它 生成 一 个 迭代 计算 过 程 ， 请 写 一 个 生成 递 归 计 算 过 程 的 过 程 。 

练习 1.33 ”你 可 以 通过 引进 一 一 个 处 理 被 组 合 项 的 过 滤器 (filter) 概念 ， 写 出 一 个 比 
accumulate (练习 1.32) 更 一 般 的 版 本 。 也 就 是 说 ， 在 计算 过 程 中 ， 只 组 合 起 由 给 定 范 围 
得 到 的 项 里 的 那些 满足 特定 条 件 的 项 。 这 样 得 到 的 filtered-accumulate 抽 象 取 一 国共 


5! 练习 1.31 ~1.33 的 意图 是 站 释 用 一 个 适当 的 抽象 去 整理 许多 貌似 毫 无 关系 的 操作 ， 所 获得 的 巨大 表达 能 力 。 显 
然 ， 虽 然 累 积 和 过 滤器 都 是 很 优美 的 想法 ， 我 们 并 没有 急于 将 它们 用 在 这 里 ， 因 为 我 们 还 没有 数 据 结构 的 思 
想 ， 无 法 用 它们 去 提供 组 合 这 些 抽象 的 适当 手段 。 我 们 将 在 2.2.3 节 回 到 这 些 思想 ， 那 时 将 说 明 如 何 用 序列 的 
概念 作为 界面 ， 组 合 起 过 滤器 和 累积 ， 去 构造 出 更 强大 得 多 的 抽象 。 我 们 将 在 那里 看 到 ， 这 些 方法 本 身 如 何 
能 成 为 设计 程序 的 强 有 力 而 又 非常 优美 的 途径 。 

? 这 一 公式 是 由 17 世纪 英 国 数学 家 John Wallis 发 现 的 。 





积 过 程 同样 的 参数 ， 再 加 上 一 个 另外 的 描述 有 关 过 滤器 的 谓词 参数 。 请 写 出 filtered- 
accumulate 作 为 一 个 过 程 ， 说 明 如 何 用 filtered-accumulate 表 达 以 下 内 容 : 

a) 求 出 在 区 间 4 到 5b 中 所 有 素数 之 和 (假定 你 已 经 写 出 了 谓词 Prime? )。 

b) 小 于 n 的 所 有 与 4 互 素 的 正 整 数 ( 即 所 有 满足 GCD(i, n) = 1 的 整数 i <n) 之 乘积 。 


1.3.2 用 lambda 构造 过 程 


在 1.3.1 节 里 用 sum 时 ， 我 们 必须 定义 出 一 些 如 pi-term 和 pi-~next 一 类 的 简单 函数， 以 
便 用 它们 作为 高 阶 函 数 的 参数 ， 这 种 做 法 看 起 来 很 不 舒服 。 如 果 不 需要 显 式 定义 Pi-term 和 
pi-next ， 而 是 有 一 种 方法 去 直接 刻画 “那个 返回 其 输入 值 加 4 的 过 程 ” 和 “那个 返回 其 输 
入 与 它 加 2 的 乘积 的 倒数 的 过 程 ”， 事 情 就 会 方便 多 了 。 我们 可 以 通过 引入 一 种 lambda 特 殊 形 
式 完成 这 类 描述 ， 这 种 特殊 形式 能 够 创建 出 所 需要 的 过 程 。 利 用 Lambda ， 我 们 就 能 按照 如 下 
方式 写 出 所 需 的 东西 : 

(lambda (x) (+ x 4)) 

和 o 
(lambda (x) (/ 1.0 (* x (+ x 2)))) 
这 样 就 可 以 直接 描述 pi-sum 过 程 ， 而 无 须 定义 任何 辅助 过 程 了 : 
(define (pi-sum a b) 
(sum (lambda (x) (/ 1.0 (* x (+ x 2)))) 
(lambda (x) (+ x 4)) 
b)) 
借助 于 1ambda， 我 们 也 可 以 写 出 integral 过 + 程 而 不 需要 定义 辅助 过 程 add- -dx : 


(define (integral f a b dx) 
(* (sum f 
(+ a (/ dx 2.0)) 
(lambda (x) (+ x dx)) 
b ) 
dx) ) 


一 般 而 言 ，lambda 用 与 define 同 样 的 方式 创建 过 程 ， 除了 不 为 有 关 过 程 提 供 名 字 之 Sb: 
(lambda (<formal Parameters> ) <body> ) 
这 样 得 到 的 过 程 与 通过 define 创建 的 过 程 完全 一 样 ， 仅 有 的 不 同 之 处 ， 就 是 这 种 过 程 没有 与 
环境 中 的 任何 名 字 相 关联 。 事 实 上 ， 


(define (plus4 x) (+ x 4)) 


等 价 于 
(define plus4 (lambda (x) (+ x 4))) 
我 们 可 以 按 如 下 方式 来 阅读 ljambda 表 达 式 : 
{lambda (x) (+ x 4)) 
| 1 - 1 1 1 


该 过 程 以 Xx 为 参数 它 加 起 x 和 -4 
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像 任何 以 过 程 为 值 的 表达 式 一 样 ，Lambda 表 达 式 可 用 作 组 合式 的 运算 符 ， 例 如 ， 


( (lambda (x y z) (+ x y (square z))) 1 2 3) 


12 
或 者 更 一 般 些 ， 可 以 用 在 任何 通常 使 用 过 程 名 的 上 下 文中 ?3。 
用 1et 创建 局 部 变量 


Lambda 的 另 一 个 应 用 是 创建 局 部 变量 。 在 一 个 过 程 里 ， 除 了 使 用 那些 已 经 约束 为 过 程 参 
数 的 变量 外 ， 我 们 当 常 还 需要 另外 一 些 局 部 变量 。 例 如 ， 假 定 我 们 希望 计算 函数 ; 
fix, y) =x(1 +xy) +y —y) + Aa yA ~y) 
可 能 就 希望 将 它 表 述 为 ， | 
| a=1+xy 
b=1 -y 
f(x, y) =xa? + yb +ab 


在 写 计 算 上 的 过 程 时 ， 我 们 可 能 希望 还 有 几 个 局 部 变量 Tite AY, DA PR AS ge 
和 b 。 做 到 这 些 的 一 种 方式 就 是 利用 辅助 过 程 去 约束 局 部 变量 : 


(define (f x y) 
(define (f-helper a b) 
(+ (* x (square a))} 
(* y b) 
(* a b))) 
(f-helper (+ 1 (* x y)) 
(- 1 y))) 
当然 ， 我 们 也 可 以 用 一 个 lambda 表达 式 ， 用 以 描述 约束 局 部 变量 的 匿名 过 程 。 这 样 ，f 
的 体 就 变 成 了 一 个 简单 的 对 该 过 程 的 调用 : 
(define (f x y) 
((lambda (a b) 
(+ (* x (Square a)) 
(* y b) 
(* a b))) 
(+ 1 (* x y)) 
(~ 1 y))) 
这 一 结构 非常 有 用 ， 因 此 ， 语 言 里 有 一 个 专门 的 特殊 形式 称 为 let ， 使 这 种 编程 方式 更 为 方 
便 。 利 用 let ， 过 程 f 可 以 写 为 : E 
(define (f x y) 
(let ((a (+ 1 (* x y))) 
(b (~ 1 y))) 
(+ (* x (Square a)) 
(* y b) 
(* a b)))) 


5 对 于 学 习 Lisp 的 人 而 言 ， 如 果 用 一 个 比 Lambda 更 明确 的 名 字 ， 如 make-~pProcedure， 可 能 会 觉得 更 清楚 ， 
但 是 习惯 成 自然 ， 这 一 记 法 形式 取 自 4 演 算 ， 那 是 由 数理 逻辑 学 家 丘 奇 (Alonzo Church 1941) 引进 的 一 种 数 
学 记 法 ， 为 研究 函数 和 函数 应 用 提供 一 个 严格 的 基础 。 和 演算 已 经 成 为 程序 设计 语言 语义 的 数学 基石 。 
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let 表 达 式 的 一 般 形式 是 : 
(let ((<var,> <exp)>) 
(<var,> <exp2>) 


(<var,> <exp,>) ) 
<body>) 


可 以 将 它 读 作 : 
令 <var,> RAWH <exp> mH 
<var> 具有 值 <exp2> mE 


<var,> 具有 值 <exp,> 
在 <body> 中 
let 表达 式 的 第 一 部 分 是 个 名 字 - 表 达 式 对 偶 的 表 ， 当 1et 被 求 值 时 ， 这 里 的 每 个 名 字 将 被 关 
联 于 对 应 表达 式 的 值 。 在 将 这 些 名 字 约 束 为 局 部 变量 的 情况 下 求 值 1et 的 体 。 这 一 做 法 正好 
使 et 表达 式 被 解释 为 替代 如 下 表达 式 的 另 一 种 语法 形式 : 


( (lambda {<var|> .. «<var,> ) 
<body> ) 


<exp\> 


<exp,> ) 
这 样 ， 解 释 器 里 就 不 需要 为 提供 局 部 变量 增加 任何 新 机 制 。 Let 表达 式 只 是 作为 其 基础 的 
1ambda 表 达 式 的 语法 外 衣 罢 了 。 
根据 这 一 等 价 关系 ， 我 们 可 以 认为 ， 由 let 表 达 式 描述 的 变量 的 作用 域 就 是 该 let 的 体 ， 
这 也 意味 者 : ; 
“Let fE A REZET ALE SLI AON 7M A RE 例如 ， 如 果 X 的 值 是 2， 下 面 
表达 式 O 
(+ (let ((x 3)) 
(+ x (* x 10))) 
x) l 
就 是 38。 在 这 里 ,位 于 let 体 里 的 x 是 3， 因 此 这 一 let 表 达 式 的 值 是 33。 另 一 方面 ， 作 
为 最 外 县 的 + 的 第 二 个 参数 的 x 仍然 是 3。 g ~ 
。 恋 量 的 值 是 在 let 之 外 计算 的 。 在 为 局 部 变 盖 提供 值 的 表达 式 依赖 于 某 些 与 局 部 变量 同 
名 的 变量 时 ， 这 一 规定 就 起 作用 了 。 例 如 ， 如 果 X 的 值 是 <， 表达 式 : 
(let ((x 3) 
(y (+ x 2))) 
(* x y)) 
将 具有 值 12， 因 为 在 这 里 Let 的 体 里 ，x 将 是 3 而 yY 是 4 (其 值 是 外 面 的 x 加 2 ) 。 
有 时 我 们 也 可 以 通过 内 部 定义 得 到 与 et 同样 的 效果 。 例如 可 以 将 上 述 芋 定义 为 : 
(define (f x y) | 
(define a (+ 1 (* x y))) 
(define b (- 1 y)) 
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(+ (* x (square a)) 
(* y b) 
(* a b))) | 
当然 ， 在 这 种 情况 下 我 们 更 愿意 用 let ， 而 仅 将 define 用 于 内 部 过 程 ”。 
练习 1.34 假定 我 们 定义 了 : 
(define (f g) 
(g 2)) 
而 后 就 有 : 
( square) 


4 


(f (lambda (z) (* z (+z 1)))) 
6 


如 果 我 们 (坚持 ) 要 求解 释 器 去 求 值 (E 上 )， 那 会 发 生 什么 情况 呢 ? 请 给 出 解释 。 
1.3.3 过 程 作为 一 般 性 的 方法 


我 们 在 1.1.4 节 里 介绍 了 复合 过 程 ， 是 为 了 作为 一 种 将 若干 操作 的 模式 抽象 出 来 的 机 制 ， 
使 所 描述 的 计算 不 再 依赖 于 所 涉及 的 特定 的 数值 。 有 了 高 阶 过 程 ， 例 如 1.3.1 市 的 jntegral 过 
程 ， 我 们 开始 看 到 一 种 威力 更 强大 的 抽象 ， 它 们 也 是 一 类 方法 。 可 用 于 表述 计算 的 一 般 性 过 
程 ， 与 其 中 所 涉及 的 特定 函数 无 关 。 本 节 将 讨论 两 个 更 精细 的 实例 一 一 找 出 函数 零点 和 不 动 扣 
的 一 般 性 方法 ， 并 说 明 如 何 通 过 过 程 去 直接 描述 这 些 方法 。 

通过 区 间 折 半 和 寻找 方程 的 根 

区 间 折 半 方 法 是 寻找 方程 fx) =0 根 的 一 种 简单 而 又 强 有 力 的 方法 ， 这 里 的 了 是 一 个 连续 
函数 。 这 种 方法 的 基本 想法 是 ， 如 果 对 于 给 定点 a 和 b 有 fa)<0<fb)， 那 么 f 在 4a 和 b 之 间 必 然 
有 一 个 零点 。 为 了 确定 这 个 零点 ， 令 x 是 a 和 45 的 平均 值 并 计算 出 f(x)。 如 果 fx) >0， 那 么 在 a 
和 x 之 间 必 然 有 的 一 个 了 的 零点 ， 如 果 fx) <0， 和 那么 在 Yx 和 8 之 间 必 然 有 的 一 个 /的 零 扎 。 继 续 
这 样 做 下 去 ， 就 能 确定 出 越 来 越 小 的 区 间 ， 且 保证 在 其 中 必然 有 /的 一 个 零点 。 当 区 间 “ 足 
够 小 ”时 ， 就 结束 这 一 计算 过 程 了 。 因 为 这 种 不 确定 的 区 间 在 计算 过 程 的 每 一 步 都 缩小 一 半 ， 
所 需 步 数 的 增长 将 是 B@(log(L/T))， 基 中 是 区 间 的 初始 长 度 ，T 是 可 容忍 的 误差 (AA “E 
够 小 ”的 区 间 的 大 小 )。 下 面 是 一 个 实现 了 这 一 策略 的 过 程 : 

(define (search f neg-point pos-point) | 

(let ({midpoint (average neg-point pos-point))) 
(if (close-enough? neg-point pos-point) 
midpoint 
(let ((test-value (f midpoint) )) 
(cond ((positive? test-value) 
(search f neg-point midpoint) ) 


‘( (negative? test-value) 


4 要 很 好 地 理解 内 部 定义 ， 保 证 一 个 程序 的 意义 确实 是 我 们 所 希望 的 那个 意义 ， 实 际 上 要 求 另 一 个 比 我 们 在 本 
章 给 出 的 求 值 计算 过 程 更 精细 的 模型 。 然 而 这 一 难以 捉摸 的 问题 不 会 出 现在 过 程 内 部 定义 方面 。 我 们 将 在 对 
求 值 有 了 更 多 理解 之 后 ， 在 4.1.6 节 回 到 这 一 问题 。 





(search f midpoint pos-point) ) 
(else midpoint)))))) 
假定 开始 时 给 定 了 函数 f, 以 及 使 它 取 值 为 负 和 为 正 的 两 个 点 。 我 们 首先 算出 两 个 给 定点 
的 中 点 ， 而 后 检查 给 定 区 间 是 否 已 经 足够 小 。 如 果 是 的 话 ， 就 运 回 这 一 中 扩 的 值 作为 回答 ， 
否则 就 算出 了 在 这 个 中 点 的 值 。 如 果 检 查 发 现 得 到 的 这 个 值 为 正 ， 那 么 就 以 从 原来 负 扩 到 中 
点 的 新 区 间 继 续 下 去 ， 如 果 这 个 值 为 负 ， 就 以 中 点 到 原来 为 正 的 点 为 新 区 间 并 继续 下 去 。 还 
有 ， 也 存在 着 检测 值 恰好 为 0 的 可 能 性 ， 这 时 中 点 就 是 我 们 所 寻找 的 根 。 
为 了 检查 两 个 端点 是 否 “ 足 够 接近 ”， 我 们 可 以 用 一 个 过 程 ， 它 与 1.1.7 节 计算 平方 根 时 所 
用 的 那个 过 程 很 类 似 ”: 
(define (close-enough? x y) 
(< (abs (- x y)) 0.001)) 
search 很 难 直接 去 用 ， 因 为 我 们 可 能 会 偶然 地 给 了 它 一 对 点 ， 相 应 的 了 值 并 不 具有 这 个 
过 程 所 需 的 正 负 号 ， 这 时 就 会 得 到 错误 的 结果 。 让 我 们 换 一 种 方式 ， 通 过 下 面 的 过 程 去 用 
search， 这 一 过 程 检查 是 否 某 个 点 具有 人 负 的 函数 值 ， 另 一 个 点 是 正 值 ， 并 根据 具体 情况 去 调 
用 search 过 程 。 如 条 这 一 图 数 在 两 个 给 定点 的 值 同 ， 那么 就 无 法 使 用 折 半 方法 ， 在 这 种 情 


况 下 过 程 发 出 错误 信号 ”。 


(define (half-interval-method f a b) 
{let ((a-value (f a)) 
(b-value (f b))) 
(cond (({and (negative? a-value) (positive? b-value) ) 
(search f a b)) 
((and (negative? b- value) (positive? a-value)) 
(search f b a)) 
(else. . . 
(error "Values are not of opposite sign" a b))))) 


下 面 实例 用 折 半 方法 求 x 的 近似 值 ， 它 正好 是 sin x=0 在 2 和 4 之 间 的 根 : 
(half-interval-method sin 2.0 4.0) 

3.14111328125 

这 里 是 另 MAT, MIE PRM? 2x -3=0 在 1 和 2 之 间 的 根 : 


(aa -interval-method | (lambda (x) (- (* X X x) (* 2 x) 3)) 
1.0 
2.0) 

1.89306640625 


找 出 函数 的 不 动 点 
数 x 称 为 函数 了 的 不 动 点 ， 如 果 x 满 足 方程 f(xX) =x. 对 二 其 些 函数， 通过 从 其 个 初始 猜测 
出 发 ， 反 复 地 应 用 f 
fff), FEE- 


5 这 里 用 0.001 作 为 示意 性 的 “小 ” 数 ， 表示 计算 中 可 以 接受 的 容许 误差 。 实 际 计 算 中 所 适用 的 容许 误差 依赖 于 
被 求解 的 问题 ， 以 及 计算 机 和 算法 的 限制 。 这 一 PAR AREMAN FOS 需要 数值 专家 或 者 基 些 其 他 类 


型 术士 们 的 帮助 。 
x error 可 以 完成 此 事 ， 读 过 程 以 几 个 项 作为 参数 ， 将 它们 打印 出 来 作为 出 错 信息 。 
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直到 值 的 变化 不 大 时 ， 就 可 以 找到 它 的 一 个 不 动 点 。 根 据 这 个 思路 ， 我 们 可 以 设计 出 一 个 过 
程 fixed~point ， 它 以 一 个 函数 和 一 个 初始 猜测 为 参数 ， 产 生出 该 函数 的 一 个 不 动 点 的 近似 
值 。 我 们 将 反复 应 用 这 个 函数 ， 直 至 发 现 连续 的 两 个 值 之 差 小 于 某 个 事先 给 定 的 容许 值 : 
(define tolerance 0.00001) 
(define (fixed-point f first-guess) 
(define (close-enough? vl v2) 
(< (abs (- vl v2)) tolerance) ) 
(define (try guess) 
(let ((next (上 guess))) 
(if (close-enough? guess next) 
next 
(try next)))) 
(try first- -guess)) 


例如 ， 下 面 用 这 一 方法 求 出 的 是 余弦 函数 的 不 动 拟 ， 其 中 用 1 作为 初始 近似 值 ”: 


(fixed-point cos 1.0) 
. 7390822985224023 


类 似 地 ， 我 们 也 可 以 找 出 方程 = sn y +cos ?的 一 个 解 : 

(fixed-point (lambda (y) (+ (sin y) (cos y))) 

1.0) 

1.2587315962971173 

这 一 不 动 点 的 计算 过 程 使 人 回忆 起 1.1.7 节 里 用 于 找平 方 根 的 计算 过 程 。 两 者 都 是 基于 同 
样 的 想法 : 通过 不 断 地 改进 猜测 ， 直 至 结果 满足 某 一 评价 准则 为 正 。 事 实 上 ， 我 们 完全 可 以 
将 平方 根 的 计算 形式 化 为 一 个 寻找 不 动 点 的 计算 过 程 。 计 算 某 个 数 x 的 平方 根 ， 就 是 要 找到 一 
个 y 使 得 y? =x。 将 这 一 等 式 变 成 另 一 个 等 价 形式 y =x/y ， 就 可 以 发 现 ， 这 里 要 做 的 就 是 寻找 函 
By F>x/y 的 不 动 点 2 。 因 此 ， 可 以 用 下 面 方式 试 着 去 计算 平方 根 : 

(define (sqrt x) | 

(fixed-point (lambda (y) (/ x y)) 
1.0)) 

遗憾 的 是 ， 这 一 不 动 点 搜寻 并 不 收敛 。 考 虚 某 个 初始 猜测 y; ， 下 一 个 猜测 将 是 y2 =y, 
而 再 下 一 个 猜测 是 y3 =X/yz =X/(X/y1) =y1。 结 果 是 进入 了 一 个 无 限 循环 ， 其 中 没完 没 了 地 反复 
出 现 两 个 猜测 y1 和 y2， 在 答案 的 两 边 往复 振荡 。 | 

13 HX ie SH PHREAILAK YAM SIAR, BARRE RAE EMT ally 
和 xjy 之 间 ， 我 们 可 以 做 出 一 个 猜测 ， 使 之 不 像 x/y 那 样 远离 7>， 为 此 可 以 用 y 和 x/y 的 平均 值 。 这 
样 ， 我 们 就 取 y 之 后 的 下 一 个 猜测 值 为 (1/2)G +x/y) 而 不 是 zy 。 做 出 这 种 猜测 序列 的 计算 过 程 
也 就 是 搜寻 y e ADO +x/y) DA: 


(define (sqrt x) 
(fixed-point (lambda (y) (average y (/ x y))) 
1.0)) 


” 在 一 个 没意思 的 课 上 试 试 下 面 计 算 ， 将 你 的 计数 器 设置 为 移 度 模式 ， 而 后 反复 按 cos 键 直至 你 得 到 了 这 一 不 


动 点 。 
so ( 读 作 “映射 到 ”) 是 数学 家 写 1ambada 的 方式 , 》 记 xz/y 的 意思 就 是 (Lambda (y) (/ x 了 ))， 也 就 是 说 ， 


那个 在 ?处 的 值 为 wy 的 函数 。 x. 





(请 注意 ，y =(1/2)0 +x) 是 方程 y = xy 经 过 简单 变换 的 结果 ， 导 出 它 的 方式 是 在 方程 两 边 都 
加 y， 然 后 将 两 边 都 除 以 2 。) 

经 过 这 一 修改 ， 平 方 根 过 程 就 能 正常 工作 了 。 事 实 上 ， 如 果 我 们 仔细 分 析 这 一 定义 ， 那 
么 就 可 以 看 到 ， 它 在 求 平方 根 时 产生 的 近似 值 序列 ， 正 好 就 是 1.1.7 布 原来 那个 求 平方 根 过程 
产生 的 序列 。 这 种 取 逼 进 一 个 解 的 一 系列 值 的 平均 值 的 方法 ， 是 一 PRAT HR RATER , 
它 常 常用 在 不 动 点 搜寻 中 FARRAH FR. 

练习 1.35 “请 证 明黄 金 分 割 率 办 《1.2.2 有 ) 是 变换 X11+1/x 的 不 动 点 。 请 利用 这 一 事实 ， 
通过 过 程 fixed-point 计 算出 $ 的 值 。 

练习 1.36 ”请 修改 fixed-point ,使 它 能 打印 出 计算 中 产生 的 近似 值 序列 ， 用 练习 1.22 
展示 的 newline 和 display 基 本 过 程 。 而 后 通过 找 出 xHF3log(1000)/log(x) 的 不 动 点 的 方式 ， 
确定 w= 1000 的 一 个 根 (请 利用 Scheme 的 基本 过 程 1og， 它 计算 自然 对 数值 ) 。 请 比较 一 下 采 
用 平均 阻尼 和 不 用 平均 阻尼 时 的 计算 步 数 。( 注 意 ， 你 不 能 用 猜测 1 去 启动 fixed-point， 
因为 这 将 导致 除 以 log(1) =0。) | | 

练习 1.37 a) 一 个 无 穷 连 分 式 是 一 个 如 下 形式 的 表达 式 ， 


D, + 





D, +- 


作为 一 个 例子 ， 我 们 可 以 证 明 在 所 有 的 Ni 和 D 都 等 于 1 时 ， 这 一 无 穷 连 分 式 产生 出 Mg， 其 中 的 
4 就 是 黄金 分 割 率 〈 见 1.2.2 节 的 描述 )。 逼 进 某 个 无 穷 连 分 式 的 一 种 方法 是 在 给 定数 目的 项 之 
后 截断 ， 这 样 的 一 个 截断 称 为 k 项 有 限 连 分 式 ， 其 形式 是 : 





假定 np 和 aq 都 是 只 有 一 个 参数 (项 的 下 标 i) 的 过 程 ， 它 们 分 别 返 回 连 分 式 的 项 NM 和 Pi。 请 定义 
一 个 过 程 cont-frac, 使 得 对 (cont-frac n d k) 的 求 值 计算 出 k 项 有 限 连 分 式 的 值 。 
通过 如 下 调用 检查 你 的 过 程 对 于 顺序 的 K 值 是 否 逼 进 1/4 
(cont-frac (lambda (i) 1.0) 
(lambda (i) 1.0) 
k) 
你 需要 取 多 大 的 k 才 能 保证 得 到 的 近似 值 具有 十 进 制 的 4 位 精度 ? 
b) 如 果 你 的 过 程 产 生 一 个 递归 计算 过 程 ， 那 么 请 写 另 一 个 产生 迭代 计算 的 过 程 。 如 采 叱 
产生 迭代 计算 ， 请 写 出 另 一 个 过 程 ， 使 之 产生 一 个 递归 计算 过 程 。 
练习 1.38 在 1737 年 ,瑞士 数学 家 莱 昂 了 哈 德 . 欧 拉 发 表 了 一 篇 论文 De Fractionibus Continuis , 
文中 包含 了 e -2 的 一 个 连 分 式 展 开 ， 其 中 的 e 是 自然 对 数 的 底 。 在 这 一 分 式 中 ，Ni 全 都 是 1 ， 
而 Dj; 依次 为 1, 2, 1, 1, 4, 1, 1, 6, 1, 1, 8, …。 请 写 出 一 个 程序 ， 其 中 使 用 你 在 练习 1.37 中 所 做 的 
cont-frac 过 程 ， 并 能 基于 欧 拉 的 EFR de 的 近似 值 。 





练习 1.39 正切 函数 的 连 分 式 表 示 由 德国 数学 家 J.H. Lambert 在 1770 年 发 表 : 


i x 
tan x = ——— 








S 一 、. 


其 中 的 xz 用 弧度 表示 。 请 定义 过 程 (tan-cf x k)， 它 基于 Lambert 公 式 计算 正切 函数 的 近似 
值 。k 描 述 的 是 计算 的 项 数 ， 就 像 练习 1.37 一 样 。 


1.3.4 过 程 作为 返回 什 


上 面 的 例子 说 明 ， 将 过 程 作为 参数 传递 ， 能 够 显著 增强 我 们 的 程序 设计 语言 的 表达 能 力 。 
通过 创建 另 一 种 其 返回 值 本 身 也 是 过 程 的 过 程 ， 我 们 还 能 得 到 进一步 的 表达 能 力 。 

我 们 将 阐释 这 一 思想 ， 现 在 还 是 先 来 看 1.3.3 节 最 后 描述 的 不 动 点 例子 。 在 那里 我 们 构造 
出 一 个 平方 根 程 序 的 新 版 本 ， 它 将 这 一 计算 看 作 一 种 不 动 点 搜寻 过 程 。 开 始 时 ， 我 们 注意 
到 Vx 就 是 函数 y x/ 的 不 动 点 ， 而 后 又 利用 平均 阻尼 使 这 一 副 进 收敛 。 平 均 阻 尼 本 身 也 是 一 
种 很 有 用 的 一 般 性 技术 。 很 自然 ， 给 定 了 一 个 函数 之后， 我们 就 可 以 考虑 另 一 个 函数 ， 它 
在 x 处 的 值 等 于 x 和 f(x) 的 平均 值 。 

我 们 可 以 将 平均 阻尼 的 思想 表述 为 下 面 的 过 程 ; 


(define (average-damp 工 ) l 
(lambda (x) (average x (f x)))) 


这 里 的 average-damp 是 一 个 过 程 ， 它 的 参数 是 一 个 过 程 E， 返 回 值 是 另 一 个 过 程 (通过 
lambda 产 生 ) ， 当 我 们 将 这 一 返回 值 过 程 应 用 于 数 x 时 ， 得 到 的 将 是 x 和 (上 x) 的 平均 值 。 
例如 ， 将 average-damp 应 用 于 square 过 程 ， 就 会 产生 出 另 一 个 过 程 ， 它 在 数值 x 处 的 值 就 
是 x 和 刀 的 平均 值 。 将 这 样 得 到 的 过 程 应 用 于 10 ， 将 返回 10 与 100 的 平均 值 559 : 


((average-damp square) 10) 
55 


利用 average-damp ， 我 们 可 以 重 做 前 面 的 平方 根 过 程 如 下 ， 
(define (sqrt x) 
(fixed-point, (average-damp (lambda (y) (/ x y))) 
1.0)) 


请 注意 ， 看 看 上 面 这 一 公式 中 怎样 把 三 种 思想 结合 在 同一 个 方法 里 ; 不 动 点 搜寻 ， 平均 阻尼 
和 函数 y Pyxz/y 。 拿 这 一 平方 根 计算 的 过 程 与 1.1.7 节 给 出 的 原来 版 本 做 一 个 比较 ， 将 是 很 有 教 
益 的 。 请 记 住 ， 这 些 过 程 表 述 的 是 同一 计算 过 程 ， 也 应 注意 ， 当 我 们 利用 这 些 抽象 描述 该 计 
算 过 程 时 ， 其 中 的 想法 如 何 变 得 更 加 清晰 了 。 将 一 个 计算 过 程 形式 化 为 一 个 过 程 ， 一 般 说 ， 
存在 很 多 不 同 的 方式 ， 有 经 验 的 程序 员 知 道 如 何 选 择 过 程 的 形式 ， 使 其 特别 地 清晰 且 易 理解 ， 
使 该 计算 过 程 中 有 用 的 元 素 能 表现 为 一 些 相 互 分 离 的 个 体 ， 并 使 它们 还 可 能 重新 用 于 其 他 的 
应 用 。 作 为 重用 的 一 个 简单 实例 ， 请 注意 x 的 立方 根 是 函数 y F?x/y 的 不 动 点 ， 因 此 我 们 可 以 立 


9 请 注意 看 ， 这 就 是 一 个 其 中 的 运算 符 本 身 也 是 一 个 组 合式 的 组 合式 。 练 习 1.4 已 经 MET RIE RAS 
式 的 能 力 ， 但 那里 用 的 是 一 个 玩具 例子 。 在 这 里 可 以 看 到 ， 在 应 用 一 个 作为 高 阶 函数 的 返回 值 而 得 到 的 函数 
时 ， 我 们 确实 需要 这 种 形式 的 组 合式 。 





刻 将 前 面 的 平方 根 过 程 推广 为 一 个 提取 立方 根 的 过 程 @， 


(define (cube-root x) 
(fixed-point (average-damp (lambda (y) (/ x (Square y)))) 
1.0)) 


牛顿 法 

在 1.1.7 节 介绍 平方 根 过 程 时 曾经 提 到 牛顿 法 的 一 个 特殊 情况 。 如 果 x g(a) 是 一 个 可 微 
函数 ， 那 么 方程 8C0 = 0 的 一 个 解 就 是 函数 zh? f(x) 的 一 个 不 动 点 ， 其 中 : 

8) 

Dg(x) 

这 里 的 Dg(x) he ten Se. PE RECT RAAT BBO Ae, DEFAR SH 
不 动 点 的 方式 ， 去 逼近 上 述 方程 的 解 %。 对 于 许多 函数， 以 及 充分 好 的 初始 猜测 x， 牛 顿 法 都 
能 很 快 收敛 到 g(x) =0 的 一 个 解 2。 

为 了 将 牛顿 方法 实现 为 一 个 过 程 ， 我 们 首先 必须 描述 导数 的 思想 。 请 注意 ,“ 导 数 ”不 人 
平均 阻尼 ， 它 是 从 函数 到 函数 的 一 种 变换 。 例 如 ， 函 数 x H? x 的 导数 是 另 一 个 函数 x F 3x, 
一 般 而 言 ， 如 果 8 是 一 个 函数 而 dx 是 一 个 很 小 的 数 ， 那 么 8 的 导数 在 任 一 数值 * 的 值 由 下 面 函数 
(作为 很 小 的 数 dx 的 极限 ) 给 


f(x)=x- 


g(x + dx) - g(x) 
dx 


这 样 ， 我 们 就 可 以 用 下 面 过 程 描述 导数 的 概念 〈 例 如 取 dx 为 0.00001 ) ; 

(define (deriv g) 

(lambda (x) 
(/ (- (g (+ x dx))} (g X)) 
dx))) 

再 加 上 定义 : 

(define dx 0.00001) 

与 average-damp 一 样 ，deriv 也 是 一 个 以 过 程 为 参数 ， 并 且 返 回 一 个 过 程 值 的 过 程 。 
例如 ， 为 了 求 出 函数 xz_F 如 在 5 的 导数 的 近似 值 (其 精确 值 为 75) ， 我 们 可 以 求 值 : 


(define (cube x) (* X X X)) 


Dg(x) = 


((deriv cube) 5) 
75. 00014999664018 


有 了 deriv 之 后 ， 和 牛顿 法 就 可 以 表述 术 为 一 个 求 不 动 点 的 过 程 了 : 


(define (newton-transform g) 
(lambda (x) 
(- x (/ (g x) ({deriv g) x))))) 


© 进一步 推广 参见 练习 1.4> 。 
4 基础 微 积 分 书籍 中 通常 将 牛顿 法 描述 为 逼 进 序列 Xn 41 一 Xs 8n) DEn) 。 有 了 能 够 挤 述 计算 过 程 的 语言 采 


用 了 不 动 点 的 思想 ， 这 一 方法 的 描述 也 得 到 了 简化 。 
9 牛顿 法 并 不 保证 能 收敛 到 一 个 答案 。 我 们 还 可 以 证 明 ,. 在 顺利 的 情况 下 ， ar GEM I At 


字 位 数 加 倍 。 在 处 理 这 些 情 况 时 ， 牛 顿 法 将 比 折 半 法 的 收敛 速度 快 得 多 。 
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(define (newtons-method g guess) 
(fixed-point (newton-transform g) guess) ) 


newton-transfozrzn 过 程 描述 的 就 是 在 本 节 开 始 处 的 公式 ， 基 于 它 去 定义 Dewtons- 
methodg 已 经 很 容易 了 。 这 一 过 程 以 一 个 过 程 为 参数 Ci RURE RISKS ROH 
数 ， 这 里 还 需要 给 出 一 个 初始 猜 出 。 例 如 ， 为 确定 x 的 平方 根 ， 可 以 用 初始 猜测 1 ， 通 过 牛顿 
法 去 找 函 数 y DY 一 x 的 零点 ”。 这 样 就 给 出 了 求 平方 根 函 数 的 另 一 种 形式 : 
(define (sqrt x) 
(newtons-method (lambda (y) (- (square y) x)) 
1.0)) 


抽象 和 第 一 级 过 程 

上 面 我 们 已 经 看 到 用 两 种 方式 ， 它们 都 能 将 平方 根 计算 表述 为 某 种 更 _- 般 方法 的 实例 ， 
一 个 是 作为 不 动 点 搜寻 过 程 ， 另 一 个 是 使 用 牛顿 法 。 因 为 牛顿 法 本 身 表 述 的 也 是 一 个 不 动 后 
的 计算 过 程 ， 所 以 我 们 实际 上 看 到 了 将 平方 根 计 算 作 为 不 动 点 的 两 种 形式 。 每 种 方法 都 是 从 
一 个 函数 出 发 ， 找 出 这 一 函数 在 某 种 变换 下 的 不 动 把 。 我 们 可 以 将 这 一 具有 普通 性 的 轩 想 表 

述 为 一 个 函数 : 

(define (fixed-point-of-transform g transform guess) 

(fixed-point (transform g) guess) ) 


这 个 非常 具有 一 般 性 的 过 程 有 一 个 计算 某 个 函数 的 过 程 参 数 g ， 一 个 变换 g 的 过 程 ， 和 一 个 初 
始 猜测 ， 它 返回 经 过 这 一 变换 后 的 函数 的 不 动 点 。 

我 们 可 以 利用 这 一 抽象 重新 塑造 本 节 的 第 一 个 平方 根 计 算 (搜寻 y b eY TE F PRE F Ry 
不 动 点 ) ， 以 它 作为 这 个 一 般 性 方法 的 实例 : 


(define (sqrt x) 
(fixed-point-of-transform (lambda (y) (/ x y)) 
average-damp 
1.0)) | 
与 此 类 似 ， 我 们 也 可 以 将 本 节 的 第 二 个 平方 根 计算 A Sy O 六 一 x 的 牛顿 变换 的 
实例 ) 重新 描述 为 : 
(define (sqrt x) 
(fixed-point-of-transform (lambda (y) (- (square y) X)) 
newton-transform 
1.0)) 


我 们 在 1.3 节 开始 时 研究 复合 过 程 ， 并 将 其 作为 一 种 至 关 重 要 的 抽象 机 制 ， 因 为 它 使 我 们 
能 将 一 般 性 的 计算 方法 ， 用 这 一 程序 设计 语言 里 的 元 素 明 确 描 述 。 现 在 我 们 又 看 到 ， 高 阶 函 
数 能 如 何 去 操 作 这 些 一 般 性 的 方法 ， 以 便 建 立 起 进一步 的 抽象 。 

作为 编程 者 ， 我 们 应 该 对 这 类 可 能 性 保持 高 度 敏感 ， 设 法 从 中 识别 出 程序 里 的 基本 抽象 ， 
基于 它们 去 进一步 构造 ， 并 推广 它们 以 创建 威力 更 加 强大 的 抽象 。 当 然 ， 这 并 不 是 说 总 应 该 
采用 尽 可 能 抽象 的 方式 去 写 程序 ， 程序 设计 专家 们 知道 如 何 根 据 工作 中 的 情况 ， 去 选择 合适 
的 抽象 层次 。 但 是 ， 能 基于 这 种 抽象 去 思考 确实 是 最 重要 的 ， 只 有 这 样 才 可 能 在 新 的 上 下 文 
中 去 应 用 它们 。 高 阶 过 程 的 重要 性 ， 就 在 于 使 我 们 能 显 式 地 用 程序 设计 语言 的 要 素 去 描述 这 


S 对 于 寻找 平方 根 而 言 ， 牛 顿 法 可 以 从 任意 点 出 发 迅速 收敛 到 正确 的 答案 。 





些 抽 象 ， 使 我 们 能 像 操 作 其 他 计算 元 素 一 样 去 操作 它们 。 

一 般 而 言 ， 程 序 设计 语言 总 会 对 计算 元 素 的 可 能 使 用 方式 强加 上 某 些 限制 。 带 有 最 少 限 
制 的 元 素 被 称 为 具有 第 一 级 的 状态 。 第 一 级 元 素 的 某 些 “权利 或 者 特权 ”包括 ”: 

"可 以 用 变量 命名 ， 

. 可 以 提供 给 过 程 作为 参数 ， 

* 可 以 由 过 程 作为 结果 返回 ， 

* 可 以 包含 在 数据 结构 中 ”。 | 
Lisp 不 像 其 他 程序 设计 语言 ， 它 给 了 过 程 完全 的 第 一 级 状态 。 这 就 给 有 效 实现 提出 了 挑战 ， 
但 由 此 所 获得 的 描述 能 力 却 是 极其 惊人 的 ”。 

练习 1.40 请 定义 一 个 过 程 cubic， 它 和 newtons-method 过 程 一 起 使 用 在 下 面 形式 的 
表达 式 里 : 

(newtons~method (cubic a b c) 1) 
REI SA BX +axr +bx+cHER 

练习 1.41 ”请 定义 一 个 过 程 double ， 它 以 一 个 有 一 个 参数 的 过 程 作为 参数 ，doubJle 返 
回 一 个 过 程 。 这 一 过 程 将 原来 那个 参数 过 程 应 用 两 次 。 例 如 ， 若 tnc 是 个 给 参数 加 1 的 过 程 ， 
(double inc) 将 给 参数 加 2。 下 面 表 达 式 返回 什么 值 : 


({( (double (double double)) inc) 5) 


练习 1.42 今 f 和 8 是 两 个 单 参 数 的 函数 , 了 在 8 之 后 的 复合 定义 为 国 数 x FF? Jea. AE 
义 一 个 国 数 compoese 实 现 国 数 复合 、 例如， 如果 inc 是 将 参数 加 1 的 函数 ， 那 么 : 


( (compose square inc) 6) 
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练习 1.43 ”如 果 f 是 一 个 数值 函数 ，n 是 一 个 正 整 数 ， 那 么 我 们 可 以 构造 出 f 的 n 次 重复 应 
用 ， 将 其 定义 为 一 个 函数 ， 这 个 函数 在 x 的 值 是 太太 …( fAD)…))。 举 例 说 ， 如 果 是 函数 x 上 
x 十 1，n 次 重复 应 用 f 就 是 函数 x xX 十 n。 如 果 f 是 求 一 个 数 的 平方 的 操作 ，n 次 重复 应 用 f 就 
求 出 其 参数 的 2" 次 矫 。 请 写 一 个 过 程 ， 它 的 输入 是 一 个 计算 f OBA PERS, KE 
是 能 计算 f 的 n 次 重复 应 用 的 那个 函数 。 你 的 过 程 应 该 能 以 如 下 方式 使 用 : 


((repeated square 2) 5) 
625 


提示 :你 可 能 发 现 使 用 练习 1.42 的 compose 能 带 来 一 些 方便 。 

练习 1.44 “平滑 一 个 国 数 的 想法 是 信和 号 处 理 中 的 一 个 重要 概念 。 如 果 了 是 一 个 国 数 ， 必 是 
某 个 很 小 的 数值 MWA 三 的 平滑 也 是 一 个 函数 ， 它 在 点 x 的 值 就 是 f(x 一 dx)、f(x) 和 f(x +dx) 
的 平均 值 。 请 写 一 个 过 程 smooth ， 它 的 输入 是 一 个 计算 三 的 过 程 ， 返 回 一 个 计算 平 请 后 的 了 
的 过 程 。 有 时 可 能 发 现 ， 重 复 地 平滑 一 个 函数 ， 得 到 经 过 # 次 平滑 的 函数 〈 也 就 是 说 ， 对 平 请 
后 的 函数 再 做 平滑 ， 等 等 ) 也 很 有 价值 。 说 明 怎 样 利用 smooth 和 练习 1.43 的 repeated， 对 
给 定 的 国 数 生成 由 次 平 请 图 数 。 

e 程序 设计 语言 元 素 的 第 一 级 状态 的 概念 应 归功 于 英国 计算 机 科学 家 Christopher Strachey (1916-1975) 。 

6 我 们 将 在 第 2 章 介绍 了 数据 结构 之 后 看 到 这 方面 的 例子 。 


% 实现 第 一 级 过 程 的 主要 代价 是 ， 为 使 过 程 能 够 作为 值 返回 ,我 们 就 需要 为 过 程 里 的 自由 变量 保留 空间 ， 即 使 
这 一 过 程 并 不 执行 HAL 节 有 关 Scheme 实现 的 研究 中 ， 这 些 变量 都 被 存储 在 过 程 的 环境 里 。 





52 BLE ie ME 


练习 1.45 ”在 1.3.3 节 里 ， 我 们 看 到 企图 用 朴素 的 方法 去 找 y》F? zy 的 不 动 点 ， 以 便 计 算 平 
方 根 的 方式 不 收敛 ， 这 个 缺陷 可 以 通过 平均 阻尼 的 方式 弥补 。 同 样 方法 也 可 用 于 找 立 方 根 ， 
”将 它 看 做 是 平均 阻尼 后 的 y O x/ 的 不 动 点 。 遗 二 的 是 , 这 一 计算 过 程 对 于 四 次 方 根 却 行 不 通 ， 
一 次 平均 阻尼 不 足以 使 对 y e X/y 的 不 动 MATEA. 而 在 另 一 方面 ， 如 果 我 们 求 两 次 平均 阻 
fe (80, Fly > xy 的 平均 阻尼 的 平均 阻尼 )， 这 一 不 动 点 搜寻 就 会 收敛 了 。 请 做 一 些 试 验 ， 
考虑 将 计算 n 次 方 根 作为 基于 y e xX/y” AR EI DA ARR, 请 设法 确定 各 
种 情况 下 需要 做 多 少 次 平均 阻尼 。 并 请 基于 这 一 认识 实现 一 个 过 程 ， 它 使 用 fixed-point.、 
average-damp 和 练习 1.43 的 repeated 过 程 计算 n 次 方 根 。 假 定 你 所 需要 的 所 有 算术 运算 都 
是 基本 过 程 。 

练习 1.46 “本章 描述 的 一 些 数 值 算 东 都 是 选 代 式 改进 的 实例 。 和 迭代 式 改进 是 一 种 非常 有 具 
有 一 般 性 的 计算 策略 ， 它 说 的 是 : 为 了 计算 出 某 些 东西 ， 我 们 可 以 从 对 答案 的 茶 个 初始 猜测 
开始 ， 检 查 这 一 猜测 是 否 足 够 好 ， 如 果 不 行 就 改进 这 一 猜测 ， 将 改进 之 后 的 猜测 作为 新 的 猜 
测 去 继续 这 一 计算 过 程 。 请 写 一 个 过 程 1terative-improve， 它 以 两 个 过 程 为 参数 : 其 
中 之 一 表示 告知 某 一 猜测 是 否 足够 好 的 方法 ， 男 一 个 表示 改进 猜测 的 方法 。iterative- 
improve 的 返回 值 应 该 是 一 个 过 程 ， 它 以 某 一 个 猜测 为 参数 ， 通 过 不 断 改 进 ， 直 至 得 到 的 猜 
测 足 够 好 为 止 。 利 用 iterative-improve 重 写 1.1.7 节 的 sqrt 过 程 和 1.3.3 市 的 fixed- 


point 过 程 。 
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现在 到 了 数学 抽象 中 最 关键 的 一 步 ， 让 我 们 点 记 这 些 符号 所 农 示 的 对 象 。…… 
( 数学 家 ) 不 应 在 这 里 停 步 ， 有 许多 操作 可 以 应 用 于 这 些 符 号 ， 而 根本 不 兴 考 虑 它们 
到 底 代表 着 什么 东西 。 


Hermann Weyl, Ze Mathematical Way of Thinking 
(思维 的 数学 方式 ) 


我 们 在 第 1 章 里 关注 的 是 计算 过 程 ， 以 及 过 程 在 程序 中 所 扮演 的 角色 。 在 那里 我 们 还 看 到 
了 怎样 使 用 基本 数据 ( 数 ) 和 基本 操作 (算术 运算 ) ， 怎样 通过 复合 、 条 件 ， 以 及 参数 的 使 
用 将 一 些 过 程 组 合 起 来 ， 形 成 复合 的 过 程 ， 怎 样 通过 define 做 过 程 抽象 。 我 们 也 看 到 ， 可 以 
将 一 个 过 程 看 作 一 类 计算 演化 的 一 个 模式 。 那 里 还 对 过 程 中 蕴涵 着 的 某 些 常见 计算 模式 做 了 
一 些 分 类 和 推理 ， 并 做 了 一 些 简单 的 算法 分 析 。 我 们 也 看 到 了 高 阶 过 程 ， 这 种 机 制 能 够 提升 
语言 的 威力 ， 因 为 它 将 使 我 们 能 去 操纵 通用 的 计算 方法 ， 并 能 对 它们 做 推理 。 这 些 都 是 程序 
设计 中 最 基本 的 东西 。 

在 这 一 章 里 ， 我 们 将 进一步 去 考查 更 复杂 的 数据 。 第 1 章 里 的 所 有 过程， 操作 的 都 是 简单 
的 数值 数据 ， 而 对 我 们 希望 用 计算 去 处 理 的 许多 问题 而 言 ， 只 有 这 种 简单 数据 还 不 够 。 许 多 
程序 在 设计 时 就 是 为 了 模拟 复杂 的 现象 ， 因 此 它们 就 常常 需要 构造 起 一 些 计算 对 象 ， 这 些 对 
象 都 是 由 一 些 部 分 组 成 的 ， 以 便 去 模拟 真实 世界 里 的 那些 具有 若干 侧面 的 现象 。 这 样 ， 与 我 
们 在 第 1 章 里 所 做 的 事情 (通过 将 一 些 过 程 组 合 起 来 形成 复合 的 过 程 ， 以 这 种 方式 构造 起 各 种 
负 象 》 相 对应， 本 将 重点 转 到 各 种 程序 设 计 诺言 者 包 全 的 另 一 个 关键 方面 讨论 它们 所 失 

， 将 数据 对 象 组 合 起 来 ， 形 成 复合 数据 的 方式 。 

nyt ote BEPE A AREARE] RIT AREAS AN 程 的 原因 一 样 同样 是 为 
了 提升 我 们 在 设计 程序 时 所 位 于 的 概念 层次 ， 提 高 设计 的 模块 性 ， 增 强 语 言 的 表达 能 力 。 正 
如 定义 过 程 的 能 力 使 我 们 有 可 能 在 更 高 的 概念 层次 上 处 理 计算 工作 一 样 ， 能 够 构造 复合 数据 
的 能 力 ， 也 将 使 我 们 得 以 在 比 语言 提供 的 基本 数据 对 象 更 高 的 概念 层次 上 ， 处 理 与 数据 有 关 
的 各 种 问题 。 & | 

现在 考虑 设计 一 个 系统 ， 它 完成 有 理 数 的 算术 。 我 们 可 以 设想 一 个 运算 add-rat ， 它 以 
两 个 有 理 数 为 参数 ， 产 生出 它们 的 和 。 从 基本 数据 出 发 ， 一 个 有 理 数 可 以 看 作 两 个 整数 ， 一 
个 分 子 和 一 个 分 母 。 这 样 ， 我 们 就 可 以 设计 出 一 个 程序 ， 其 中 的 每 个 有 理 数 用 两 个 整数 表示 
(一 个 分 子 和 一 个 分 母 )， 而 其 中 的 add~-rat 用 两 个 过 程 实现 (一 个 产生 和 数 的 分 子 ， 另 一 个 
产生 和 数 的 分 母 ) 。 然 而 ， 这 样 做 下 去 会 非常 难受 ， 因 为 我 们 必须 明确 地 始终 记 住 哪个 分 子 与 
哪个 分 母 相 互 对 应 。 在 一 个 需要 执行 大 量 有 理 数 操作 的 系统 里 ， 这 种 记录 工作 将 会 严重 地 搅 
乱 我 们 的 程序 ， 而 这 些 麻烦 又 与 我 们 心中 真正 想 做 的 事情 毫 无 关系 。 如 果 能 将 一 个 分 子 和 一 
个 分 母 “ 粘 在 一 起 ”， 形 成 一 个 对 偶 一 一 一 个 复合 数据 对 篆 一 事情 就 会 好 得 多 了 ， 因 为 这 样 ， 
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程序 中 对 有 理 数 的 操作 就 可 以 按照 将 它们 作为 一 个 概念 单位 的 方式 进行 了 。 
复合 数据 的 使 用 也 使 我 们 能 进一步 提高 程序 的 模块 性 。 如 采 我 们 可 以 直接 在 将 有 理 数 
本 身 当 作对 象 的 方式 下 操作 它们 ， 那 么 也 就 可 能 把 处 理 有 理 数 的 那些 程序 部 分 ， 与 有 理 数 
如 何 表示 的 细节 《可 能 是 表示 为 一 对 整数 ) 隔离 开 。 这 种 将 程序 中 处 理 数 据 对 象 的 表示 的 
部 分 ， 与 处 理 数据 对 象 的 使 用 的 部 分 相互 隔离 的 技术 非常 具有 一 般 性 ， 形 成 了 一 种 称 为 数 
据 抽 象 的 强 有 力 的 设计 方法 学 。 我 们 将 会 看 到 ， 数 据 抽象 技术 能 使 程序 更 容易 设计 、 维 护 
和 修改 。 
复合 对 象 的 使 用 将 真正 提高 程序 设计 语言 的 表达 能 力 。 考 虑 形成 “线性 组 合 ”ax +by, 
我 们 可 能 想到 写 一 个 过 程 ， 让 它 接受 a、b、x 和 和 y 作 为 参数 并 返回 ax +by 的 值 。 如 果 以 数值 作 
为 参数 ， 这 样 做 没有 任何 困难 ， 因 为 我 们 立刻 就 能 定义 出 下 面 的 过 程 : 
(define (linear-combination a b x y) 
(+ (* a x) (* b y))) 
但 是 ， 如 果 我 们 关心 的 不 仅仅 是 数 ， 假 定 在 写 这 个 过 程 时 ， 我 们 希望 表述 的 是 基于 加 和 乘 形 
成 线性 组 合 的 思想 ， 所 针对 的 可 以 是 有 理 数 、 复 数 、 多 项 式 或 者 其 他 东西 ， 我 们 可 能 将 其 表 
述 为 下 面 形 式 的 过 程 : 
(define (linear-combination ab x y) 
{add (mul a x) (mul b y))})) 


其 中 的 add 和 mul 不 是 基本 过 程 + 和 *， 而 是 某 些 更 复杂 的 东西 ， 它 们 能 对 通过 参数 a、b、 
xx 和 Yy 送 来 的 任何 种 类 的 数据 执行 适当 的 操作 。 在 这 里 最 关键 的 是 ，LineaI-combinatixon 
对 于 a 、b 、x 和 Yy 需 要 知道 的 所 有 东西 ， 也 就 是 过 程 add 和 mul 能 够 执行 适当 的 操作 。 从 过 程 
linear-combination 的 角度 看 ，a、b、x 和 y 究 竟 是 什么 ， 其 实 根 本 就 没有 关系 ， 至 于 它 
们 是 怎样 基于 更 基本 的 数据 表示 就 更 没有 关系 了 。 这 个 例子 也 说 明了 ， 为 什么 一 种 程序 设计 
语言 能 够 提供 直接 操作 复合 对 象 的 能 力 是 如 此 的 重要 ， 因 为 如 果 没 有 这 种 能 力 ， 我 们 就 没有 
办 法 让 一 个 像 l1inear-~combination 这 样 的 过 程 将 其 参数 传递 给 add 和 mu1l ， 而 不 必 知 道 这 
些 参 数 的 具体 细节 结构 和 ”。 

作为 本 章 的 开始 ， 我 们 要 实现 上 面 所 说 的 那样 一 个 有 理 数 算术 系统 ， 它 将 成 为 后 面 讨 论 
复合 数据 和 数据 抽象 的 一 个 基础 。 与 复合 过 程 一 样 ， 在 这 里 需要 考虑 的 主要 问题 ， 也 臣 将 抽 
象 作为 克服 复杂 性 的 一 种 技术 。 下 面 将 会 看 到 ， 数 据 抽象 将 如 何 使 我 们 能 在 程序 的 不 同 部 分 
之 间 建 立 起 适当 的 抽象 屏障 。 

我 们 将 会 看 到 ， 形 成 复合 数据 的 关键 就 在 于 ， 程 序 设计 语言 里 应 该 提供 了 某 种 “黏合 剂 ， 
它们 可 以 用 于 把 一 些 数据 对 象 组 合 起 来 ， 形 成 更 复杂 的 数据 对 象 。 黏 合剂 可 能 有 很 多 不 同 的 
种 类 。 确实 的 ， 我 们 还 会 发 现 怎样 去 构造 出 根本 没有 任何 特定 “数据 ”操作 ， 只 是 由 过 程 形 
成 的 复合 数据 。 这 将 进一步 模糊 “过 程 ” 和 “数据 ”之 间 的 划分 。 实 际 上 ， 在 第 1 章 的 最 后 ， 
这 一 界限 已 经 开始 变 得 不 那么 清楚 了 。 我 们 还 要 探索 表示 序列 和 树 的 一 些 常规 技术 ELH 


9 直接 操作 过 程 的 能 力 ， 也 使 程序 设计 语言 的 表达 能 力 得 到 类 似 的 提高 。 例 如 ， 在 1.3.1 节 里 给 出 了 过 程 sum， 
它 以 过 程 term 作 为 一 个 参数 ， 计 算出 term 在 某 个 特定 区 间 上 的 值 之 和 。 为 了 定义 这 一 su， 必 不 可 少 的 条 
件 就 是 能 直接 去 说 像 term 这 样 的 过 程 ， 而 不 必 考 虚 它 可 能 如 何 通 过 更 基本 的 操作 表达 出来。 的确 ， 如 宁 没 有 
“过 程 ” 这 一 概念 ， 认 为 我 们 有 可 能 定义 像 sSum 这 样 的 操作 就 很 值得 怀疑 了 。 进 一 步 说 ,就 执行 求 和 而 言 ， 
term 究 竟 能 怎样 由 更 基本 的 操作 构造 起 来 的 情况 ， 确 实 也 没 必要 去 关心 。 
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复合 数据 中 的 一 个 关键 性 思想 是 闭 包 的 概念 一 一 也 就 是 说 ， 用 于 组 合 数据 对 象 的 黏合 剂 不 但 
能 用 于 组 合 基本 的 数据 对 象 ， 同 样 也 可 以 用 于 复合 的 数据 对 象 。 另 一 关键 思想 是 ， 复 合 数据 
对 象 能 够 成 为 以 混合 与 匹配 的 方式 组 合 程序 模块 的 方便 界面 。 我 们 将 通过 给 出 一 个 利用 闭 包 
概念 的 简单 图 形 语言 的 方式 ， 阐 释 有 关 的 思想 。 

而 后 我 们 要 引进 符号 表达 式 ， 进 一 步 扩大 语言 的 表述 能 力 。 符 号 表达 式 的 基本 部 分 可 以 
是 任意 的 符号 ， 不 一 定 就 是 数 。 我 们 将 探索 表示 对 象 集合 的 各 种 不 同方 式 ， 由 此 可 以 发 现 ， 
就 像 一 个 给 定 的 数学 函数 可 以 通过 许多 不 同 的 计算 过 程 计算 一 样 ， 对 于 一 种 给 定 的 数据 结构 ， 
也 可 以 有 许多 方式 将 其 表示 为 简单 对 象 的 组 合 ， 而 这 种 表示 的 选择 ， 有 可 能 对 操作 这 些 数 据 
的 计算 过 程 的 时 间 与 空间 需求 造成 重大 的 影响 。 我 们 将 在 符号 微分 、 集 合 的 表示 和 信息 编码 
的 上 下 文中 研究 这 些 思想 。 
随后 我 们 将 转 去 处 理 在 一 个 程序 的 不 同 部 分 可 能 采用 不 同 表示 的 数据 的 问题 ， 这 就 引出 
了 实现 通用 型 操作 的 需要 ， 这 种 操作 必须 能 处 理 许 多 不 同 的 数据 类 型 。 为 了 维持 模块 性 ， 通 
用 型 操作 的 出 现 ， 将 要 求 比 只 有 简单 数据 抽象 更 强大 的 抽象 屏障 。 特 别 地 ， 我 们 将 介绍 数据 
导向 的 程序 设计 。 这 是 一 种 技术 ， 它 能 允许 我 们 孤立 地 设计 每 一 种 数据 表示 ， 而 后 用 添加 的 
方式 将 它们 组 合 进 去 (也 就 是 说 ， 不 需要 任何 修改 )。 为 了 展示 这 一 系统 设计 方法 的 威力 ， 在 
本 章 的 最 后 ， 我 们 将 用 已 经 学 到 的 东西 实现 一 个 多 项 式 符 号 算术 的 程序 包 ， 其 中 多 项 式 的 系 
数 可 以 是 整数 、 有 理 数 、 复 数 ， 甚 至 还 可 以 是 其 他 多 项 式 。 


2.1 数据 抽象 导 引 


从 1.1.8 节 可 以 看 到 ， 在 构造 更 复杂 的 过 程 时 可 以 将 一 个 过 程 用 作 其 中 的 元 素 ， 这 样 的 过 
程 不 但 可 以 看 作 是 一 组 特定 操作 ， 还 可 以 看 作 一 个 过 程 抽象 。 也 就 是 说 ， 有 关 过 程 的 实现 细 
节 可 以 被 隐蔽 起 来 ， 这 个 特定 过 程 完全 可 以 由 另 一 个 具有 同样 整体 行为 的 过 程 取代 。 换 句 话 
说 ， 我 们 可 以 这 样 造 成 一 个 抽象 ， 它 将 这 一 过 程 的 使 用 方式 ， 与 该 过 程 究竟 如 何 通过 更 基本 
的 过 程 实现 的 具体 细节 相互 分 离 。 针 对 复合 数据 的 类 似 概 念 被 称 为 数据 抽象 。 数 据 抽象 是 一 
种 方法 学 ， 它 使 我 们 能 将 一 个 复合 数据 对 象 的 使 用 ， 与 该 数据 对 象 怎样 由 更 基本 的 数据 对 象 
构造 起 来 的 细节 隅 离开 。 

数据 抽象 的 基本 思想 ， 就 是 设法 构造 出 一 些 使 用 复合 数据 对 象 的 程序 ， 使 它们 就 像 是 在 
“抽象 数据 ”上 操作 一 样 。 也 就 是 说 ， 我 们 的 程序 中 使 用 数据 的 方式 应 该 是 这 样 的 ， 除 了 完成 
当前 工作 所 必要 的 东西 之 外 ， 它 们 不 对 所 用 数据 做 任何 多 余 的 假设 。 与 此 同时 ， 一 种 “具体 
数据 表示 的 定义 ， 也 应 该 与 程序 中 使 用 数据 的 方式 无 关 。 在 我 们 的 系统 里 ， 这 样 两 个 部 分 之 
间 的 界面 将 是 一 组 过 程 ， 称 为 选择 函数 和 构造 函数 ， 它 们 在 具体 表示 之 上 实现 抽象 的 数据 。 
为 了 展示 这 一 技术 ， 下 面 我 们 将 考虑 怎样 设计 出 一 组 为 操作 有 理 数 而 用 的 过 程 。 


2.1.1 实例， 有理数 的 算术 运算 


假定 我 们 希望 做 有 理 数 上 的 算术 ， 和 希望 能 做 有 理 数 的 加 减 乘除 运算 ， 比 较 两 个 有 理 数 是 
否 相等 ， 等 等 。 | 

作为 开始 ， 我 们 假定 已 经 有 了 一 种 从 分 子 和 分 母 构 造 有 理 数 的 方法 。 并 进一步 假定 ， 如 
果 有 了 一 个 有 理 数 ， 我们 有 一 种 方法 取得 ( 选 出 ) 它 的 分 子 和 分 母 。 现 在 再 假定 有 关 的 构造 
函数 和 选择 函数 都 可 以 作为 过 程 使 用 : 
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°. (make-rat <n> <d>) 返回 一 个 有 理 数 ， 其 分 子 是 整数 <n> ， 分 母 是 整数 <d> 。 

” (numer <>) 返回 有 理 数 <x> 的 分 子 。 

。 (denom <x>) 返回 有 理 数 <x> 的 分 母 。 

我 们 要 在 这 里 使 用 一 种 称 为 按 愿 望 思维 的 强 有 力 的 综合 策略 。 现 在 我 们 还 没有 说 有 理 
数 将 如 何 表示 ， 也 没有 说 过 程 numer 、denom 和 make-rat 应 如 何 实 现 。 然 而 ， 如 果 我 们 
真 的 有 了 这 三 个 过 程 ， 那 么 就 可 以 根据 下 面 关 系 去 做 有 理 数 的 加 减 乘除 和 相等 判断 了 : 


nm Ad tind, 

d d, dd, 

n n, nd,-n,d, 

d d, dd, 

non nn 

d d, dd, 

n/d, nd, 

nid, dn, 

1.2 当 且 仅 当 nd, =n,d 


我 们 可 以 将 这 些 规则 表述 为 如 下 几 个 过 程 : 


(define (add-rat x y) 
(make-rat (+ (* (numer 
(* (numer 
(* {denom x) 


(define (sub-rat x y) 
(make-rat (- (* (numer 
(* (numer 
(* (denom x) 


(define (mul-rat x y) 
(make-rat (* (numer x) 


(* (denom x) 


(define (div-rat x y) 
(* (numer 
(* (denom x) 


(make-rat x) 


(define (equal-rat? x y) 
(= (* (numer x) (denom 
(* (numer y) (denom 


x) (denom y)} 
y) (denom x))) 
(denom y)))) 


x) (denom y)) 
y) (denom x))) 
(denom y)))) 


(numer y)) 


(denom y)))) 


(denom y)) 


(numer y)))) 


Y)) 
x))}) 


这 样 ， 我 们 已 经 有 了 定义 在 选择 和 构造 过 程 numer 、denom 和 make~rat 基础 之 上 的 各 
种 有 理 数 运 算 ， 而 这 些 基础 还 没有 定义 。 现 在 需要 有 某 种 方式 ， 将 一 个 分 子 和 一 个 分 母 粘 接 


起 来 ， 构 成 一 个 有 理 数 。 
序 对 


为 了 在 具体 的 层面 上 实现 这 一 数据 抽象 ， 我 们 所 用 的 语言 提供 了 一 种 称 为 序 对 的 复合 结 


构 ， 这 种 结构 可 以 通过 基本 过 程 cons 构 造 出 来 。 过 程 cons 取 两 个 参数 ， 返 回 一 个 包含 这 两 
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个 参数 作为 其 成 分 的 复合 数据 对 象 。 如 果 给 了 一 个 序 对 ， 我 们 可 以 用 基本 过 程 car 和 cdr”， 
按 如 下 方式 提取 出 其 中 各 个 部 分 : 


(define x (cons 1 2)) 


(car x) 
1 


(cdr x) 


ia 
<a 


请 注意 ， 序 对 也 是 一 个 数据 对 象 ， 可 以 像 基本 数据 对 象 一 样 给 它 一 个 名 字 且 操作 它 。 进 
HEIR, E plcone Kh MAVEAC RES RAL AT FRAGA ES 

(define x (cons 1 2)) 

(define y (cons 3 4)) 

(define z (cons x y)) 


(car (car 2)) 
1 


(car (cdr 2)) 
3 


在 2.2 节 里 我 们 将 看 到 ， 这 种 组 合 起 序 对 的 能 力 表 明 ， 序 对 可 以 用 作 构 造 任 意 种 类 的 复杂 数据 
结构 的 通用 的 基本 构件 。 通 过 过 程 cons 、car 和 cdr 实 现 的 这 样 一 种 最 基本 的 复合 数据 ， 广 
对 ， 也 就 是 我 们 需要 的 所 有 东西 。 从 序 对 构造 起 来 的 数据 对 象 称 为 表 结 构 数 据 。 


有 理 数 的 表示 
各 对 为 完 吕 这 里 的 有 理 数 系 统 提供 了 -种 自然 方式 ， 我 们 可 以 将 有 理 数 简单 表示 为 两 个 


整数 (分 子 和 分 母 ) 的 序 对 。 这 样 就 很 容易 做 出 下 面 make-~rat 、numer 和 denom 的 实现 ”; 


(define (make-rat n d) (cons n d)) 
(define (numer x) (car X)) 


(define (denom x) (cdr x)) 


s 名 字 cons 表示“ 构造 ” (construct)。 名 字 car 和 cdr 则 来 自 Lisp 最 初 在 IBM 704 机 器 上 的 实现 。 在 这 种 机 器 有 
一 种 取 址 模式 EA 可 以 访问 一 个 存储 地 址 中 的 “地 址 ”(address ) 部 分 和 “ 减 量 ” (decrement ) 部 分 。Car 
表示 “Contents of Address part of Register” (寄存 器 的 地 址 部 分 ATA), cdr ( 读 作 “could-er”) 表示 
“Contents of Decrement part of Register” (寄存 器 的 减 量 部 分 的 内 容 ) 。 

% 定义 选择 符 和 构造 符 的 另 一 种 方式 是 : 

(define make-rat cons) 
(define numer car) 
(define denom cdr) 
这 里 的 第 一 个 定义 将 名 宁 make-~ -rat 关联 于 表达 式 cons 的 值 ， 也 就 是 那个 构造 序 对 的 过 程 。 这 样 就 使 nake- 
rat 和 cons 成 了 同一 个 基本 过 程 的 名 字 。 

按照 这 种 方式 定义 出 选择 函数 和 构造 函数 的 效率 更 高 ， 因 为 它 不 是 让 make-~zat 去 调用 cons ， 而 是 使 
make-rat 本 身 就 是 cons ， 因 此 ， 如 果 调 用 make-rat ， 在 这 里 就 只 有 一 次 过 程 调用 而 不 是 两 次 调用 。 而 在 
另 一 方面 ， 这 种 做 法 也 会 击溃 系统 的 排 错 辅助 功能 ， 那 种 功能 可 以 追踪 过 程 的 调用 或 者 在 过 程 调 用 处 放 入 断 
点 。 你 有 可 能 希望 监视 对 make-rat 的 调用 ， 而 决 不 会 希望 去 监视 程序 里 的 每 个 cons 调 用 。 

我 们 的 选择 是 ， 不 在 本 书 中 采用 这 里 所 说 的 定义 风格 。 
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还 有 ， 为 了 显示 这 里 的 计算 结果 ， 我 们 可 以 将 有 理 数 打印 为 一 个 分 子 ， 在 斜 线 符 之 后 打印 相 
应 的 分 母 ”: 
(define (print-rat x) 

(newline) 

(display (numer x) ) 

(display "/") 

(display (denom x))) 
现在 就 可 以 试验 我 们 的 有 理 数 过 程 了 : 


(define one-half (make-rat 1 2)) 


(print-rat one-half) 
1/2 


(define one-third (make-rat 1 3)) 


(print-rat (add-rat one-half one-third) ) 
5/6 


(print-rat (mul-rat one~half one-third) ) 
1/6 


(print-rat (add-rat one-third one-third) ) 
6/9 


正如 上 面 最 后 一 个 例子 所 显示 的 ， 我 们 的 有 理 数 实现 并 没有 将 有 理 数 约 化 到 最 简 形 式 。 
通过 修改 make-Iat 很 容易 做 到 这 件 事 。 如 果 我 们 有 了 一 个 如 1.2.5 节 中 那样 的 gcd 过 程 M 
它 可 以 求 出 两 个 整数 的 最 大 公约 数 ， 那 么 现在 就 可 以 利用 它 ， 在 构造 序 对 之 前 将 分 子 和 分 母 
约 化 为 最 简单 的 项 : | 


(define (make-rat n d) 
(let ((g (gcd n d))) 
(cons (/ ng) (/ d 9g)))) 


现在 我 们 就 有 : 
(print-rat (add-rat one-third one-third) ) 
2/3 


正如 所 期 望 的 。 为 了 完成 这 一 改动 ， 我 们 只 需 修改 构造 符 make-Iat ， 完 全 不 必修 改 任 何 实 
现实 际 运算 的 过 程 (例如 add-rat 和 mul-rat )。 

练习 2.1 ”请 定义 出 make~rat 的 一 个 更 好 的 版 本 ， 使 之 可 以 正确 处 理 正 数 和 人 负数。 当 有 
理 数 为 正 时 ，make-rat 应 当 将 其 规范 化 ， 使 它 的 分 子 和 分 母 都 是 正 的 。 如 果 有 理 数 为 负 ， 
那么 就 应 只 让 分 子 为 负 。 


2.1.2 抽象 屏障 


在 继续 讨论 更 多 复合 数据 和 数据 抽象 的 实例 之 前 ， 让 我 们 首先 考虑 一 下 由 有 理 数 的 例子 
提出 的 几 个 问题 。 前 面 给 出 的 所 有 有 理 数 操作 ， 都 是 基于 构造 函数 make-rat 和 选择 函数 


ndisplay 是 Scheme 系 统 里 打印 数据 的 基本 过 程 ， 基 本 过 程 Newline 为 随后 的 打印 开始 一 个 新 行 。 这 两 个 过 
程 都 不 返回 有 用 的 值 ， 所 以 ， 在 下 面 使 用 print-~rat 时 ,我 们 只 显示 了 Print-rat 打 印 的 是 什么 ,而 没有 
显 式 解释 器 对 print~rat 的 返回 值 打 印 了 什么 。 
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numer、denom 定 义 出 来 的 。 一 般 而 言 ， 数 据 抽 象 的 基本 思想 就 是 为 每 一 类 数据 对 象 标识 出 
一 组 操作 ， 使 得 对 这 类 数据 对 象 的 所 有 操作 都 可 以 基于 它们 表述 ， 而 且 在 操作 这 些 数 据 对 象 
时 也 只 使 用 它们 。 

图 2-1 形象 化 地 表示 了 有 理 数 系统 的 结构 。 其 中 的 水 平 线 表示 抽象 屏障 ， 它 们 隔离 了 系统 
中 不 同 的 层次 。 在 每 一 层 上 ， 这 种 屏障 都 把 使 用 数据 抽象 的 程序 Chi) 与 实现 数据 抽象 的 
程序 (下 面 ) 分 开 来 。 使 用 有 理 数 的 程序 将 仅仅 通过 有 理 数 包 提 供给 “公众 使 用 ”的 那些 过 
程 (add-rat. sub-rat, mul-rat, div-ratfpequal-rat?) 去 完成 对 有 理 数 的 各 种 
操作 ， 这 些 过 程 转 而 又 是 完全 基于 构造 函数 和 选择 函数 make-rat 、numer 和 denom 实 现 
的 ， 而 这 些 函 数 又 是 基于 序 对 实现 的 。 只 要 序 对 可 以 通过 cons 、car 和 car 操作 ， 有 关 序 对 
如 何 实现 的 细节 与 有 理 数 包 的 其 余部 分 都 完全 没有 关系 。 从 作用 上 看 ， 每 一 层次 中 的 过 程 构 
成 了 所 定义 的 抽象 屏障 的 界面 ， 联 系 起 系统 中 的 不 同 层 次 。 


使 用 有 理 数 的 程序 


问题 域 中 的 有 理 数 


作为 分 子 和 分 母 的 有 理 数 


make-rat numer denom 


作为 序 对 的 有 理 数 


当然 ， 序 对 也 需要 实现 
图 2-1 有 理 数 包 中 的 数据 抽象 屏障 


这 一 简单 思想 有 许多 优点 。 第 一 个 优点 是 这 种 方法 使 程序 很 容易 维护 和 修改 。 任 意 一 种 
比较 复杂 的 数据 结构 ， 都 可 以 以 多 种 不 同方 式 用 程序 设计 语言 所 提供 的 基本 数据 结构 表示 。 
当然 ， 表 示 方 式 的 选择 会 对 操作 它 的 程序 产生 影响 ， 这 样 ， 如 果 后 来 表示 方式 改变 了 ， 所 有 
受 影响 的 程序 也 都 需要 随 之 改变 。 对 于 大 型 程序 而 言 ， 这 种 工作 将 非常 耗 时 ， 而 且 代价 极其 
昂贵 ， 除 非 在 设计 时 就 已 经 将 依赖 于 表示 的 成 分 限制 到 很 少 的 一 些 程序 模块 上 。 

例如 ， 将 有 理 数 约 化 到 最 简 形式 的 工作 ， 也 完全 可 以 不 在 构造 的 时 候 做 ， 而 是 在 每 次 访 
问 有 理 数 中 有 关 部 分 时 去 做 。 这 样 就 会 导致 男 一 套 不 同 的 构造 函数 和 选择 销 数 : 


(define (make-rat n d) 


(cons n d)) 
(define (numer x) 
(let ((g (gcd (car x) (cdr x)))) 
(/ (car x) g))) 
(define (denom x) 
(let ((g (ged (car x) (cdr x)))) 
(/ (cdr x) g))) 


这 一 实现 与 前 面 实 现 的 不 同 之 处 在 于 何 时 计算 gcd。 如 果 在 有 理 数 的 典型 使 用 中 ， 我 们 需要 
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多 次 访问 同一 个 有 理 数 的 分 子 和 人 分母， 那么 最 好 是 在 构造 有 理 数 的 时 候 计 算 gcd。 如 果 情 况 
并 不 是 这 样 ， 那 么 把 对 gcq 的 计算 推迟 到 访问 时 也 许 更 好 一 些 。 在 这 里 ， 在 任何 情况 下 ， 当 
我 们 从 一 种 表示 方式 转 到 另 一 种 表示 时 ， 过 程 add-rat 、sub-rat 等 等 都 完全 不 必修 改 。 
把 对 于 具体 表示 方式 的 依赖 性 限制 到 少数 几 个 界面 过 程 ， 不 但 对 修改 程序 有 帮助 ， 同 时 
也 有 助 于 程序 的 设计 ， 因 为 这 种 做 法 将 使 我 们 能 保留 考虑 不 同 实现 方式 的 灵活 性 。 继 续 前 面 
的 简单 例子 ， 假 定 现在 我 们 正在 设计 有 理 数 程序 包 ， 而 且 还 无 法 决定 究竟 是 在 创建 时 执行 
gcd， 还 是 应 该 将 它 推迟 到 选择 的 时 候 。 数 据 抽象 方法 使 我 们 能 推迟 决策 的 时 间 ， 而 又 不 会 
阻碍 系统 其 他 部 分 的 工作 进展 。 | 
练习 2.2 请 考虑 平面 上 线段 的 表示 问题 。 一 个 线段 用 一 对 点 表示 ， 它 们 分 别 古 线段 的 始 
点 与 终点 。 请 定义 构造 国 数 make-segment 和 选择 国 数 start-Segment 、end-Ssegment ， 
它们 基于 点 定义 线段 的 表示 。 进 而 ， 一 个 点 可 以 用 数 的 序 对 表示 ， 序 对 的 两 个 成 分 分 别 表 示 
点 的 x 坐 标 和 ?y 坐 标 。 请 据 此 进一步 给 出 构造 国 数 make-~point 和 选择 函数 X-Point y- 
point ， 用 它们 定义 出 点 的 这 种 表示 。 最 后 ， 请 基于 所 定义 的 构造 函数 和 选择 国 数 EA 
过 程 midpoint-segment ， 它 以 一 个 线段 为 参数 ， 返 回 线段 的 中 点 〈 也 就 是 那个 坐标 值 是 
两 个 六 点 的 平均 值 的 把 )。 为 了 试验 这 些 过 程 ， 还 需要 定义 一 种 打印 点 的 方法 : 
(define (print-point p) 
(newline) 
(display "({") 
(display (x-point p)) 
(display ",") 


(display (y-point p)) 
(display ")")) 


练习 2.3 ”请 实现 一 种 平面 矩形 的 表示 (提示: 你 有 可 能 借用 练习 2.2 的 结果 )。 基 于 你 的 
构造 函数 和 选择 函数 定义 几 个 过 程 ， 计 算 8 定 矩形 的 周 长 和 面积 等 现在 请 再 为 矩形 实现 另 
ARR IK 你 应 该 怎样 设计 系统 ， 使 之 能 提供 适当 的 抽象 异 蒜 ， 使 同一 个 周 长 或 者 面积 

过 程 对 两 种 不 同 表示 都 能 工作 ? 


2.1.3 数据 意味 着 什么 


在 2.1.1 节 里 实现 有 理 数 时 ， 我 们 基于 三 个 尚未 定义 的 过 程 make-~rat、numer 和 denonm， 
由 这 些 出 发 去 做 有 理 数 操作 add-zat 、sub-rat 等 等 的 实现 。 按 照 那 时 的 想法 ， 这 些 操作 是 
基于 数据 对 象 GE. OF AM) 定义 的 ， 这 些 对 象 的 行为 完全 由 前 面 三 个 过 程 刻 画 。 
那么 ， 数 据 究竟 意味 着 什么 呢 ? 说 它 就 是 “由 给 定 的 构造 函数 和 选择 函数 所 实现 的 东西 ” 
还 是 不 够 的 。 显 然 ， 并 不 是 任意 的 三 个 过 程 都 适合 作为 有 理 数 实现 的 基础 。 在 这 里 ， 我 们 需 
要 保证 ， 如 果 从 一 对 整数 n 和 d 构 造 出 一 个 有 理 数 x， 那 么 ， 抽 取出 x 的 numer 和 denom 并 将 它 
们 相 除 ， 得 到 的 结果 应 该 与 n 除 以 dQ 相 同 。 换 句 话说 ,make-rat、numer 和 denom 必 须 满足 
下 面条 件 ， 对 任意 整数 "和 任意 非 零 整数 d， 如 果 x 是 (make-rat n d), 那么 : 
| (numer x) _n 
(denom x) d 


事实 上 ， 这 就 是 为 了 能 成 为 适宜 表示 有 理 数 的 基础 ，make-rat、numer 和 denom 必 须 满 足 
的 全 部 条 件 。 一 般 而 言 ， 我 们 总 可 以 将 数据 定义 为 一 组 适当 的 选择 函数 和 构造 函数 ， 以 及 为 


* 








RNR 


使 这 些 过 程 成 为 一 套 合法 表示 ， 它 们 就 必须 满足 的 一 组 特定 条 件 "。 

这 一 观点 不 仅 可 以 服务 于 “高 层 ” 数 据 对 象 的 定义 ， 例 如 有 理 数 ， 同 样 也 可 用 于 低层 的 
对 象 。 请 考虑 序 对 的 概念 ， 我 们 在 前 面 用 它 定义 有 理 数 。 我 们 从 来 都 没有 说 过 序 对 究竟 是 什 
么 ， 只 说 所 用 的 语言 为 序 对 的 操作 提供 了 三 个 过 程 cons 、car 和 cdr 。 有 关 这 三 个 操作 ， 我 
们 需要 知道 的 全 部 东西 就 是 ， 如 果 用 cons 将 两 个 对 象 粘 接 到 一 起 ， 那 么 就 可 以 借助 于 car 和 
cdr 提 取出 这 两 个 对 象 。 也 就 是 说 ， 这 些 操作 满足 的 条 件 是 ， 对 任何 对 象 x 和 y， 如 果 z 是 
(cons x y), 那么 (car z) Ex, 而 (cdr z) 就 是 y。 我 们 确实 说 过 这 三 个 过 程 是 所 
用 的 语言 里 的 基本 过 程 。 然 而 ， 任 何 能 满足 上 述 条 件 的 三 个 过 程 都 可 以 成 为 实现 序 对 的 基础 。 
下 面 这 个 令 人 吃惊 的 事实 能 够 最 好 地 说 明 这 一 点 ; 我 们 完全 可 以 不 用 任何 数据 结构 ， 只 使 用 
过 程 就 可 以 实现 序 对 。 下 面 是 有 关 的 定义 : 


(define (cons X y) 
(define (dispatch m) 


(cond ((= m 0) x) 
((= m 1) Yy) 
(else (error "Argument not 0 or 1 -- CONS" m)))) | 
dispatch) 


(define (car z) (z 0)) 

(define (cdr z) (z 1)) | 
过 程 的 这 一 使 用 方式 与 我 们 有 关 数 据 应 该 是 什么 的 直观 认识 大 相 径 庭 。 但 不 管 怎么 说 ， 如 条 
要 求 我 们 说 明 这 确实 是 一 种 表示 序 对 的 合法 方式 ， 那 么 只 需要 验证 ， 上 述 几 个 过 程 满 足 了 前 
面 提出 的 所 有 条 件 。 

应 该 特别 注意 这 里 的 一 个 微妙 之 处 ; 由 (cons x y) 返回 的 值 是 一 个 过 程 一 -也 就 丰 那 
个 内 部 定义 的 过 程 dispatch ， 它 有 一 个 参数 ， 并 能 根据 参数 是 0 还 是 1， 分 别 返 回 X 或 者 y 。 
与 此 相对 应 ，(car z) 被 定义 为 将 z 应 用 于 0， 这 样 ， 如 果 z 是 由 (cons x y) 形成 的 过 程 ， 
将 z 应 用 于 0 将 会 产生 x， 这 样 就 证 明了 (car (cons x y)) 产生 出 x， 正 如 我 们 所 需要 的 。 
与 此 类 似 ，(cdr (cons x y)) 将 (cons x y) 产生 的 过 程 应 用 于 1 而 得 到 yY。 因 此 ， 序 
对 的 这 一 过 程 实现 确实 是 一 个 合法 的 实现 ， 如 果 只 通过 cons 、car 和 cdr 访 问 序 对 ， 我 们 将 
无 法 把 这 一 实现 与 “真正 的 ”数据 结构 区 分 开 。 

上 面 展示 了 序 对 的 一 种 过 程 性 表示 ， 这 并 不 意味 着 我 们 所 用 的 语言 就 是 这 样 做 的 
(Scheme 和 一 般 的 Lisp 系 统 都 直接 实现 序 对 ， 主 要 是 为 了 效率 ) ， 而 是 说 它 确实 可 以 这 样 做 。 
这 一 过 程 性 表示 虽然 有 些 隐 星 ， 但 它 确实 是 一 种 完全 合适 的 表示 序 对 的 方式 ， 因 为 它 满足 了 
序 对 需要 满足 的 所 有 条 件 。 这 一 实例 也 说 明 可 以 将 过 程 作为 对 象 去 操作 ， 因 此 就 目 动 地 为 我 


7 伟人 吃惊 的 是 ， 将 这 一 思想 严格 地 形式 化 却 非常 困难 。 目 前 存在 着 两 种 完成 这 一 形式 化 的 途径 。 第 一 种 由 C- 
A. R. Hoare (1972) 提出 ， 称 为 抽象 模型 方法 ， 它 形式 化 了 如 上 面 有 理 数 实 例 中 所 勾勒 出 的 “过 程 加 条 件 ” 
的 规范 描述 。 请 注意 ， 这 里 对 于 有 理 数 表示 的 条 件 是 基于 有 关 整 数 的 事实 (相等 和 除法 ) 陈述 的 。 一 般 而 言 ， 
抽象 模型 方法 总 是 基于 菜 些 已 经 有 定义 的 数据 对 象 类 型 ， 定 义 出 一 类 新 的 数据 对 象 。 这 样 ， 有 关 这 些 新 对 象 
的 断言 就 可 以 归 约 为 有 关 已 有 定义 的 数据 对 象 的 断言 。 另 一 种 途径 由 MIT 的 Zilles、 Goguen 和 IBM 的 Thatcher、 
Wagner 和 Wright (Thatcher, Wagner, and Wright 1978), LARToronto 的 Guttag ( 见 Guttag 1977) 提出 ， 称 
为 代数 规范 。 这 一 方式 将 “过 程 ” 看 作 是 一 个 抽象 代数 系统 的 元 素 ， 系 统 的 行为 由 一 些 对 应 于 我 们 的 “条 件 ” 
的 公理 刻画 ， Fe a ALA Re CR RA EA KEEN RGN. Liskov 和 Zilles 的 论文 (Liskov and 
Zilles1975) 里 综述 了 这 两 种 方法 。 
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们 提供 了 一 种 表示 复合 数据 的 能 力 。 这 些 东 西 现在 看 起 来 好 像 只 是 很 好 玩 ， 但 实际 上 ， 数 据 
的 过 程 性 表示 将 在 我 们 的 程序 设计 宝库 里 扮演 一 种 核心 角色 。 有 关 的 程序 设计 风格 通常 称 为 
消息 传递 。 在 第 3 章 里 讨论 模型 和 模拟 时 ， 我 们 将 用 它 作为 一 种 基本 工具 。 

练习 2.4 下面 是 序 对 的 另 一 种 过 程 性 表示 方式 。 请 针对 这 一 表示 验证 ,对 于 任意 的 x 和 y ， 
(car (cons x y)) 都 将 产生 出 x。 


(define (cons x y) 
(lambda (m) (m x y))) 


(define (car 2) 

| (z (lambda (p q) p))) 
对 应 的 cdr 应 该 如 何 定义 ? (提示 :为 了 验证 这 一 表示 确实 能 行 ， 请 利用 1.1.5 节 的 代 换 模 
型 。) 

练习 2.5 WEH, WR kamb FARRA RRL 3* 对 应 的 整数 ， 我 们 就 可 以 只 用 非 负 
整数 和 算术 运算 表示 序 对 。 请 给 出 对 应 的 过 程 cons 、car 和 cdr 的 定义 。 

练习 2.6 如果 觉 得 将 序 对 表示 为 过 程 还 不 足以 令 人 如 雷 灌顶 ， 那 么 请 考虑 ， 在 一 个 可 以 
对 过 程 做 各 种 操作 的 语言 里 ， 我 们 完全 可 以 没有 数 〈 至 少 在 只 考虑 非 负 整数 的 情况 下 )， 可 以 
将 0 和 加 一 操作 实现 为 : 

(define zero (lambda (f) (lambda (x) x))) 

(define (add-1 n) 

(lambda (f) (lambda (x) (f ((n f) x))))) 

这 一 表示 形式 称 为 Church 计 数 ， 名 字 来 源 于 其 发 明 人 数理 逻辑 学 家 Alonzo Church (EÈ), A 
演算 也 是 他 发 明 的 。 

请 直接 定义 one 和 two (不 用 zero 和 add-1) (提示 : 利用 代 换 去 求 值 (add-1 zero)), 
请 给 出 加 法 过 程 + 的 一 个 直接 定义 (不 要 通过 反复 应 用 add-1). 


2.1.4 FRAJ: KIAR 


Alyssa P. Hacker 正 在 设计 一 个 帮助 人 们 求解 工程 问题 的 系统 。 她 希望 这 个 系统 提供 的 一 
个 特征 是 能 够 去 操作 不 准确 的 量 (例如 物理 设备 的 测量 参数 ) ， 这 种 量具 有 已 知 的 精度 ， 所 以 ， 
在 对 这 种 近似 量 进 行 计算 时 ， 得 到 的 结果 也 应 该 是 已 知 精度 的 数值 。 
电子 工程 师 将 会 用 Alyssa 的 系统 去 计算 一 些 电子 量 。 有 时 他 们 必须 使 用 下 面 公式 ， 从 两 个 
电阻 RL 和 Rz 计 算出 并 联 等 价 电 阻 R, 的 值 : | 
R- i 
1/R, +1/R, 


此 时 所 知 的 电阻 值 通常 是 由 电阻 生产 厂商 给 出 的 带 误 差 保证 的 值 ， 例 如 你 可 能 买 到 一 支 标明 
“6.8 欧 姆 误差 10% ”的 电阻 ， 这 时 我 们 就 只 能 确定 ， 这 支 电阻 的 阻 值 在 6.8 — 0.68 =0.12 和 06.8 
+0.68 =7.48 欧 姆 之 间 。 这 样 ， 如 果 将 一 支 6.8 欧 姆 误差 10 旬 的 电阻 与 另 一 支 4.7 欧 姆 误差 5% 的 
电阻 并 联 ， 这 一 组 合 的 电阻 值 可 以 在 大 约 2.58 欧 姆 (如 果 两 支 电阻 都 有 最 小 值 ) 和 2.97 欧 姆 
(如 果 两 支 电 阻 都 是 最 大 值 ) 之 间 。 

Alyssa 的 想法 是 实现 一 套 “ 区 间 算 术 ”， 即 作为 可 以 用 于 组 合 “区间 (表示 某 种 不 准确 
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量 的 可 能 值 的 对 象 ) 的 一 组 算术 运算 。 两 个 区 间 的 加 、 减 、 乘 、 除 的 结果 仍 是 一 个 区 间 ， 表 
示 的 是 计算 结果 的 范围 。 | | 

Alyssa 假 设 有 一 种 称 为 “区 间 ” 的 抽象 对 象 ， 这 种 对 象 有 两 个 端点 , 一 个 下 界 和 一 个 上 界 。 
她 还 假定 ， 给 了 一 个 区 间 的 两 个 端点 ， 就 可 以 用 数据 构造 函数 make~interval 构 造 出 相应 
”的 区 间 来 。Alyssa 首 先 写 出 了 一 个 做 区 间 加 法 的 过 程 ， 她 推理 说 ， 和 的 最 小 值 应 该 是 两 个 区 
间 的 下 界 之 和 ， 其 最 大 值 应 该 是 两 个 区 间 的 上 界 之 和 ;: 


(define (add-interval x y) 
(make-interval (+ (lower-bound x) (lower-bound y)) 
(+ (upper-bound x} (upper-bound y)))) 


Alyssa 还 找 出 了 这 种 界 的 乘积 的 最 小 和 最 大 值 ， 用 它们 做 出 了 两 个 区 间 的 乘积 (min Flmax č 
求 出 任意 多 个 参数 中 的 最 小 值 和 最 大 值 的 基本 过 程 )。 
(define (mul-interval x y) 
(let ((pl (* (lower-bound x) ( lower-bound y))) 

(p2 (* (lower-bound x) (upper-bound y))) 

(p3 (* (upper-bound x) (lower-bound y))) 

(p4 (* (upper-bound x) (upper-bound y)))) 

(make-interval (min pl p2 p3 p4) 
(max pl p2 p3 p4)))) 

为 了 做 出 两 个 区 间 的 除法 ，Alyssa 用 第 一 个 区 间 乘 上 第 二 个 区 间 的 倒数 。 请 注意 ， 倒 数 的 两 
个 限界 分 别 是 原来 区 间 的 上 界 的 倒数 和 下 界 的 倒数 : 


(define (div-interval x y) 
(mul-interval x 
(make-interval (/ 1.0 (upper-bound y)) 
(/ 1.0 (lower-bound y))))) 


练习 2.7 Alyssa 的 程序 是 不 完整 的 ， 因为 她 还 没有 确定 区 间 抽 象 的 实现 。 这 里 是 区 间 构 
造 符 的 定义 : 

(define (make-interval a b) (cons a b)) 
请 定义 选择 符 UpPper-bound 和 lower-bound， 完 成 这 一 实现 。 

练习 2.8 ”通过 类 似 于 Alyssa 的 推理 ， 说 明 两 个 区 间 的 差 应 该 怎样 计算 。 请 定义 出 相应 的 
mye Asub-interval, 

练习 2.9 “区间 的 宽度 就 是 其 上 界 和 下 界 之 差 的 一 半 。 区 间 宽度 是 有 关 区 间 所 描述 的 相应 
数值 的 非 确定 性 的 一 种 度量 。 对 于 某 些 算术 运算 ， 两 个 区 间 的 组 合 结果 的 宽度 就 是 参数 区 间 
的 宽度 的 函数 ， 而 对 其 他 运算 ， 组 合 区 间 的 宽度 则 不 是 参数 区 间 宽 度 的 函数 。 证 明 两 个 区 间 
的 和 (与 差 ) 的 宽度 就 是 被 加 (或 减 ) 的 区 间 的 宽度 的 函数 。 举 例 说 明 ， 对 于 乘 和 除 而 言 ， 
情况 并 非 如 此 。 

练习 2.10 Ben Bitdiddle 是 个 专业 程序 员 ， 他 看 了 Alyssa 工 作 后 评论 说 ， 除 以 一 个 跨 过 模 
路 0 的 区 间 的 意义 不 清楚 。 请 修改 Alyssa 的 代码 ， 检 查 这 种 情况 并 在 出 现 这 一 情况 时 报错 。 

练习 2.11 ”在 看 了 这 些 东 西 之 后 ，Ben 又 说 出 了 下 面 这 段 有 些 神秘 的 话 :“ 通 过 监测 区 间 
的 端点 ， 有 可 能 将 mul-interval 分 解 为 ?9 种 情况 ， 每 种 情况 中 所 需 的 乘法 都 不 超过 两 次 。 
请 根据 Ben 的 建议 重 写 这 个 过 程 。 
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在 排除 了 自己 程序 里 的 错误 之 后 ，Alyssa 给 一 个 可 能 用 户 演示 自己 的 程序 。 那 个 用 户 却 说 
她 的 程序 解决 的 问题 根本 不 对 。 他 希望 能 够 有 一 个 程序 ， 可 以 用 于 处 理 那 种 用 一 个 中 间 值 和 
一 个 附加 误差 的 形式 表示 的 数 ， 也 就 是 说 ， 希 望 程序 能 处 理 3.5 +0.15 而 不 是 [3.35，3.65]。 
Alyssa 回 到 自己 的 办 公 桌 来 纠正 这 一 问题 ， 另 外 提供 了 一 个 构造 符 和 一 个 选择 符 ; 


(define (make-center-width c w) 
(make-interval (- c w) (+ c w))) 


(define (center i) 
(/ (+ (lower-bound i) (upper-bound i)) 2)) 


(define (width i) 
{/ (- (upper-bound i) (lower-bound i)) 2)) | 

不 幸 的 是 ，Alyssa 的 大 部 分 用 户 是 工程 师 ， 现 实 中 的 工程 师 经 常 遇 到 只 有 很 小 非 准 确 性 的 
测量 值 ， 而 且 常 常 是 以 区 间 宽 度 对 区 间 中 点 的 比值 作为 度量 值 。 他 们 通常 用 的 是 基于 有 关 部 
件 的 参数 的 百分数 描述 的 误差 ， 就 像 前 面 描述 电阻 值 的 那 种 方式 一 样 。 

练习 2.12 请 定义 一 个 构造 函数 make-center-percent， 它 以 一 个 中 心 点 和 一 个 百 分 
比 为 参数 ， 产 生出 所 需要 的 区 间 。 你 还 需要 定义 选择 函数 Perzcent， 通过 它 可 以 得 到 给 定 区 
间 的 百分数 误差 ， 选 择 函 数 center 与 前 面 定义 的 一 样 。 | 

练习 2.13 ”请 证 明 ， 在 误差 为 很 小 的 百分数 的 条 件 下 ， 存在 着 一 个 简单 公式 ， 利用 它 可 以 
从 两 个 被 乘 区 间 的 误差 算出 乘积 的 百分数 误差 值 。 你 可 以 假定 所 有 的 数 为 正 ， 以 简化 这 一 问题 。 


经 过 相当 多 的 工作 之 后 ，Alyssa P. Hacker 发 布 了 她 的 最 后 系统 。 几 年 之 后 ， 在 她 已 经 忘 
记 了 这 个 系统 之 后 ， 接 到 了 一 个 愤怒 的 用 户 Lem E. Tweakit 的 发 疯 式 的 电话 。 看 起 来 Lem 注 意 
到 并 联 电阻 的 公式 可 以 写成 两 个 代数 上 等 价 的 公式 : 

RR, 
R, +R, 


和 
| 
UR, +1/R, 


这 样 他 就 写 了 两 个 程序 ， 它 们 以 不 同 的 方式 计算 并 联 电阻 值 : 


(define (parl rl r2) 
(div-interval (mul- -interval ri r2) 
(add-interval rl r2))) 


(define (par? rl r2) 
(let ((one (make-interval 1.1))) 
(div-interval one 
(add-interval (div-interval one rl) 
(div-interval one r2))))) 


Lemie, Alyssa 程 序 对 两 种 不 同 计算 方法 合 出 不 同 的 值 。 这 确实 是 很 严重 的 抱怨 

练习 2.14 ”请 确认 Lem 是 对 的 。 请 你 用 各 种 不 同 的 算术 表达 式 来 检查 这 一 系统 的 生 J 为。 请 
做 出 两 个 区 间 A4 和 B， 并 用 它们 计算 表达 式 4/A 和 4/B。 如 果 所 用 区 间 的 宽度 相对 于 中 心 值 取 很 
小 百分数 ， 你 将 会 得 到 更 多 的 认识 。 请 检查 对 于 中 心 - 百分比 形式 ( 见 练习 2.12) 进行 计算 





练习 2.15 另 一 用 户 Eva Lu Ator 也 注意 到 了 由 不 同 的 等 价 代 数 表 达 式 计算 出 的 区 间 的 差异 。 
她 说 ， 如 果 一 个 公式 可 以 写成 一 种 形式 ， 其 中 具有 非 惟 确 性 的 变量 不 重复 出 现 ， 那 么 Alyssa 
的 系统 产生 出 的 区 间 的 限界 更 紧 一 些 。 她 说 ， 因 此 ， 在 计算 并 联 电阻 时 , par2 是 比 parl 
“更 好 的 ”程序 。 她 说 得 对 吗 ? 

练习 2.16 请 给 出 一 个 一 般 性 的 解释 ， 为 什么 等 价 的 代数 表达 式 可 能 导致 不 同 计 算 结 
R? 你 能 设计 出 一 个 区 间 算 术 包 ， 使 之 没有 这 种 缺陷 吗 ? 或 者 这 件 事情 根本 不 可 能 做 到 ? 
(警告 : 这 个 问题 非常 难 。) 


2.2 层次 性 数据 和 闭 包 性 质 


正如 在 前 面 已 经 看 到 的 ， 序 对 为 我 们 提供 了 一 种 用 干 构 造 复合 数据 的 基本 “ 粘 接 剂 ”。 
2-2 展 示 的 是 一 种 以 形象 的 形式 看 序 对 的 标准 方式 ， 其 preng 
中 的 序 对 是 通过 (cons 1 2) ERR. TEX PRA £ 
子 和 指针 表示 方式 中 ， 每 个 对 象 表示 为 一 个 指向 盒子 的 
指针 。 与 基本 对 象 相对 应 的 盒子 里 包含 着 该 对 象 的 表示 ， 
例如 ， Bon BUNS FER CR AT AP A. 用 于 表示 图 2.2 (cons 1 2) 的 盒子 和 指针 表示 
PHATE RRLE MPR, Hep AM Wee Ae : 
序 对 的 car (指向 car 的 指针 )， 右 边 部 分 放 着 相应 的 cdr 。 
前 面 已 经 看 到 了 ， 我 们 不 仅 可 以 用 cons 去 组 合 起 各 种 数值 ， 也 可 以 用 它 去 组 合 起 序 对 
(你 在 做 练习 2.2 和 练习 2.3 时 已 经 ， 或 者 说 应 该 ， 熟 悉 这 一 情况 了 )。 作 为 这 种 情况 的 推论 ， 序 
对 就 是 一 种 通用 的 建筑 砌 块 ， 通 过 它 可 以 构造 起 所 有 不 同 种 类 的 数据 结构 来 。 图 2-3 显 示 的 是 
组 合 起 数值 1 、2、3 、4 的 两 种 不 同方 式 。 





(cons (cons 1 2) (cons (cons 1 
(cons 3 4)) {cons 2 3)) 
4) 


图 2-3 用 序 对 组 合 起 数值 1、2、3、4 的 两 种 不 同方 式 


我 们 可 以 建立 元 素 本 身 也 是 序 对 的 序 对 ， 这 就 是 表 结 构 得 以 作为 一 种 表示 工具 的 根本 基 
础 。 我 们 将 这 种 能 力 称 为 cons 的 闭 色 性 质 。 一 般 说 ， 某 种 组 合 数据 对 象 的 操作 满足 闭 包 性 质 ， 
那 就 是 说 ， 通 过 它 组 合 起 数据 对 象 得 到 的 结果 本 身 还 可 以 通过 同样 的 操作 再 进行 组 合 "。 闭 包 


2 术语“ 闭 包 ”来 自 抽象 代数 。 在 抽象 代数 里 ， 一 集 元 素 称 为 在 某 个 运算 (操作 ) 之 下 封闭 ， 如 果 将 该 运算 应 
用 于 这 一 集合 中 的 元 素 ， 产 生出 的 仍然 是 该 集合 里 的 元 素 。 然 而 Lisp 社 团 (很 不 幸 ) QAR “AB” HR 
另 一 个 与 此 训 不 相干 的 概念 ， 闭 包 也 是 一 种 为 表示 带 有 自由 变量 的 过 程 而 用 的 实现 技术 。 本 书 中 没有 采用 闭 
包 这 一 术语 的 第 二 种 意义 。 





性 质 是 任何 一 种 组 合 功能 的 威力 的 关键 要 素 ， 因 为 它 使 我 们 能 够 建立 起 层次 性 的 结构 ， 这 种 
结构 由 一 些 部 分 构成 ， 而 其 中 的 各 个 部 分 又 是 由 它们 的 部 分 构成 ， 并 且 可 以 如 此 继续 下 去 。 
从 第 1 章 的 开始 ， 我 们 在 处 理 过 程 的 问题 中 就 利用 了 闭 包 性 质 ， 而 且 是 最 本 质 性 的 东西 ， 
因为 除了 最 简单 的 程序 外 ， 所 有 程序 都 依赖 于 一 个 事实 : 组 合式 的 成 员 本 身 还 可 以 是 组 合式 。 
在 这 一 节 里 ， 我 们 要 着 手 研 究 复合 数据 的 闲 包 所 引出 的 问题 。 这 里 将 要 描述 一 些 用 起 来 很 方 
便 的 技术 ， 包 括 用 序 对 来 表示 序列 和 树 。 还 要 给 出 一 种 能 以 某 种 很 生动 的 形式 显示 闭 包 的 图 


2.2.1 序列 的 表示 


利用 序 对 可 以 构造 出 的 一 类 有 用 结构 是 序列 一 一 一 批 数据 对 象 的 一 种 有 序 汇集 。 显 然 ， 采 
用 序 对 表示 序列 的 方式 很 多 ， 一 种 最 直接 的 表示 方式 如 图 2-4 所 示 ， 其 中 用 一 个 序 对 的 链条 表 
示 出 序列 1 ,2，3, 4， 在 这 里 ， 每 个 序 对 的 car 部 分 对 应 于 这 个 链 中 的 条 目 ，cdr 则 是 链 中 下 
一 个 序 对 。 最 后 的 一 个 序 对 的 cdr 用 一 个 能 辨 明 不 是 序 对 的 值 表 示 ， 标 明 序 列 的 结束 ， 在 盒 
子 指针 图 中 用 一 条 对 角 线 表示 ， 在 程序 里 用 变量 nil 的 值 。 整 个 序列 可 以 通过 婴 套 的 cons 操 
作 构 造 起 来 : 





图 2-4 将 序列 ! ，2 ，3，4 表 示 为 序 对 的 链 


(cons 1 
(cons 2 
{cons 3 
(cons 4 nil)))) 


通过 嵌 套 的 cons 形 成 的 这 样 一 个 序 对 的 序列 称 为 一 个 表 ，sScheme 为 方便 表 的 构造 ， 提 供 
了 一 个 基本 操作 1ist74， 上 面 序列 也 可 以 通过 (list 1 2 3 4) 产 和 后。 一般 说 : 


(list <a> <a> 。。。 <a,>) 
等 价 于 : 
(cons <a> (cons <a> (CONS .-. (cons <a,> nil) .-+))) 


3 一 种 组 合 方法 应 该 满足 闭 包 的 要 求 是 一 种 很 明显 的 想法 。 然 而 ， 许 多 常见 程序 设计 语言 所 提供 的 数据 组 合 机 
制 都 不 满足 这 一 性 质 ， 或 者 是 使 得 其 中 的 闭 包 性 质 很 难 利用 。 在 Fortran 或 Basic 里 ， 组 合 数据 的 一 种 典型 方式 
是 将 它们 放 入 数组 一 一 但 人 却 不 能 做 出 元 素 本 身 是 数组 的 数组 。Pascal 和 C 人 允许 结构 的 元 素 又 是 结构 ， 但 却 要 
求 程序 员 去 显 式 地 操作 指针 ， 并 限制 性 地 要 求 结 构 的 每 个 域 都 只 能 包含 预先 定义 好 形式 的 元 素 。 与 Lisp 及 其 
序 对 不 同 ， 这 些 语 言 都 没有 内 部 的 通用 性 粘 接 剂 ， 因 此 无 法 以 统一 的 方式 去 操作 复合 数据 。 这 一 限制 也 就 是 
Alan Perlis 在 本 书 前 言 中 的 评论 的 背景 ;:“ 在 Pascal 里 ， 过 多 的 可 声明 数据 结构 导致 了 函数 的 专用 化 ， 这 就 造 
成 了 对 合作 的 阻碍 和 惩罚 。 让 100 个 函数 在 一 个 数据 结构 上 操作 ， 远 比 让 10 个 函数 在 10 个 数据 结构 上 操作 更 好 
ee” 

4 在 这 本 书 里 ， 我 们 用 术语 表 专 指 那些 有 表 尾 结束 标记 的 序 对 的 链 。 与 此 相对 应 ， 用 术语 表 结 构 指 所 有 的 由 序 
对 构造 起 来 的 数据 结构 ， 而 不 仅 是 表 。 
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Lisp 系 统 通常 用 元 内 序列 的 形式 打印 出 表 ， 外 面 用 括号 括 起 。 按 照 这 种 方式 ， 图 2-4 里 的 数据 
对 象 就 将 打印 为 (1 2 3 4): 

(define one-through-four (list 1 2 3 4)) 

one-~through-four 

(1 2 3 4) 
请 当心 ， 不 要 将 表达 式 (list 12 3 4) 和 表 (1 2 3 4) AEI. MEARKE X m 
表达 式 求 值得 到 的 结果 。 如 果 想 去 求 值 表 达 式 (1 2 3 4), 解释 器 就 会 试图 将 过 程 1 应 用 于 
参数 2 、3 和 4 ， 这 时 会 发 出 一 个 出 错 信号 。 

我 们 可 以 将 car 看 作 选 取 表 的 第 一 项 的 操作 ， 将 cdr 看 作 是 选取 表 中 除去 第 一 项 之 后 剩 下 
的 所 有 项 形成 的 子 表 。car 和 cdr 的 幅 套 应 用 可 以 到 出 一 个 表 里 的 第 二 、 第 三 以 及 后 面 的 各 项 ”。 
构造 符 cons 可 用 于 构造 表 ， 它 在 原 有 的 表 前 面 增加 一 个 元 素 : 

(car one-through-four) 


1 


(cdr one-through-four) 
(2 3 4) 


(car (cdr one-through-four) ) 
2 


(cons 10 one-through-four) 
(10 12 3 4) 


(cons 5 one-through-four) 
(5 12 3 4) 


nil 的 值 用 于 表示 序 对 的 链 结束 ， 它 也 可 以 当 作 一 个 不 包含 任何 元 素 的 序列 ， 空 表 。 单 记 
“nil” 是 拉丁 词汇 “nihil” 的 缩写 ， 这 个 拉丁 词汇 表示 “什么 也 没有 ””。 


RIRE 

利用 序 对 将 元 素 的 序列 表示 为 表 之 后 ， 我 们 就 可 以 使 用 常规 的 程序 设计 技术 ， 通 过 顺序 
“向 下 cdr” 表 的 方式 完成 对 表 的 各 种 操作 了 。 例 如， 下 面 的 过 程 1ist-ref 的 实际 参数 是 一 
个 表 和 一 个 数 +， 它 返回 这 个 表 中 的 第 rn 个 项 。 这 里 人 们 习惯 令 表 元 素 的 编号 从 0 开始 。 计 算 
list-ref 的 方法 如 下 : 

。 对 n 二 0，1l1ist-ref 应 返回 表 的 car。 

. TUJ, lList-ref 返回 表 的 cdr 的 第 (nn 一 1) 个 项 。 


”因为 幅 套 地 应 用 car 和 cdr 也 会 感到 很 麻烦 ， 所 以 许 多 Lisp 方 言 都 提供 了 它们 的 缩写 形式 Pán: 
(cadr <arg>) = (car (cdr <arg> )) 


所 有 这 类 过 程 的 名 字 都 以 c 开 头 ， 以 上 < 结束， 其 中 每 个 a 表 示 一 个 car 操作 ， 每 个 a 表示 一 个 cdr 操 作 ， 按 照 和 
们 在 名 字 中 出 现 的 顺序 应 用 。 读 car 和 cdr 的 方式 则 继续 保留 ， 因 为 像 cadr 这 样 的 简单 组 合 还 是 可 以 发 音 的 。 

™ 值得 提出 的 是 ， 在 Lisp 方 言 的 标准 化 方面 ， 人 们 已 经 令 人 气 馒 地 将 许 许多 多 精力 花 在 一 些 毫 无 意义 的 字面 间 
题 的 争论 上 : nil 应 该 是 个 普通 的 名 字 吗 ? nil 的 值 应 该 算是 一 个 符号 吗 ? 它 应 该 算是 一 个 表 吗 ? 它 应 该 算 
一 个 序 对 吗 ? 在 Scheme 里 nil 是 个 普通 的 名 字 ， 在 本 节 里 被 我 们 用 作 一 个 变量 ， 其 值 就 是 表 尾 标 记 《正如 
true 是 个 普通 变量 ,具有 真 的 值 一 样 ) 。Lisp 的 其 他 方言 ， 包 括 Common Lisp， 都 将 nil 作为 一 个 特殊 符号 。 
本 书 的 作者 参加 过 许多 语言 标准 化 方面 的 无 益 口角 ， 真 是 希望 完全 避免 这 些 东西 。 到 “.3 节 引进 了 引号 之 后 ， 
我 们 就 将 一 直 用 O 表示 空 表 ， 完 全 抛弃 变量 nil。 
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(define (list-ref items n) 
(if (= n 0) 
(car items) 
(list-ref (cdr items) (- n 1)))) 


(define squares (list 1 4 9 16 25)) 


(list-ref squares 3) 
16 


我 们 经 常 要 向 下 cdr 整 个 的 表 ， 为 了 帮助 做 好 这 件 事 ，Scheme 包 含 一 个 基本 操作 nul1l?， 
用 于 检查 参数 是 不 是 空 表 。 返 回 表 中 项 数 的 过 程 1ength 可 以 说 明 这 一 典型 应 用 模式 : 
(define (length items) 
(if (null? items) 


0 
(+ 1 (length (cdr items))))) 


(define odds (list 1 3 5 7)) 


(length odds) 
4 


过 程 Length 实 现 一 种 简单 的 递归 方案 ， 其 中 的 递归 步骤 是 : 
* 任意 一 个 表 的 length 就 是 这 个 表 的 cdr 的 length 加 一 。 
顺序 地 这 样 应 用 ， 直 至 达到 了 基础 情况 : 
。 空 表 的 Length 是 0 。 
我 们 也 可 以 用 一 种 迭代 方式 来 计算 length， 
(define (length items) 
(define (length-iter a count) 
(if (null? a) 
count 
(length~iter (cdr a) (+ 1 count)))) 
(length-iter items 0)) 
另 一 常用 程序 设计 技术 是 在 向 下 cdr 一 个 表 的 过 程 中 “向 上 cons ”出 一 个 结果 表 ， 例 如 
过 程 append ， 它 以 两 个 表 为 参数 ， 用 它们 的 元 素 组 合成 一 个 新 表 : 
(append squares odds) 


(1 49 16 251357) 


(append odds squares) 
(1357149 16 25) 
append 也 是 用 一 种 递归 方案 实现 的 。 要 得 到 表 1ist1 和 1List2 的 append ， 按 如 下 方式 做 : 
。 如果 list1l1 是 空 表 ， 结果 就 是 list2。 
。 否则 应 先 做 出 list1 的 cdr 和 1ist2 的 append， 而 后 再 将 listl1 的 car 通 过 cons 加 到 


结果 的 前 面 : 
(define (append listl list2) 
(if (null? listl) 
list2 
(cons (car listl) (append (cdr listl) List2)))) 
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练习 2.17 ”请 定义 出 过 程 1ast-Ppair， 它 返回 只 包含 给 定 〈 非 空 ) 表 里 最 后 一 个 元 素 的 


(last-pair (list 23 72 149 34)) 

(34) 

练习 2.18 ”请 定义 出 过 程 reverse ， 它 以 一 个 表 为 参数 ， 返 回 的 表 中 所 包含 的 元 素 与 参 
数 表 相同 ， 但 排列 顺序 与 参数 表 相 反 : 

(reverse (list 1 4 9 16 25)) 

(25 16 9 4 1) 

练习 2.19 ”请 考虑 1.2.2 节 的 兑换 零钱 方式 计数 程序 。 如 果 能 够 轻而易举 地 改变 程序 里 所 
用 的 兑换 币 种 就 更 好 了 。 璧 如 说 ， 那 样 我 们 就 能 计算 出 ! 英镑 的 不 同 竟 换 方式 的 数目 。 在 写 前 
面 那个 程序 时 ， 有 关 币 种 的 知识 中 有 一 部 分 出 现在 过 程 first-denomination 里 ， 另 一 部 
分 出 现在 过 程 里 count-change ( 它 知 道 有 5 种 U.S. 硬 币 )。 如 果 能 够 用 一 个 表 来 提供 可 用 十 
交换 的 硬币 就 更 好 了 。 

我 们 希望 重 写 出 过 程 cc ， 使 其 第 二 个 参数 是 一 个 可 用 硬币 的 币值 表 ， 而 不 是 一 个 指定 可 
用 硬币 种 类 的 整数 。 而 后 我 们 就 可 以 针对 各 种 货币 定义 出 一 些 表 : 


(define us-coins (list 50 25 10 5 1)) 


(define uk-coins (list 100 50 20 10 5 2 1 0.5)) 


然后 我 们 就 可 以 通过 如 下 方式 调用 cc: 
(cc 100 us-coins) 
292 
为 了 做 到 这 件 事 ， 我 们 需要 对 程序 cc 做 一 些 修改 。 它 仍然 具有 同样 的 形式 ， 但 将 以 不 同 的 方 
式 访问 自己 的 第 二 个 参数 ， 如 下 面 所 示 : 
(define (cc amount coin-values) 
(cond ((= amount 0) 1) 
((or (< amount 0) (no-more? coin-values)) 0) 
(else 
(+ (cc amount 
(except-first-denomination coin-values) ) 
(cc (- amount 
(first-denomination coin-values } ) 


coin-values))))) 

请 基于 表 结 构 上 的 基本 操作 ， 定 义 出 过 程 fizst-dqenominat1ion、 except-first- 
denominationffno-more?, #coin-values 的 排列 顺序 会 影响 cc 给 出 的 回答 吗 ? 为 什 
么 ? 

练习 2.20 ”过程 +、* 和 1ist 可 以 取 任 意 个 数 的 实际 参数 。 定 义 这 类 过 程 的 一 种 方式 古 
采用 一 种 带 点 尾部 记 法 形式 的 define。 在 一 个 过 程 定义 中 ， 如 果 在 形式 参数 表 的 最 后 一 个 参 
数 之 前 有 一 个 点 号 ， 那 就 表明 ， 当 这 一 过 程 被 实际 调用 时 ， 前 面 各 个 形式 参数 (如 果 有 的 话 ) 
将 以 前 面 的 各 个 实际 参数 为 值 ， 与 平常 一 样 。 但 最 后 一 个 形式 参数 将 以 所 有 剩 下 的 实际 参数 
的 表 为 值 。 例 如 ， 假 大 我 们 定义 了 了: 


(define (f x y . z) <body>) 





过 程 上 就 可 以 用 两 个 以 上 的 参数 调用 。 如 果 求 值 : 
{£12345 6) 
那么 在 £ 的 体 里 ，x 将 是 1，y 将 是 2， 而 z 将 是 表 (3 4 5 6), 给 了 定义 : 


(define (g . w) <body>) 


过 程 g9 可 以 用 0 个 或 多 个 参数 调用 。 如 果 求 值 : 


(g 123 45 6) 


那么 在 g 的 体 里 ，w 将 是 表 (1 23 4 5 6)”, 

请 采用 这 种 记 法 形式 写 出 过 程 same-parity， 它 以 一 个 或 者 多 个 整数 为 参数 ， 返 回 所 有 
与 其 第 一 个 参数 有 着 同样 奇偶 性 的 参数 形成 的 表 。 例 如 : 

(Same-parity 12 3 45 6 7) 

(1357) 


(same-parity 2 3 4 5 6 7) 
(2 4 6) 


对 表 的 映射 
一 个 特别 有 用 的 操作 是 将 某 种 变换 应 用 于 一 个 表 的 所 有 元 素 ， 得 到 所 有 结果 构成 的 表 。 
举例 来 说 ， 下 面 过 程 将 一 个 表 里 的 所 有 元 素 按 给 定 因子 做 一 次 缩放 : 
(define (scale-list items factor) 
(if (null? items) 
nil 
(cons (* (car items) factor) 
(scale-list (cdr items) factor)))) 


(scale-list (list 12 3 4 5) 10) 
(10 20 30 40 50) 


我 们 可 以 抽象 出 这 一 具有 一 般 性 的 想法 ， 将 其 中 的 公共 模式 表述 为 一 个 高 阶 过 程 ， 就 像 
1.3 节 里 所 做 的 那样 。 这 一 高 阶 过 程 称 为 nap ， 它 有 一 个 过 程 参数 和 一 个 表 参 数 ， 返 回 将 这 一 
过 程 应 用 于 表 中 各 个 元 素 得 到 的 结果 形成 的 表 ”。 

{define {map proc items) 

(if (null? items) 


”用 lambda 方式 定义 E 和 9g ， 应 该 写 : 


(define f (lambda (x y . z) <body>)) 
(define g (lambda w <zody> ) ) 


8 Scheme 标准 提供 了 一 个 map 过 程 ， 它 比 这 里 描述 的 过 程 更 具 一 般 性 。 这 个 更 一 般 的 mapP 以 一 个 hrf Sk Ot 
程 和 nt 个 表 为 参数 ， 将 这 个 过程 应 用 于 所 有 表 的 第 一 个 元 素 ， 而 后 应 用 十 它们 的 第 二 个 元 素 ， 如 此 下 去 ， 最 后 
返回 所 有 结果 的 表 。 例 如 : 

(map + (list 1 2 3) (list 40 50 60) (list 700 800 900)) 
(741 852 963) 


(map (lambda (x y) (+ x (* 2 y))) 
(list 1 2 3) 
(list 4 5 6)) 

(9 12 15) 
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nil 
(cons (proc (car items)) 
(map proc (cdr items))))) 


(map abs (list -10 2.5 -11.6 17)) 
(10 2.5 11.6 17) 
(map (lambda (x) (* x x)) 
(list 1 2 3 4)) 
(1 4 9 16) 
现在 我 们 可 以 用 map 给 出 scale-1ist 的 一 个 新 定义 : 
(define (scale-list items factor) 
(map (lambda (x) (* x factor)) 
items) ) 
map 是 一 种 很 重要 的 结构 ， 不 仅 因 为 它 代 表 了 一 种 公共 模式 ， 而且 因 为 它 建立 起 了 一 种 
处 理 表 的 高 层 抽 象 。 在 scale-1ist 原 来 的 定义 里 ， 程序 的 递归 结构 将 人 的 注意 力 吸 引 到 对 
于 表 中 逐个 元 素 的 处 理 上 。 通 过 map 定 义 scale-1ist 抑 制 了 这 种 细节 层面 上 的 情况 ， 强 调 
的 是 从 元 素 表 到 结果 表 的 一 个 缩放 变换 。 这 两 种 定义 形式 之 间 的 差异 ， 并 不 在 于 计算 机 会 执 
行 不 同 的 计算 过 程 《其 实 不 会 )， 而 在 于 我 们 对 这 同一 个 过 程 的 不 同 思考 方式 。 从 作用 上 看 ， 
map 帮 有 我 们 建 起 了 一 层 抽象 屏障 ， 将 实现 表 变 换 的 过 程 的 实现 ， 与 如 何 提取 表 中 元 素 以 及 组 
合 结果 的 细节 隔离 开 。 与 图 2-1 里 所 示 的 屏障 类 似 ， 这 种 抽象 也 提供 了 新 的 灵活 性 ， 使 我 们 有 
可 能 在 保持 从 序列 到 序列 的 变换 操作 框架 的 同时 ， 改变 序列 实现 的 低层 细节 。2.2.3 布 将 把 序 
列 的 这 种 使 用 方式 扩展 为 一 种 组 织 程序 的 框架 。 
练习 2.21 过 程 square-1ist 以 一 个 数值 表 为 参数 ， 返 回 每 个 数 的 平方 构成 的 表 : 
(square-list (list 1 2 3 4)) 
(1 4 9 16) 
下 面 是 sgquare-1list 的 两 个 定义 ， 请 填充 其 中 缺少 的 表达 式 以 完成 它们 | 
(define (square-list items) 
(if (null? items) 
nii 
{cons <??> <??>))) 
(define (square-list items) 
(map <?2> <??>)) 
练习 2.22 Louis Reasoner 试 图 重 写 练习 2.21 的 第 一 个 square-1ist 过 程 ， 希 望 使 它 能 
生成 一 个 迭代 计算 过 程 : 
(define (square-list items) 
(define (iter things answer) 
(if (null? things) 
answer 
(iter (cdr things) 
(cons (square (car things)) 
answer)))) 


(iter items nil)) 


但 是 很 不 幸 ， 在 按 这 种 方式 定义 出 的 square-1ist 产 生出 的 结果 表 中 ， 元 素 的 顺序 正好 与 





我 们 所 需要 的 相反 。 为 什么 ? 
Louls 又 试 着 修正 其 程序 ， 交 换 了 cons MAR: 
(define (square-list items) 
(define (iter things answer) 
(if (null? things) 
answer 
(iter (cdr things) 
(cons answer 
(square (car things)))))) 


(iter items nil)) 
但 还 是 不 行 。 请 解释 为 什么 。 
练习 2.23 ”过 程 Eor-each 与 nap 类 似 ， 它 以 一 个 过 程 和 一 个 元 素 表 为 参数 ， 但 它 并 不 返 
回 结果 的 表 ， 只 是 将 这 一 过 程 从 左 到 右 应 用 于 各 个 元 素 ， 将 过 程 应 用 于 元 素 得 到 的 值 都 丢掉 
不 用 。for-each 通 常用 于 那些 执行 了 某 些 动作 的 过 程 ， 如 打印 等 。 看 下 面 例子: 


(for-each (lambda (x) (newline) (display x)) 
(list 57 321 88)) 

57 

321 

88 


由 for-each 的 调用 返回 的 值 (上 面 没有 显示 ) 可 以 是 某 种 任意 的 东西 ， 例 如 逻辑 值 真 。 请 
给 出 一 个 for-each 的 实现 。 


2.2.2 层次 性 结构 

将 表 作 为 序列 的 表示 方式 ， 可 以 很 自然 地 推广 到 表示 那些 元 素 本 身 也 是 序列 的 序列 。 举 
例 来 说 ， 我 们 可 以 认为 对 象 ((1 2) 3 4) 是 通过 下 面 方式 构造 出 来 的 : 

(cons (list 1 2) (list 3 4)) 


这 是 一 个 包含 三 个 项 的 表 ， 其 中 的 第 一 项 本 身 又 是 表 (1 2)。 这 一 情况 也 由 解释 器 的 打印 形 
式 所 肯定 。 图 2-5 用 序 对 的 语言 展示 出 这 一 结构 的 表示 形式 。 


(3 4) 


((1 2) )3 4) 





图 2-5 由 (cons (list 1 2) (list 3 4)) 形成 的 结构 


认识 这 种 元 素 本 身 也 是 序列 的 序列 的 另 一 种 方式 ， 是 把 它们 看 作 树 。 疗 列 里 的 元 素 就 是 





树 的 分 支 ， 而 那些 本 身 也 是 序列 的 元 素 就 形成 了 树 中 的 子 树 。 图 2-6 显 示 的 是 将 图 2-5 的 结构 看 
作 树 的 情况 。 ((1 2) 3 4) 

递归 是 处 理 树 结构 的 一 种 很 自然 的 工具 ， 因 为 我 们 常常 
可 以 将 对 于 树 的 操作 归结 为 对 它们 的 分 支 的 操作 ， 再 将 这 种 


操作 归结 为 对 分 支 的 分 支 的 操作 ， 如 此 下 去 ， 直 至 达到 了 树 CS 

的 叶子 。 作 为 例子 ， 请 比较 一 下 2.2.1 市 的 length 过 程 和 下 L 4 
面 的 count-leaves 过 程 ， 这 个 过 程 统计 出 一 棵 树 中 树叶 的 / SY 

数目 : 


图 2-6 将 图 2-5 中 的 表 结 构 看 作 树 


(define x (cons {list 1 2) (list 3 4))) 


(length x) 
3 


(count-leaves x) 
4 


(list x x) 
(((1 2) 3 4) ((1 2) 3 4)) 


(length {list x x)) 
2 


(count-leaves (list x x)) 
8 


为 了 实现 count-leaves ， 可 以 先 回忆 一 下 length 的 递归 方案 : 
。 表 x 的 length 是 x 的 cdr 的 Length 加 一 。 
* 空 表 的 -sngth 是 0。 
count-leaves 的 递归 方案 与 此 类 似 ， 对 于 空 表 的 值 也 相间 : 
。 空 表 的 count-leaves 是 0， 
但 是 在 递归 步骤 中 ， 当 我 们 去 掉 一 个 表 的 car 时 ， 就 必须 注意 这 一 Car 本身 也 可 能 是 树 ， 其 树 
叶 也 需要 考虑 。 这 样 ， 正 确 的 归 约 步骤 应 该 是 : 
。 对 于 树 x 的 count-leaves 应 该 是 x 的 car 的 count-leaves 与 Xx 的 cdr 的 count~leaves 
之 和 。 
最 后 ， 在 通过 caz 达 到 一 个 实际 的 树叶 时 ， 我 们 还 需要 另 一 种 基本 情 次 : 
。 一 个 树叶 的 count-leaves 是 1。 
为 了 有 助 于 写 出 树 上 的 各 种 递归 ，Scheme 提 供 了 基本 过 程 pPair? ， 它 检查 其 参数 是 否 为 序 对 。 
下 面 就 是 我 们 完成 的 过 程 ”: 
(define (count-leaves x) 
(cond ((mull? x) 0) 
( (not (pair? x)) 1) 


(else (+ (count-leaves (car x)) 
(count-leaves (cdr x)))))) 


练习 2.24 ”假定 现在 要 求 值 表达 式 (list 1 (list 2 (list 3 4))), 请 给 出 由 解释 


”在 这 个 定义 里 ，cond 的 前 两 个 子 句 的 顺序 非常 重要 ， 因 为 空 表 将 满足 N011? ,而 它 同时 又 不 是 序 对 。 
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器 打印 出 的 结果 ， 给 出 与 之 对 应 的 盒子 指针 结构 ， 并 将 它 解 释 为 一 棵 树 〈 参 见 图 2-6) 。 
练习 2.25 给 出 能 够 从 下 面 各 表 中 取出 7 的 car 和 cdr 组 合 : 
(1 3 (5 7) 9) | 
((7)) 
(1 (2 (3 (4 (5 (6 7)))))) 
练习 2.26 假定 已 将 x 和 y 定 义 为 如 下 的 两 个 表 : 
(define x (list 1 2 3)) 
(define y (list 4 5 6)) 
解释 器 对 于 下 面 各 个 表达 式 将 打印 出 什么 结果 : 
(append x y) 
(cons x y) 
(list x y) 
练习 2.27 修改 练习 2.18 中 所 做 的 reverse 过 程 ， 得 到 一 个 deep-reverse 过 程 。 它 [人 
一 个 表 为 参数 ， 返 回 另 一 个 表 作 为 值 ， 结 果 表 中 的 元 素 反 转 过 来 ， 其 中 的 子 树 也 反 转 。 例 如 : 
(define x (list (list 1 2) (list 3 4))) 
((1 2) (3 4)) 
(reverse x) 


((3 4) (1 2)) 


(deep-reverse x) 
((4 3) (2 1)) 


练习 2.28 ” 写 一 个 过 程 Ezinge ， 它 以 一 个 树 (表示 为 表 ) 为 参数 ， 返 回 一 个 表 ， 表 中 的 
元 素 是 这 棵 树 的 所 有 树叶 ， 按 照 从 左 到 右 的 顺序 。 例 如 : 

(define x (list (list 1 2). (list 3 4))) 

(fringe x) 

(1 2 3 4) 

(fringe (list x x)) 

(123 412 3 å) 

练习 2.29 ”一 个 二 叉 活 动 体 由 两 个 分 支 组 成 ， 一 个 是 左 分 支 ， 另 一 个 是 右 分 支 。 每 个 分 
支 是 一 个 具有 确定 长 度 的 杆 ， 上 面 或 者 吊 着 一 个 重量 ， 或 者 吊 着 另 一 个 二 叉 话 动 体 。 我 们 可 
以 用 复合 数据 对 象 表示 这 种 二 叉 活 动 体 ， 将 它 通过 其 两 个 分 支 构造 起 来 〈 例 如 ， 使 用 1ist ): 


(define (make-mobile left right) 
(list left right) ) 


分 支 可 以 从 一 个 length ( 它 应 该 是 一 个 数 ) 再 加 上 一 个 structure 构 造 出 来 ， 这 个 
structure 或 者 是 一 个 数 (表示 一 个 简单 重量 ) ， 或 者 是 另 一 个 活动 体 : 


(define (make-branch length structure) 
(list length structure)) 
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a) 请 写 出 相应 的 选择 函数 left-branch 和 right~branch， 它 们 分 别 返 回 活动 体 的 两 
个 分 支 。 还 有 branch-length 和 branch-structure， 它们 返回 一 个 分 支 上 的 成 分 。 

b) 用 你 的 选择 函数 定义 过 程 total-weight ， 它 返回 一 个 活动 体 的 总 重量 。 

c) 一 个 活动 体 称 为 是 平衡 的 ， 如 果 其 左 分 支 的 力矩 等 于 其 右 分 支 的 力矩 (也 就 是 说 ， 如 
果 其 左 杆 的 长 度 乘 以 吊 在 杆 上 的 重量 ， 等 于 这 个 活动 体 右 边 的 同样 乘积 )， 而 且 在 其 每 个 分 支 
上 吊 着 的 子 活 动 体 也 都 平衡 。 请 设计 一 个 过 程 ， 它 能 检查 一 个 二 又 活动 体 是 否 平衡 。 

d) 假定 我 们 改变 活动 体 的 表示 ， 采 用 下 面 构造 方式 : 

(define (make-mobile left right) 


(cons left right)) 


(define (make-branch length structure) 
(cons length structure) ) 


你 需要 对 自己 的 程序 做 多 少 修改 ， 才 能 将 它 改 为 使 用 这 种 新 表示 ? 


对 树 的 映射 
map 是 处 理 序 列 的 一 种 强 有 力 抽 象 ， 与 此 类 似 ，mapP 与 递归 的 结合 也 是 处 理 树 的 一 种 强 有 
力 抽象 。 举 例 来 说 ， 可 以 有 与 2.2.1 节 的 scale-1ist 类 似 的 scale-tIee 过 程 ， 以 一 个 数值 
因子 和 一 棵 叶子 为 数值 的 树 作为 参数 ， 返 占 一 棵 具有 同样 形状 的 树 ， 树 中 的 每 个 数值 都 乘 以 
了 这 个 因子 。 对 于 scale~tree 的 递归 方案 也 与 count~leaves 的 类 似 : 
(define (scale-tree tree factor) 
(cond ((null? tree) nil) 
| ((mot (pair? tree)) (* tree factor)) 


(else (cons (scale-tree (car tree) factor) 
(scale-tree (cdr tree) factor))))) 


(scale-tree (list 1 (list 2 (list 3 4) 5) (list 6 7)) 
10) 
(10 (20 (30 40) 50) (60 70)) 


实现 scale-tree 的 另 一 种 方法 是 将 树 看 成 子 树 的 序列 ， 并 对 它 使 用 map。 我 们 在 这 种 
序列 上 做 映射 ， 依 次 对 各 棵 子 树 做 缩放 ， 并 返回 结果 的 表 。 对 于 基础 情况 ， 也 就 是 当 被 处 理 
的 树 是 树叶 时 ， 就 直接 用 因子 去 乘 它 : 


{define (scale-tree tree factor) 
(map (lambda (sub-tree) 
(if (pair? sub-tree) 
(scale-tree sub-tree factor) 
(* sub-tree factor))) 


tree) ) 
对 干 树 的 许多 操作 可 以 采用 类 似 方式 ， 通过 序列 操作 和 递归 的 组 合 实现 
练习 2.30 ”请 定义 一 个 与 练习 2.21 中 square-1list 过 过 程 类 似 的 square-tree 过 各 也 
就 是 说 ， 它 应 该 具有 下 面 的 行为 : 
(square-tree 


(list 1 
(list 2 (list 3 4) 5) 
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(list 6 7))) 
(1 (4 (9 16) 25) (36 49)) | 
请 以 两 种 方式 定义 Square-tree ， 直 接 定义 〈 即 不 使 用 任何 高 阶 函 数 )， 以 及 使 用 map 和 递 
YATE MX 
练习 2.31 将 你 在 练习 2.30 做 出 的 解答 进一步 抽象 ， 做 出 一 个 过 程 ， 使 它 的 性 质保 证 能 以 
下 面 形式 定义 Square-tree: | 


(define (Square-tree tree) (tree-map square tree)) 


练习 2.32 ”我们 可 以 将 一 个 集合 表示 为 一 个 元 素 互 不 相同 的 表 ， 因 此 就 可 以 将 一 个 集合 
的 所 有 子 集 表示 为 表 的 表 。 例 如 ， 假 定 集合 为 (1 2 3)， 它 的 所 有 子 集 的 集合 就 是 〈() B) 
(2) (2 3) (1) (1 3) (1 2) (1 2 3))。 请 完成 下 面 的 过 程 定义 ， 它 生成 出 一 个 集合 的 
所 有 子 集 的 集合 。 请 解释 它 为 什么 能 完成 这 一 工作 。 
(define (subsets s) 
(if (null? s) 
(list nil) 
(let ((rest (subsets (cdr s)))) 
(append rest {map <??> rest))))) 


2.2.3 序列 作为 一 种 约定 的 界面 


我 们 一 直 强 调 数据 抽象 在 对 复合 数据 的 工作 中 的 作用 ， 借 助 这 种 思想 ， 我 们 就 能 设计 出 
不 会 被 数据 表示 的 细节 纠缠 的 程序 ， 使 程序 能 够 保持 很 好 的 弹性 ， 得 以 应 用 到 不 同 的 具体 表 
示 上 。 在 这 一 节 里 ,我 们 将 要 介绍 与 数据 结构 有 关 的 另 一 种 强 有 力 的 设计 原理 一 一 使 用 约定 
的 界面 。 

在 1.3 节 里 我 们 看 到 ， 可 以 通过 实现 为 高 阶 过 程 的 程序 抽象 ， 抓 住处 理 数 值 数据 的 一 些 程 
序 模式 。 要 在 复合 数据 上 工作 做 出 类 似 的 操作 ， 则 对 我 们 操控 数据 结构 的 方式 有 着 这 刻 的 依 
赖 性 。 举 个 例子 ,考虑 下 面 与 2.2.2 节 中 count-leaves 过 程 类 似 的 过 程 ， 它 以 一 棵 树 为 参数 ， 
计算 出 那些 值 为 奇数 的 叶子 的 平方 和 : 

(define (sum-odd-squares tree) 

(cond ((null? tree) 0) 
( (not (pair? tree)) 
(if (odd? tree) (square tree) 0)) 


(else (+ (sum-odd-squares (car tree) ) 
(sum-odd-squares (cdr tree)))))) 


从 表面 上 看 ， 这 一 过 程 与 下 面 的 过 程 很 不 一 样 。 下 面 这 个 过 程 构造 出 的 是 所 有 偶数 的 韭 波 堵 
扫 数 Fib(k) 的 一 个 表 ， 其 中 的 k 小 于 等 于 某 个 给 定 整 数 n.: 


(define (even-fibs n) 
{define (next k) 
(if (> k n) 
nil 
(let ((f (fib k))) 
(if (even? f) 

(cons f (next (+ k 1))) 
(next (+ k 1)))))) 
(next 0)) o 





虽然 这 两 个 过 程 在 结构 上 差异 非常 大 ， 但 是 对 于 两 个 计算 的 抽象 描述 却 会 揭示 出 它们 之 
间 极 大 的 相似 性 。 第 一 个 程序 : 
“。 枚 举 出 一 棵 树 的 树叶 ，. 
(MENT, WHE Pa ae ， 
。 对 选 出 的 每 一 个 数 求 平方 ， 
* 用 + 累积 起 得 到 的 结果 ， 从 0 开始 。 
而 第 二 个 程序 : 
。 枚 举 从 0 到 nn 的 整数 ， 
。 对 每 个 整数 计算 相应 的 斐 波 那 契 数 ， 
。 过 着 它们 ， 选 出 其 中 的 偶数 ， 
。 用 cons 累积 得 到 的 结果 ， 从 空 表 开 始 。 
信号 处 理工 程 师 们 可 能 会 发 现 ， 这 种 过 程 可 以 很 自然 地 用 流 过 一 些 级 联 的 处 理 步 又 的 信 
号 的 方式 描述 ， 其 中 的 每 个 处 理 步骤 实现 程序 方案 中 的 一 个 部 分 ， 如 图 2-7 所 示 。 对 于 第 一 种 
if tisum-odd-squares, 我们 从 一 个 枚 举 器 开始 ， 它 产生 出 由 给 定 的 树 的 所 有 树 时 组 成 
“信号 ”。 这 一 信号 流 过 一 个 过 滤器 ， 所 有 不 是 奇数 的 数 都 被 删除 了 。 这 样 得 到 的 信号 义 通 过 
一 个 映射 ， 这 是 一 个 “转换 装置 ”， 它 将 sguare 过 程 应 用 于 每 个 元 素 。 这 一 映射 的 输出 被 局 
入 一 个 果 积 器 ， 该 装置 用 十 将 得 到 的 所 有 元 素 组 合 起 来 ， 以 初始 的 0 开始 。even-fibs 的 工 
作 过 程 与 此 类 似 。 


enumerate: filter: map: accumulate: 
tree leaves odd? square +, 0 
enumerate: filter: accumulate: 
integers even? cons, () 


图 2-7 过 程 sum-odd-squares (上 ) 和 even-fibs (F) 
的 信号 流 图 揭示 出 这 两 个 程序 的 共性 


遗憾 的 是 ， 上 面 的 两 个 过 程 定义 并 没有 展现 出 这 种 信号 流 结构 。 璧 如 说 ， 如 果 仔 细 考 罕 
sum-odd-squares 过 程 ， 就 会 发 现 其 中 的 枚 举 工 作 部 分 地 由 检查 null1? 和 pair? 实现 ， 部 
分 地 由 过 程 的 树 形 递归 结构 实现 。 与 此 类 似 ， 在 那些 检查 中 也 可 以 看 到 一 部 分 累积 工作 ， 另 
一 部 分 是 用 在 递归 中 的 加 法 。 一 般 而 言 ， 在 这 两 个 过 程 里 ， 没 有 一 个 部 分 正好 对 应 于 信号 流 
描述 中 的 某 一 要 素 。 我 们 的 两 个 过 程 采 用 不 同 的 方式 分 解 了 这 个 计算 ， 将 枚 举 工 作 散 布 在 程 
序 中 各 处 ， 并 将 它 与 映射 、 过 滤器 和 累积 器 混在 一 起 。 如 果 我 们 能 够 重新 组 织 这 一 程序 ， 使 
得 信号 流 结 构 明 显 表现 在 写 出 的 过 程 中 ， 将 会 大 大 提高 结果 代码 的 清晰 性 。 

序列 操作 | 

要 组 织 好 这 些 程序 ， 使 之 能 够 更 清晰 地 反应 上 面 信号 流 的 结构 ， 最 关键 的 一 点 就 是 将 注 
意 力 集中 在 处 理 过 程 中 从 一 个 步 又 流向 下 一 个 步骤 的 “信号 ”。 如 果 我 们 用 一 些 表 来 表示 这 些 
zE, ， 那 么 就 可 以 利用 表 操 作 实 现 每 一 步骤 的 处 理 。 举 例 来 说 ， 我 们 可 以 用 2.2.1 节 的 map 过 
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程 实现 信号 流 图 中 的 上 映射 步骤 : 
(map square (list 1 2 3 4 5)) 
(1 4 9 16 25) 


过 滤 一 个 序列 ， 也 就 是 选 出 其 中 满足 某 个 给 定 谓词 的 元 素 ， 可 以 按 下 面 方 式 做 : 
(define (filter predicate sequence) 
(cond ((null? sequence) nil) 
( (predicate (car sequence) ) 
(cons (car sequence} 
(filter predicate (cdr sequence)))) 
(else (filter predicate (cdr sequence))))) 


例如 ， 


(filter odd? (list 1 2 3 4 5)) 
(1 3 5) 


累积 工作 可 以 实现 如 下 : 


(define (accumulate op initial sequence) 
(if. (null? sequence) 
initial 
(Op (car sequence) 
(accumulate op initial (cdr sequence))))) 


(accumulate + 0 (list 1 2 3 4 5)) 
15 


(accumulate * 1 (list 1 2 3 4 5)) 
120 


(accumulate cons nil (list 1 2 3 4 5)) 
(1 2 3 4 5) 


剩 下 的 就 是 实现 有 关 的 信号 流 图 ， 枚 举 出 需要 处 理 的 数据 序列 。 对 于 even-fibs， 我 们 
需要 生成 出 一 个 给 定 区 间 里 的 整数 序列 ， 这 一 序列 可 以 如 下 做 出 : 
(define (enumerate-interval low high) 
(if (> low high) 
nil 
(cons low (enumerate-interval (+ low 1) high)))) 


(enumerate-interval 2 7) 
(2 3 45 6 7) 


要 枚 举 出 一 棵 树 的 所 有 树叶 ， 则 可 以 用 : 


(define (enumerate-tree tree) 
(cond ((null? tree) nil) 
( (not (pair? tree)) (list tree)) 
(else (append (enumerate-tree (car tree)) 
(enumerate-tree (cdr tree)))))) 


(enumerate-tree (list 1 (list 2 (list 3 4)) 5)) 


0 这 实际 上 就 是 练 到 .28 的 过 程 fringe ， 在 这 里 给 它 另 取 一 个 名 字 ， 是 为 了 强调 它 是 一 般 性 的 序列 操控 过 程 族 
的 一 个 组 成 部 分 。 
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现在 ,我 们 就 可 以 像 上 面 的 Ao UC Ed ahr apa sum~odd- squaresfileven-fibs f , 
对 于 sum-odd-squares， 我 们 需要 榴 举 一 棵 树 的 树叶 序列 ， 过 滤 它 ， 只 留 下 序列 中 的 奇数 ， 
求 每 个 元 素 的 平方 ， 而 后 加 起 得 到 的 结果 : 
(define (sum-odd-squares tree) 
(accumulate + 
0 
(map square 
(filter odd? 
(enumerate-tree tree))))) 


对 于 even-fibs， 我 们 需要 枚 举 出 从 0 到 nn 的 所 有 整数 ， 对 茶 个 整数 生成 相应 的 斐 波 那 问 数 ， 
通过 过 滤 只 留 下 其 中 的 偶数 ， 并 将 结果 积累 在 一 个 表 里 : 

(define (even-fibs n) 

(accumulate cons 
nil 
(filter even? 
(map fib 
(enumerate-interval 0 n))))) 

将 程序 表示 为 一 些 针 对 序列 的 操作 ， 这 样 做 的 价值 就 在 于 能 帮助 我 们 得 到 模块 化 的 程序 
设计 ， 也 就 是 说 ， 得 到 由 一 些 比较 独立 的 片段 的 组 合 构成 的 设计 。 通 过 提供 一 个 标准 部 件 的 
库 ， 并 使 这 些 部 件 都 有 着 一 些 能 以 各 种 灵活 方式 相互 连接 的 约定 界面 ， 将 能 进一步 推动 人 们 
去 做 模块 化 的 设计 。 

在 工程 设计 中 ， 模 块 化 结构 是 控制 复杂 性 的 一 种 威力 强大 的 策略 。 举 例 来 说 ， 在 真实 的 
言 号 处 理应 用 中 ， 设 计 者 通常 总 是 从 标准 化 的 过 滤器 和 变换 装置 族 中 选 出 一 些 东西 ， 通 过 级 
联 的 方式 构造 出 各 种 系统 。 与 此 类 似 ， 序 列 操作 也 形成 了 一 个 可 以 混合 和 匹配 使 用 的 标准 的 
程序 元 素 库 。 例 如 ， 我 们 可 以 在 另 一 个 构造 前 关 + 1 个 斐 波 那 契 数 的 平方 的 程序 里 ， 使 用 取 自 
过 程 Sum-odd-sgquares 和 even-ftibs 的 片段 : 

(define (list-fib-squares n) 

(accumulate cons 
nil 
(map square 
(map fib 
(enumerate-interval 0 n))))) 
(list-fib-squares 10) 
(0 11 4 9 25 64 169 441 1156 3025) 


我 们 也 可 以 重新 安排 有 关 的 各 个 片段 ， 将 它们 用 在 产生 一 个 序列 中 所 有 奇数 的 平方 之 乘积 的 
计算 里 : | 


(define (product-of-squares-of-odd-elements sequence) 
(accumulate * 
1 
(map square 
(filter odd? sequence) ) ) ) 





(product-of-squares-—of-~odd-elements (list 1 2 3 4 5)) 
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我 们 同样 可 以 采用 序列 操作 的 方式 ， 重 新 去 形式 化 各 种 常规 的 数据 处 理应 用 。 假 定 有 一 
个 人 事 记 录 的 序列 ， 现 在 希望 找 出 其 中 薪水 最 高 的 程序 员 的 工资 数额 。 假 定 现 在 有 一 个 选择 
函数 salary 返 回 记录 中 的 工资 数 ， 男 有 谓词 programmer? 检 查 某 个 记录 是 不 是 程序 员 ， 此 
时 我 们 就 可 以 写 :: 

(define (salary-of-highest-paid-programmer records) 

(accumulate max 
0 


(map salary 
(filter programmer? records)))) 


这 些 例子 给 了 我 们 一 些 启发 ， 范 围 广大 的 许多 操作 都 可 以 表述 为 序列 操作 ”。 

在 这 里 ， 用 表 实 现 的 序列 被 作为 一 种 方便 的 界面 ， 我 们 可 以 利用 这 种 界面 去 组 合 起 各 种 
处 理 模块 。 进 一 步 说 ， 如 果 以 序列 作为 所 用 的 统一 表示 结构 ， 我 们 就 能 将 程序 对 于 数据 结构 
的 依赖 性 局 限 到 不 多 的 几 个 序列 操作 上 。 遂 过 修改 这 些 操 作 ， 就 可 以 在 序列 的 不 同 表 示 之 间 
转换 ， 并 保持 程序 的 整个 设计 不 变 。 在 3.5 节 里 还 要 继续 探索 这 方面 的 能 力 ， 那 时 将 把 序列 处 
理 的 苑 型 推广 到 无 穷 序 列 。 

练习 2.33 ”请 填充 下面 缺失 的 表达 式 ， 完 成 将 一 些 基本 的 表 操 作 看 作 累 积 的 定义 : 

(define (map p sequence) 


(accumulate (lambda (x y) <??>) nil sequence) ) 


(define (append seql seq2) 
{accumulate cons <??> <??>)) 


(define {length sequence) 
{accumulate <??> 0 sequence) ) 


练习 2.34 ”对 于 x 的 某 个 给 定 值 ， 求 出 一 个 多 项 式 在 x 的 值 ， 也 可 以 形式 化 为 一 种 累积 。 假 
定 需要 求 下 面 多 项 式 的 值 : | 
A,X” 十 Cr |! 十 … 十 41X 二 ao 
采用 著名 的 Horner 规 则 ， 可 以 构造 出 下 面 的 计算 : 
(… (ax +a, 1)X+ +a) XxX+ao 


换 名 话说， 我 们 可 以 从 ar 开始 ， 乘 以 xz， 再 加 上 a， 1!， 乘 以 rz， 如 此 下 去 ， 直 到 处 理 完 2 。 请 


8i Richard Waters (1979) 开发 了 一 个 能 自动 分 析 传 统 的 Fortran 程 序 ， 并 用 映射 、 过 滤器 和 累积 器 的 观点 去 观察 它们 
的 程序 。 他 发 现 ， 在 Fortran Scientific Subroutine Package (Fortran 科 学 计算 子 程序 包 ) E, RAOL LA 
很 好 地 纳入 这 一 风范 之 中 。 作 为 程序 设计 语言 ，Lisp 取 得 成 功 的 一 个 原因 ， 就 在 于 它 用 表 作为 表述 有 序 汇集 的 一 
种 标准 媒介 ， 并 使 它们 可 以 通过 高 阶 操作 来 处 理 。 程 序 设计 语言 APL 的 威力 和 形式 也 来 自 另 一 种 类 似 选 择 。 在 
APL 里 ， 所 有 的 数据 都 是 数组 ， 而 且 为 各 种 类 型 的 通用 数组 操作 提供 了 一 集 具 有 普遍 性 、 使 用 方便 的 运算 符 。 

8 根据 Knuth (1981)， 这 一 规则 是 W. G. Horner 在 19 世 纪 早 期 提出 的 ， 但 这 一 方法 在 100 多 年 前 就 已 经 被 牛顿 实 
际 使 用 了 。Horner 规 则 在 求 值 多 项 式 时 所 用 的 加 法 和 乘法 次 数 少 于 直接 方法 ， 即 那 种 先 计 算出 a; x, 而 后 加 
ka, x ', ， 并 这 样 做 下 去 的 方法 。 事 实 上 ， 可 以 证 明 ， 任 何 多 项 式 的 求 值 算法 至少 需要 做 Horner 规 则 那么 多 
次 加 法 和 乘法 ， 因 此 ，Horner 规 则 就 是 多 项 式 求 值 的 最 优 算法 。 这 一 论断 由 A,. M. Ostrowski 在 1954 年 的 一 篇 
文章 中 (对 加 法 ) 证 明 ， 这 也 是 现代 最 优 算法 研究 的 开创 性 工作 。 关 于 乘法 的 类 似 论断 由 Y. Y. Pan 在 1966 年 
证 明 。Borodin 和 Munro 的 著作 (1975) 里 有 对 这 些 工作 的 概述 和 有 关 最 优 算法 的 其 他 一 些 结 末 。 
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填充 下 面 的 模板 ， 做 出 一 个 利用 Horner 规 则 求 多 项 式 值 的 过 程 。 假 定 多 项 式 的 系数 安排 在 一 
个 序列 里 ， Shap Hi Ba, | 


(define (horner-eval x coefficient-sequence) 
(accumulate (lambda (this-coeff higher-terms) <??>) 
0 
coefficient-sequence) ) 
例如 ， 为 了 计算 1+3x+5x + 在 x =2 的 值 ， 你 需要 求 值 ; 
{horner-eval 2 (list 1 3 0 5 0 1)) 
练习 2.35 将 2.2.2 节 的 count-leaves 重新 定义 为 一 个 累积 ， 


(define (count-leaves t) 
(accumulate <??> <??> (map <??> <??>))) 


练习 2.36 过程 accumulate-nS5Saccumulate 类 似 ， 除 了 它 的 第 三 个 参数 是 一 个 序列 
的 序列 ， 假 定 其 中 每 个 序列 的 元 素 个 数 相同 。 它 用 指定 的 累积 过 程 去 组 合 起 所 有 序列 的 第 一 
个 元 素 ， 而 后 是 所 有 序列 的 第 二 个 元 素 ， 并 如 此 做 下 去 ， 返 回 得 到 的 所 有 结果 的 序列 。 例 如 ， 
如 果 s 是 包含 着 4 个 序列 的 序列 (A 2 3) (4 5 6) (7 8 9) (10 11 12)), 那么 
(accumulate-n +0 s) 的 值 就 应 该 是 序列 (22 26 30)。 请 填充 下 面 accumulate-n 定 
义 中 所 缺失 的 表达 式 : | 
(define (accumulate-n op init seqs) 
(if (null? (car seqs)) 
nil 
(cons (accumulate op init <??>) 
(accumulate-n op init <??>)))) 


练习 2.37 假定 我 们 将 向 量 v =) 表示 为 数 的 序列 , REAR = (ma) 表示 为 回 量 (矩阵 行 ) 
的 序列 。 例 如 ， 和 矩阵 : | 


12 3 4 
4 5 6 6 
6 7 8 9 


用 序列 ((1 2 3 4) (4 5 6 6) (6 7 8 9)) 表示 。 对 于 这 种 表示 ， 我 们 可 以 用 序列 操 
作 简 洁 地 表达 基本 的 矩阵 与 向 量 运算 。 这 些 运算 (任何 有 关 怎 阵 代数 的 书 里 都 有 描述 ) 如 下 : 
(dot-product v w) 返回 和 Yivw: 
(matrix-*-vector mv) 上 返回 向 量 t, Ehi =mi 
(matrix-*-matrix mn) 返回 矩阵 p, Ppi = Eman 
(transpose m) 返回 矩阵 n, Hpry =m; 
我 们 可 以 将 点 积 (dot product) 定义 为 : 


(define (dot-product v w) 
(accumulate + 0 (map * v w))) 


S 这 一 定义 里 使 用 了 脚注 78 中 描述 的 扩充 的 map。 
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请 填充 下 面 过 程 里 缺失 的 表达 式 ， 它 们 计算 出 其 他 的 矩阵 运算 结果 (过程 accumulate- 
n 在 练习 2.36 中 定义 )。 


(define (matrix-*-vector m v) 
(map <?2> m)) 


bi 


{define (transpose mat) 
(accumulate-n <??> <??> mat)) 


(define (matrix-*-matrix m n) 
(let ((cols (transpose n))) 
(map <??> m))) 


练习 2.38 ”过程 accumulate 也 称 为 fol1d~right ， 因 为 它 将 序列 的 第 一 个 元 素 组 合 到 
右边 所 有 元 素 的 组 合 结果 上 。 也 有 一 个 f0o1d-left， 它 与 fo1d-right 类 似 ， 但 却 是 按照 相 
反方 同 去 操作 各 个 元 素 : 


(define (fold-left op initial sequence) “a 
| (define (iter result rest) 
(if (null? rest) 
result 
(iter (op result (car rest)) 
(cdr rest)))) 


(iter initial sequence) ) 

下 面 表 达 式 的 值 是 什么 ? 

(fold-right / 1 (list 1 2 3)) 

(fold-left / 1 (list 1 2 3)) 

(fold-right list nil (list 1 2 3)) 

(fold-left list nil (list 1 2 3)) 
如 果 要 求 用 某 个 op 时 保证 £01d~right 和 fo01d-left 对 任何 序列 都 产生 同样 的 结果 ， 请 给 
出 op 应 该 满足 的 性 质 。 

练习 2.39 基于 练习 2.38 的 fold-right 和 fo01d-left 完 成 reverse (练习 2.18) FH 
的 定义 : 


(define (reverse sequence) 
(fold~right (lambda (x y) <??>) nil sequence) ) 


(define (reverse sequence) 
(fold~left (lambda (x y) <??>) nil sequence) ) 


BERA 

RATATAT EIEE, Ar Se REE RRR R LOS ER., MEZE T k 
的 问题 给 定 了 自然 数 z， 找 出 所 有 不 同 的 有 序 对 ;了 ， 其 中 1 <j <i<n， 使 得 i+j 是 素数 。 例 
如 ， 假 定 2 是 6， 满 足 条 件 的 序 对 就 是 : 

u 有 关 埠 套 映射 的 这 种 方式 是 由 David Turner 展 现 给 我 们 的 ， 他 的 语言 KRC 和 Miranda 为 处 理 这 些 结构 提供 了 很 


优美 的 形式 。 本 节 里 的 例子 (也 请 看 练习 2.42) 取 自 Turner 1981。3.5.3 节 还 要 将 这 一 途径 推广 到 处 理 无 穷 序 
列 的 情况 。 
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i+] 
完成 这 一 计算 的 一 种 很 自然 的 组 织 方式 ， 首 先生 成 出 所 有 小 于 等 于 mn 的 正 自 然 数 的 有 序 对 ， 而 
后 通过 过 补 ， 得 到 那些 和 为 素数 的 有 序 对 ， 最 后 对 每 个 通过 了 过 滤 的 序 对 (i, 门 ， 产 生出 一 个 
三 元 组 (i,j,i+j); | 
这 里 是 生成 有 序 对 的 序列 的 一 种 方式 : 对 于 每 个 整数 :<n， 枚 举 出 所 有 的 整数 /<i， 并 对 
每 一 对 i 和 生成 序 对 (i, j)。 用 序列 操作 的 方式 说 ,我 们 要 对 序列 (enumerate-interval 
1 on) 做 一 次 映射 。 对 于 这 个 序列 里 的 每 个 ,我 们 都 要 对 序列 (enumerate-interval 1 
(- i 1)) 做 映射 。 对 于 后 一 序列 中 的 每 个 ， 我 们 生成 出 序 对 (List i j)。 这 样 就 对 每 
个 i 得 到 了 一 个 序 对 的 序列 。 将 针对 所 有 i 的 序列 组 合 到 一 起 (用 append 累 积 起 来 )， 就 能 产 
生出 所 需 的 序 对 序列 了 5。 


{accumulate append 
nil 
(map (lambda (1) 
(map (lambda (j) (list i j)) 
(enumerate-interval 1 (- i 1)))) 


(enumerate-interval 1 n})) 


由 于 在 这 类 程序 里 常 要 用 到 映射 ， 并 用 append 做 累积 ， 我 们 将 它 独 立 出 来 定义 为 一 个 过 程 : 


(define (flatmap proc seq) 
(accumulate append nil (map proc seq))) 


现在 可 以 过 滤 这 一 序 对 的 序列 ， 找 出 那些 和 为 素数 的 序 对 。 对 序列 里 的 每 个 元 素 调用 过 滤 谓 
词 。 由 于 这 个 谓词 的 参数 是 一 个 序 对 ， 所 以 它 必 须 将 两 个 整数 从 序 对 里 提取 出 来 。 这 样 ， 作 
用 到 序列 中 每 个 元 素 上 的 谓词 就 是 : 


(define (prime-sum? pair) 
(prime? (+ (car pair) (cadr pair)))) 


AGE RE RAPE, ARE R T ict ERA Sw, ae F 
对 里 的 两 个 元 素 ， 这 一 过 程 生 成 出 一 个 包含 了 它们 的 和 的 三 元 组 : 
(define (make-pair-sum pair) 
(list (car pair) (cadr pair) (+ (car pair) (cadr pair)))) 
将 所 有 这 些 组 合 到 一 起 ， 就 得 到 了 完整 的 过 程 : 
(define (prime-sum-pairs n) 


(map make-pair-sum 
{filter prime-sum? 


(flatmap 
(lambda (i) 
(map (lambda (j) (list i j)) 
(enumerate-interval 1 (- i 1)))) 


5 33 AY EH a OAT ROK. CARER Lisp, Abt, BIRD “Pet” Gj) 就 是 
(list i j), 而 不 是 (cons i j). | 
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(enumerate-interval. 1 n))))) 


RE BRT 7S HE FP Be P, te ey AFE AFA. Rit RE AER RASHI 
有 排列 ， 也 就 是 说 ， 生 成 这 一 集合 的 元 素 的 所 有 可 能 排序 方式 。 例 如 ，{1，2<，3 引 的 所 有 排列 
Æfl, 2, 3}, {1, 3, 2}, {2, 1, 3}, {2, 3, 1}, (3, 1, 2} 和 {3, 2,1}。 这 里 是 生成 3 所 
有 排列 的 序列 的 一 种 方案 ， 对 于 $ 里 的 每 个 fr ， 递 归 地 生成 $ 一 x 的 所 有 排列 的 序列 *， 而 后 将 x 
加 到 每 个 序列 的 前 面 。 这 样 就 能 对 ”里 的 每 个 rz， 产 生出 了 5 的 所 有 以 x 开 头 的 排列 。 将 对 所 有 # 
的 序列 组 合 起 来 ， 就 可 以 得 到 的 所 有 排列 "。 
(define {permutations s) | 
(if (null? s) ; empty set? 
(list nil) ; sequence containing empty set 
(flatmap (lambda (x) 


(map (lambda (p) {cons x p)) 
(permutations (remove x 8s)))) 


s) ) ) 

请 注意 这 里 所 用 的 策略 ， 看 看 它 如 何 将 生成 $ 的 所 有 排列 的 问题 ， 归 结 为 生成 元 素 少 于 5 的 集 
合 的 所 有 排列 的 问题 。 在 终极 情况 中 我 们 将 达到 空 表 ， 它 表示 没有 元 素 的 集合 。 对 此 我 们 生 
成 出 的 就 是 (list nil)， 这 是 一 个 只 包含 一 个 元 素 的 序列 ， 其 中 是 一 个 设 有 元 素 的 集合 。 
在 permutations 过 程 中 所 用 的 remove 过 程 返回 除 指定 项 之 外 的 所 有 元 素 ， 它 可 以 简单 地 
用 一 个 过 滤器 表示 : | 

(define (remove item sequence) 

(filter (lambda (x) (not (= x item))) 
sequence) ) | 

练习 2.40 ”请 定义 过 程 unique-pairs， 给 它 整 数 +， 它 产生 出 序 对 (1, 有 站， 其 中 1 <j<i 
<n、 请 用 unique-pairs 去 简化 上 面 prime-sum~pairs 的 定义 。 

练习 2.41 ”请 写 出 一 个 过 程 ， 它 能 产生 出 所 有 小 于 等 于 给 定 整数 的 正 的 相 异 整数 i、j 和 
的 有 序 三 元 组 ， 使 每 个 三 元 组 的 三 个 元 之 和 等 于 给 定 的 整数 s。 

练习 2.42 “ 八 皇 后 谜 题 ” 各 的 是 怎样 将 八 个 皇后 摆 在 国际 象棋 盘 上 ， 使 得 任意 一 个 皇 
后 都 不 能 攻击 另 一 个 皇后 (也 就 是 说 ,任意 两 个 皇后 都 不 在 同一 行 、 同 一 列 或 者 同一 对 角 线 
上 )。 一 个 可 能 的 解 如 图 2-8 所 示 。 解 决 这 一 谜 题 的 一 种 方法 按 一 个 方向 处 理 棋盘 ， 每 次 在 每 
一 列 里 放 一 个 皇后 。 如 果 现 在 已 经 放 好 了 Kk 一 1 个 皇后 ， 第 kK 个 皇后 就 必须 放 在 不 会 被 已 在 棋盘 
上 的 任何 皇后 攻击 的 位 置 上 。 我 们 可 以 递归 地 描述 这 一 过 程 ， 假定 我 们 已 经 生成 了 在 棋盘 的 
前 k -1 列 中 放置 一 1 个 皇后 的 所 有 可 能 方式 ， 现 在 需要 的 就 是 对 于 其 中 的 每 种 方式 ， 生 成 出 
将 下 一 个 皇后 放 在 第 k 列 中 每 一 行 的 扩充 集合 。 而 后 过 滤 它 们 ， 只 留 下 能 使 位 于 第 Kk 列 的 皇后 
与 其 他 皇后 相安 无 事 的 那些 扩充 。 这 样 就 能 产生 出 将 Kk 个 皇后 放置 在 前 k 列 的 所 有 格局 的 序列 。 
继续 这 一 过 程 ， 我 们 将 能 产生 出 这 一 谜 题 的 所 有 解 ， 而 不 是 一 个 解 。 

将 这 一 解法 实现 为 一 个 过 程 queens , 令 它 返回 在 nx nn 棋盘 上 放 n 个 皇后 的 所 有 解 的 序列 。 
queens 内 部 的 过 程 queen-~cols ， 返 回 在 棋盘 的 前 k 列 中 放 皇 后 的 所 有 格局 的 序列 。 


86 RAS 一 x 里 包括 了 集合 S 中 除 * 之 外 的 所 有 元 素 。 
5? 在 Scheme 代码 中 ， 分 号 用 于 引进 注释 。 从 分 号 开始 直至 行 尾 的 所 有 东西 都 将 被 解释 器 忽略 掉 。 在 本 书 里 使 用 
的 注释 并 不 多 ， 我 们 主要 是 希望 通过 使 用 有 意义 的 名 字 使 程序 具有 自 解释 性 。 
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图 2-8 -J E A EAR he 


(define (queens board-size) 


(define (queen-cols k) 
(if (= k 0) 
(list empty-board) 
(filter | 
(lambda (positions) (safe? k positions) ) 
(flatmap 
{lambda (rest-of-queens) 
(map (lambda (new-row) E 
(adjoin-position new-row k rest- of- _queens) ) 
(enumerate-interval 1 board-size) )} 
{queen-cols (- k 1)))))) | 
(queen-cols board-size) ) 


这 个 过 程 里 的 rest-of -queens 是 在 前 k 一 1 列 放置 + 一 1 个 皇后 的 一 种 方式 ，new~row 是 在 第 
k 列 放置 所 考虑 的 行 编号 。 请 完成 这 一 程序 ， 为 此 需要 实现 一 种 棋盘 格局 集合 的 表示 方式 ， 还 
要 实现 过 程 adjoin-position , 它 将 一 个 新 的 行列 格局 加 入 一 个 格局 集合 ; empty-board, 
它 表示 空 的 格局 集合 。 你 还 需要 写 出 过 程 safe? ， 它 能 确定 在 一 个 格局 中 ， 在 第 k 列 的 皇后 相 
对 于 其 他 列 的 皇后 是 否 为 安全 的 (请 注意 ， 我 们 只 需 检查 新 皇 睛 是否 安 全 一 -其 他 皇后 已 经 保 
证 相安 无 事 了 ) 。 o 

练习 2.43 Louis Reasoner 在 做 练习 2.42 时 遇 到 了 麻烦 ， 他 的 queens 过 程 看 起 来 能 行 ， 
但 却 运行 得 极 慢 (Louis 居 然 无 法 忍耐 到 它 解 出 6 x6 模 盘 的 问题 )。 当 Louis 请 Eva Lu Ator 帮 忙 
时 ， 她 指出 他 在 flatmap 里 交换 了 幅 套 映射 的 顺序 ， 将 它 写成 了 : 


(flatmap = 
(lambda (new-row) 
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(map (lambda (rest-of-queens) 
(adjoin-position new-row k rest-of-—queens) ) 
(queen-cols (- k 1)))) 
(enumerate-interval 1 board-size) ) 


请 解释 一 下 ， 为 什么 这 样 交 换 顺 序 会 使 程序 运行 得 非常 惕 。 估 计 一 下 ， 用 Louis 的 程序 去 解决 
八 皇 后 问题 大 约 需要 多 少时 间 ， 假 定 练习 2.42 中 的 程序 需 用 时 间 T 求 解 这 一 难题 。 


2.2.4 实例 : 一 个 图 形 语 言 


本 节 将 介绍 一 种 用 于 画图 形 的 简单 语言 ， 以 展示 数据 抽象 和 闭 包 的 威力 ， 基 中 也 以 一 种 
非常 本 质 的 方式 使 用 了 高 阶 过 程 。 这 一 语言 的 设计 就 是 为 了 很 容易 地 做 出 一 些 模式 ， 例 如 图 
2-9 中 所 示 的 那 类 图 形 ， 它 们 是 由 某 些 元 素 的 重复 出 现 而 构成 的 ， 这 些 元 素 可 以 变形 或 者 改变 
大 小 8 。 在 这 个 语言 里 ， 数 据 元 素 的 组 合 都 用 过 程 表 示 ， 而 不 是 用 表 结 构 表示 。 就 像 cons ih 
足 一 种 闭 包 性 质 ， 使 我 们 能 构造 出 任意 复杂 的 表 结 构 一 样 ， 这 二 语言 中 的 操作 也 满足 闭 包 性 
质 ， 使 我 们 很 容易 构造 出 任意 复杂 的 模式 。 
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图 2-9 利用 这 一 图 形 语言 生成 的 各 种 设计 


图 形 语言 

在 1.1 节 里 开始 研究 程序 设计 时 我 们 就 强调 说 ， 在 描述 一 种 语言 时 ， 应 该 将 注意 力 集中 到 
语言 的 基本 原 语 、 它 的 组 合 手段 以 及 它 的 抽象 手段 ， 这 是 最 重要 的 。 这 里 的 工作 也 将 按照 同 
样 的 框架 进行 。 

这 一 图 形 语言 的 优美 之 处 ， 部 分 就 在 于 语言 中 只 有 一 种 元 素 ， 称 为 画家 (painter), — 
画家 将 画 出 一 个 图 像 ， 这 种 图 像 可 以 变形 或 者 改变 大 小 ， 以 便 能 正好 放 到 某 个 指定 的 平行 四 
边 形 框架 里 。 举 例 来 说 ， papel insoles ado pane 
而 所 做 出 图 画 的 实际 形状 
产生 的 ， 但 却 是 相对 于 四 个 不 同 的 框架 。 有 些 画 家 比 amine no ae 








8 这 一 图 形 语言 是 基于 Peter Henderson 所 创建 的 ， 用 于 构造 类 似 于 M.C. Escher 的 版 画 “方形 的 极限 ”中 那样 的 
形象 ( 见 Henderson 1982) 的 一 种 语言 。Escher 的 版 画 由 一 种 重复 的 变 尺 度 模 式 构 成， 很 像 本 节 中 用 


square-1Limit 过 程 排出 的 图 画 。 
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出 MIT 的 创始 人 William Barton Rogers 的 画像 ， 如 图 2-11 所 示 ”。 图 2-11 里 的 四 个 图 像 是 相对 于 
与 图 2-10 中 wave 形 象 同 样 的 四 个 框架 画 出 来 的 。 
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图 2-10 由 画家 wave 相 对 于 4 个 不 同 框架 而 产生 出 的 图 像 。 
相应 框架 用 点 线 表 示 ， 它 们 并 不 是 图 像 的 组 成 部 分 


s William Barton Rogers (1804 —1882) 是 MIT 的 创始 人 和 第 一 任 校长 。 他 曾 作为 地 质 学 家 和 才华 横 溢 的 教师 ， 
在 William and Mary (威廉 和 玛丽 ) 学 院 和 弗吉尼亚 大 学 任教 。1859 年 他 搬 到 了 波士顿 ， 在 那里 他 可 以 有 更 多 
的 时 间 去 从 事 研 究 工 作 ， 可 以 着 手 他 的 一 个 创建 “综合 性 技术 学 院 ” 的 计划 。 此 时 他 还 是 马萨诸塞 第 一 任 的 
煤气 表 的 州 检 查 员 。 

在 1861 年 MIT 创 建 时 ，Rogers 被 选 为 第 一 任 校长 。Rogers 推 岩 一 种 “学 以 致 用 ”的 思想 ， 这 与 当时 流行 
的 有 关 大 学 教育 的 观点 截然 不 同 。 当 时 在 大 学 里 人 们 过 于 强调 经 典 ， 正 如 Rogers 所 写 的 ， 那 些 东 西 “ 阻 得 了 
更 广泛 更 深入 和 更 实际 的 自然 科学 和 社会 科学 的 教育 和 训练 ” 。Rogers 认 为 这 一 教育 方式 也 应 该 与 职业 学 校 
式 的 教育 截然 不 同 ， 用 他 的 话说 ; 

强制 性 地 区 分 实践 工作 者 和 科学 工作 者 是 完全 无 益 的 ， 当 代 的 所 有 经 验 已 经 证 明 这 种 区 分 也 是 
完全 没有 价值 的 。 

Rogers 作为 MIT 的 校长 一 直到 1870 年 ， 是 年 他 因为 健康 原因 而 退休 。 到 了 1878 年 ，MIT 的 第 二 任 校长 
John Runkle 由 于 1873 年 的 金融 大 丽 慌 带 来 的 财政 危机 的 压力 ， 以 及 哈佛 企图 捍 取 MIT 的 斗争 压力 而 退休 ， 
Rogers 重 新 回 到 校长 办 公 室 ， 一 直 工作 到 1881 年 。 

Rogers 在 1882 年 给 MIT 上 毕业 班 举行 的 毕业 典礼 的 致辞 中 倒 下 去 世 。Runkle 在 同年 举行 的 纪念 会 致辞 中 引 
用 了 Rogers 最 后 的 话 : 

“ 当 我 今天 站 在 这 里 环顾 校园 时 ，…… 我 看 到 了 和 村 学 的 开始 。 我 记得 在 150 年 以 前 ，Stephen 
Hales 出 版 了 一 本 小 册子 ， 讨 论 照明 用 气 的 课题 ， 在 书 中 他 写 到 ， 他 的 研究 表明 了 128 合 (英美 重量 
单位 ， 每 谷 合 64.8 毫 克 一 Hk) 烟煤 …… 

“烟煤 ,” 这 就 是 他 留 在 这 个 世界 上 的 最 后 一 个 词 。 当 时 他 逐渐 地 向 前 倾 下 去 ， MR 是 要 在 他 
面前 的 桌子 上 查看 什么 注 记 ， 而 后 他 又 慢 慢 地 恢复 到 直立 状态 、 举 起 了 他 的 双手 ， 慢 慢 地 ， 从 他 那 
Les 作 和 胜利 的 喜悦 鳄 觉 转变 为 “死亡 的 明天 ”， 在 那里 生命 的 奇迹 结束 了 ， ET ARR 
则 向 往 着 那 无 穷 未 来 中 会 新 的 永远 深 不 可 测 的 奥秘 ， 并 从 中 得 到 无 尽 的 满足 。 

用 Francis A. Walker (MIT 的 第 三 任 校 长 ) 的 话说 : 

他 的 整个 一 生 都 证 明了 他 是 最 正直 和 最 勇敢 的 人 ， 他 的 死 也 像 一 个 骑士 所 最 希望 的 那样 ， 穿 着 

战 袍 ， 站 在 自己 的 岗位 上 ， RHE 他 对 于 社会 的 职责 。 | 


Be are eee 





图 2-11 William Barton Rogers (MIT 的 创始 人 和 第 一 任 校 长 ) 的 图 像 ， 依 据 与 
图 2-10 中 同样 的 4 个 框架 画 出 (原始 图 片 经 MIT 博 物 馆 的 允许 重印 ) 


为 了 组 合 起 有 关 的 图 像 ， 我 们 要 用 一 些 可 以 从 给 定 画家 构造 出 新 画家 的 操作 。 例 如 ， 操 
作 beside 从 两 个 画家 出 发 ， 产 生 一 个 复合 型 画家 ， 它 将 第 一 个 画家 的 图 像 画 在 框架 中 左边 的 
一 半 里 ， 将 第 二 个 画家 的 图 像 画 在 框架 里 右边 一 半 里 。 与 此 类 似 ，below 从 两 个 画家 出 发 产 
生 一 个 组 合 型 画家 ， 将 第 一 个 画家 的 图 像 画 在 第 二 个 画家 的 图 像 之 下 。 有 些 操作 将 一 个 画家 
转换 为 男 一 个 新 画家 。 例 如 ，f1ip-vert 从 一 个 画家 出 发 ， 产 生 一 个 将 该 画家 所 画图 像 上 下 
颠倒 画 出 的 画家 ， 而 ELip-horiz 产 生 的 画家 将 原画 家 的 图 像 左 右 反 转 后 画 出 。 

图 2-12 说 明了 从 wave 出 发 ， 经 过 两 步 做 出 一 个 名 为 Wave4 的 画家 的 方式 ; 


(define wave2 (define wave4 
(beside wave (flip-vert wave) )) (below wave2 wave2) ) 


图 2-12 ”从 图 2-10 的 画家 wave 出 发 ， 建 立 起 一 个 复杂 图 像 
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(define wave2 (beside wave (flip-vert wave))) 
(define wave4 (below Wave2 wave2) ) 


在 按 这 种 方法 构造 复杂 的 图 像 时 ， 我们 利用 了 一 个 事实 ， 画家 在 有 关 语 言 的 组 合 方式 下 
是 封闭 的 : 两 个 画家 的 beside 或 者 below 还 是 画家 ， 因 此 还 可 以 用 它们 作为 元 素 去 构造 更 
复杂 的 画家 。 就 像 用 cons 构造 起 各 种 表 结 构 一 样 ， 我 们 所 用 的 数据 在 组 合 方式 下 的 闭 包 性 质 
非常 重要 ， 因 为 这 使 我 们 能 用 不 多 几 个 操作 构造 出 各 种 复杂 的 结构 。 

一 旦 能 做 画家 的 组 合 之 后 ， 我 们 就 希望 能 抽象 出 典型 的 画家 组 合 模式 ， 以 便 将 这 种 组 合 
操作 实现 为 一 些 Scheme 过 程 。 这 也 意味 着 我 们 并 不 需要 这 种 图 形 语 言 里 包含 任何 特殊 的 抽象 
机 制 ， 因 为 组 合 的 方式 就 是 采用 普通 的 Scheme 过 程 。 这 样 ， 对 于 画家 ， 我 们 就 自动 有 了 了 能够 
做 原来 可 以 对 过 程 做 的 所 有 事情 。 例 如 ， 我 们 可 以 将 wave4 中 的 模式 抽象 出 来 : 


(define (flipped-pairs painter) 
(let ((painter2 (beside painter (flip-vert painter)))) 
(below painter2 painter2))) 


并 将 wave4 重 新 定义 为 这 种 株式 的 实例 : 
(define wave4 (flipped-pairs wave) ) 
我 们 也 可 以 定义 递归 操作 。 下 面 就 是 一 个 这 样 的 操作 ， 它 在 图 形 的 右边 做 分 割 和 分 支 ， 
就 像 在 图 2-13 和 图 2-14 中 显示 的 那样 : 
(define (right-split painter n) 
(if (= n 0) 
painter 


(let ((smaller (right-split painter (- n 1)))) 
(beside painter (below smaller smaller))))) 


+ 
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right-split n corner-split n 
图 2-13 right-split 和 corner-split 的 递归 方案 


通过 同时 在 图 形 中 向 上 和 向 右 分 支 ， 我 们 可 以 产生 出 一 种 平衡 的 模式 ( 见 练习 2.44、 图 2-13 和 图 
2-14). | 
(define (corner-split painter n) 
(if (= n 0) 
painter 
(let ((up (up-split painter (- n 1))) 
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(corner-split wave 4) (corner-split rogers 4) 


图 2-14 将 递归 操作 right-split 和 corner-split 应 用 于 画家 wave 和 rogers。 图 2-9 中 
显示 的 是 组 合 起 4 个 corner-split 图 形 产生 出 的 square-1limit 对 称 图 形 设计 
(right (right-split painter (- n 1)))) 
(let ((top-left (beside up up)) 
(bottom-right (below right right)) 
(corner (corner-split painter (- n 1)))) 


(beside (below painter top-left) 
(below bottom-right corner)))))) 


将 某 个 corner-sp1lit 的 4 个 拷贝 适当 地 组 合 起 来 ， 我 们 就 可 以 得 到 一 种 称 为 square- 
1imit 的 模式 ， 将 它 应 用 于 wave 和 和 rogers 的 效果 见 图 2-9 。 


(define (square-limit painter n) 
(let ((quarter (corner-split painter n))) 
(let ((half (beside (flip-horiz quarter) quarter))) 
(below (flip-vert half) half)))) 


练习 2.44 ”请 定义 出 corner-split 里 使 用 的 过 程 up-split， 它 与 Tight-split 类 
似 ， 除 在 其 中 交换 了 below 和 beside 的 角色 之 外 。 


高 阶 操作 

除了 可 以 获得 组 合 画 家 的 抽象 模式 之 外 ， 我 们 同样 可 以 在 高 阶 上 工作 ， 抽 象 出 画家 的 各 
种 组 合 操作 的 模式 。 也 就 是 说 ， 可 以 把 画家 操作 看 成 是 操控 和 描写 这 些 元 素 的 组 合 方法 的 元 
素 一 一 写 出 一 些 过 程 ， 它 们 以 画家 操作 作为 参数 ， 创 建 出 各 种 新 的 画家 操作 。 
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举例 来 说 ，f1lipped-pairs 和 square-limit 两 者 都 将 一 个 画家 的 四 个 拷贝 安排 在 一 
个 正方 形 的 模式 中 ， 它 们 之 间 的 差异 仅仅 在 这 些 拷 贝 的 旋转 角度 。 抽 象 出 这 种 画家 组 合 模式 
的 一 种 方式 是 定义 下 面 的 过 程 ， 它 基于 四 个 单 参数 的 画家 操作 ， 产 生出 一 个 画家 操作 ， 这 一 
操作 里 将 用 这 四 个 操作 去 变换 一 个 给 定 的 画家 ， 并 将 得 到 的 结果 放 入 一 个 正方 形 里 。t1、tr、 
bl 和 br 分 别 是 应 用 于 左上 角 、 右 上 角 、 左 下 角 和 右 下 角 的 四 个 撕 贝 的 变换 : 
(define (square-of-four tl tr bl br) 
(lambda (painter) 
(let ((top (beside (tl painter) (tr painter))) 
(bottom (beside (bl painter) (br painter)))) 
(below bottom top)))) 
操作 ELippPed-pairs 可 以 基于 sguare-of-four 定 义 如 下 ”: 
(define (flipped-pairs painter) 
(let ((combine4 (square-of-four identity flip-vert 
identity flip-vert))) 
(combine4 painter))} 7 
msquare-limit LUR RA: 
(define (square-limit painter n) 
(let ((combine4 (square-of-four flip-horiz identity 
rotatel80 flip-vert))) 
(combine4 (corner-split painter n)))) | 
练习 2.45 ”可 以 将 right-split 和 up-split 表 述 为 某 种 广义 划分 操作 的 实例 。 请 定义 
一 个 过 程 split ， 使 它 具 有 如 下 性 质 ， 求 值 : 
(define right-split (split beside below)) 
(define up -split (split below beside) ) 


产生 能 够 出 过 程 Tight-split 和 up-split ， 其 行为 与 前 面 定 义 的 过 程 一 样 。 


框架 

在 我 们 进一步 弄 清楚 如 何 实现 画家 及 其 组 合 方式 之 前 ， 还 必须 首先 葵 虑 框架 的 问题 。 一 
个 框架 可 以 用 三 个 向 量 描述 : 一 个 基准 向 量 和 两 个 角 向 量 。 基 准 向 量 描述 的 是 框架 基 维 点 相 
对 于 平面 上 某 个 绝对 基准 点 的 偏 移 量 ， 角 向 量 描 述 了 框架 的 角 相 对 于 框架 基准 点 的 偏 移 量 。 
如 果 两 个 角 向 量 正 交 ， 这 个 框架 就 是 一 个 矩形 。 否 则 它 就 是 一 个 一 般 的 平行 四 边 形 。 

图 2-15 显示 的 是 一 个 框架 和 与 之 相关 的 三 个 向 量 。 根 据 数据 抽象 原理 ， 我 们 现在 完全 不 
必 去 说 清楚 框架 的 具体 表示 方式 ,而 只 需要 说 明 ， 存 在 着 一 个 构造 函数 make-frame ， 它 能 
从 三 个 向 量 出 发 做 出 一 个 框架 。 与 之 对 应 的 选择 函数 是 origin-frame、edgel-frame 和 
edge2-frame ( 见 练 习 2.47 ) 。 

我 们 将 用 单位 正方 形 (0 <x,y <1) 里 的 坐标 去 描述 图 像 。 对 于 每 个 框架 ， 我 们 要 为 它 关 联 
一 个 框架 坐标 映射 ,借助 它 完 成 有 关 图 像 的 位 移 和 伸缩 ， 使 之 能 够 适 配 于 这 个 框架 。 这 一 映 


”我 们 也 可 以 等 价 地 将 其 写 为 : 
(define flipped-pairs 
(square-of-four identity flip-vert identity flip-vert)) 


% rotatel80 将 一 个 画家 旋转 180 度 ( 见 练 习 .50 )。 不 用 rotate180 ， 我 们 也 可 以 利用 练习 1.42 的 compose 
过 程 ， 写 (compose flip-vert flip-horiz), 
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框架 基 
fe 3 显示 屏 上 的 (0, 0) 点 


图 2-15 一 个 框架 由 三 个 向 量 描述 ， 包 插 一 个 基准 向 量 和 两 个 角 向 量 


射 的 功能 就 是 把 单位 正方 形变 换 到 相应 框架 ， 所 采用 的 方法 也 就 是 将 同 量 y = (x, y) 映射 到 下 
面 的 向 量 和 : 
Origin (Frame) +x - Edge, (Frame) +y - Edge, (Frame) 
例如 ， 点 (0, 0) 将 被 映射 到 给 定 框架 的 原点 ，(1, 1) 被 映射 到 与 原点 对 角 的 那个 点 ， 而 (0.5, 
0.5) 被 映射 到 给 定 框 架 的 中 心 点 。 我 们 可 以 通过 下 面 过 程 建立 起 框架 的 坐标 映射 ”: 
(define {frame-coord-map frame) 
(lambda (v) 
(add-vect 
(origin-frame frame) 


(add-vect (scale-vect (xcor-vect v) 
(edgel-frame frame) ) 


(scale-vect (ycor-vect v) 
(edge2-frame frame)))))) 


请 注意 看 ， 这 里 将 frame-coord-map 应 用 于 一 个 框架 的 结果 是 返回 了 一 个 过 程 ， 它 对 于 每 
个 给 定 的 向 量 返 回 另 一 个 向 量 。 如 果 参 数 向 量 位 于 单位 正方 形 里 ， 得 到 的 对 应 结果 四 量 也 将 
位 于 相应 的 框架 里 。 例 如 : 
((frame-coord-map a-frame) (make-vect 0 0)) 
返回 的 同 量 如 下 : 
(origin-frame a-frame) 
练习 2.46 ”从 原点 出 发 的 一 个 两 维 向 量 v 可 以 用 一 个 由 x 坐标 和 坐标 构成 的 序 对 表示 。 请 
为 这 样 的 向 量 实现 一 个 数据 抽象 : 给 出 一 个 构造 函数 make~vect ， 以 及 对 应 的 选择 函数 
xcor-vect 和 ycor-vect 。 借 助 于 你 给 出 的 构造 函数 和 选择 函数 ， 实 现 过 程 add-vect、 
sub-vect 和 scale-vect ， 它 们 能 完成 向 量 加 法 、 向 量 减 法 和 向 量 的 伸缩 。 
(x1, y) Hx, y2) =x +42, Yi +2) 
(x1, y) =a, y) =O —%2, Yi —Y2) 
s+ (x, y)=(sx, sy) 


2 过 程 frame-coord-map 用 到 了 练习 2.46 里 讨论 的 向 量 操作 ， 现 在 假定 它们 已 经 在 某 种 向 量 表示 上 实现 好 了 。 
由 于 这 里 采用 了 数据 抽象 ， 只 要 这 些 向 量 操作 的 行为 是 正确 的 ， 采 用 什么 样 的 具体 向 量 表示 方式 都 没有 关系 。 
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练习 2.4/ 下 面 是 实现 框架 的 两 个 可 能 的 过 程 函数: 
(define (make-frame origin edgel edge2) 


(list origin edgel edge2)) 


(define (make-frame origin edgel edge2) 
(cons origin (cons edgel edge2))) 


请 为 每 个 构造 国 数 提供 适当 的 选择 函数， 为 框架 做 出 相应 的 实现 。 

画家 

一 个 画家 被 表示 为 一 个 过 程 ， 给 了 它 一 个 框架 作为 实际 参数 ， 它 就 能 通过 适当 的 位 移 和 
伸缩 ， 画 出 一 幅 与 这 个 框架 匹配 的 图 像 。 也 就 是 说 ， 如 果 P 是 一 个 画家 而 所 是 一 个 框架 ， 通 过 
LAL 作为 实际 参数 调用 p ， 就 能 产生 出 f 中 p 的 图 像 。 | 

基本 画家 的 实现 细节 依赖 于 特定 图 形 系 统 的 各 种 特性 和 被 画图 像 的 种 类 。 例 如 ， 假 定 现 
在 有 了 一 个 过 程 daraw-1Line， 它 能 在 屏幕 上 两 个 给 定点 之 间 画 出 一 条 直线 ， 那 么 我 们 就 可 以 
利用 它 创 建 一 个 画 折线 图 的 画家 ， 例 如 从 通过 下 面 的 线段 表 创 建 出 图 2-10 的 wave 画 家 ”: 

(define (segments->painter segment-list) 


(lambda (frame) 


(for-each 
(lambda (segment) ` 


(draw-line l 
((£rame-coord-map frame) (start-segment segment) } 
((frame-coord-map frame) (end-segment segment) )))} 
segment-list))) 
这 里 所 给 出 的 线段 都 用 相对 于 单位 正方 形 的 坐标 描述 ， 对 于 表 中 的 每 个 线段 ， 这 个 画家 将 根 
据 框架 坐标 映射 ， 对 线段 的 各 个 端点 做 变换 ， 而 后 在 两 个 端点 之 间 画 一 条 直线 。 

将 画家 表示 为 过 程 ， 就 在 这 一 图 形 语 言 中 竖立 起 一 道 强 有 力 的 抽象 屏障 。 这 就 使 我 们 可 
以 创建 和 混用 基于 各 种 图 形 能 力 的 各 种 类 型 的 基本 画家 。 任 何 过 程 只 要 能 取 一 个 框架 作为 参 
数 ， 画 出 某 些 可 以 伸缩 后 适合 这 个 框架 的 东西 ， 它 就 可 以 作为 一 个 画家 “。 

练习 2.48 ”平面 上 的 一 条 直线 段 可 以 用 一 对 向 量 表示 一 一 从 原点 到 线段 起 点 的 癌 量 DR 
从 原点 到 线段 终点 的 向 量 。 请 用 你 在 练习 2.46 做 出 的 向 量 表示 定义 一 种 线段 表示 ， 其 中 用 构 
4 mM eemake-segmentl Nik HRRMstart-segment 和 end-segment.。 

练习 2.49 利用 segments->painter 定 义 下 面 的 基本 画家 

.a) 画 出 给 定 框架 边界 的 画家 。 

b) 通过 连接 框架 两 对 角 画 出 一 个 大 叉子 的 画家 。 

c) 通过 连接 框架 各 边 的 中 点 画 出 一 个 姜 形 的 画家 。 

d) 画家 wave。 





% 画家 segments->painter 用 到 了 练习 2.48 里 描述 的 线段 表示 ， 还 用 到 练习 2.23 里 描述 的 or~each 过 程 。 

% 举例 来 说 ， 图 2-11 里 的 rogers 画 家 是 用 一 个 灰 度 图 像 创建 的 ， 对 于 给 定 框架 中 的 每 个 点 ，rogers 画家 都 将 
在 图 像 中 确定 一 个 点 ， 它 应 该 在 有 关 的 框架 坐标 映射 下 映射 到 框架 中 的 这 个 点 ， 而 且 涂 灰 这 个 点 。 通 过 人 允许 
不 同 种 类 的 画家 ， 我 们 大 大 发 扬 了 2.1.3 节 中 讨论 的 抽象 数据 的 思想 ， 在 那里 提出 说 一 种 有 理 数 表示 可 以 是 任 
何 的 东西 ， 只 要 它 能 满足 适当 的 条 件 。 这 里 利用 的 事实 就 是 ， 一 个 画家 可 以 以 任何 方式 实现 ， 只 要 它 能 在 指 
定 的 框架 里 画 出 一 些 东 西 来 。2.1.3 节 还 说 明了 如 何 将 序 对 实现 为 过 程 。 画 家 也 是 我 们 用 过 程 表示 数据 的 又 一 
个 例子 。 
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画家 的 变换 和 组 合 

各 种 对 画家 的 操作 (例如 f1ip-vert 或 者 beside) 的 功能 就 是 创建 另 一 个 画家 ， 这 其 
中 涉及 到 原来 的 画家 ， 还 涉及 到 根据 参数 框架 派生 出 的 某 些 框架 。 举 例 来 说 ，f1ip-vert 在 
反 转 画家 时 完全 不 必 知 道 它 们 究竟 如 何 工 作 ， 它 只 需 知道 怎样 将 一 个 框架 上 下 其 倒 就 足够 了 。 
产生 出 的 画家 使 用 的 仍 是 原来 的 画家 ， 只 不 过 是 让 它 在 一 个 炎 倒 的 框架 里 工作 。 

对 于 画家 的 操作 都 基于 一 个 过 程 transform-painter， 它 以 一 个 画家 以 及 有 关 怎 样 变 
换 框架 和 生成 画家 的 信息 作为 参数 。 对 一 个 框架 调用 这 样 的 变换 去 产生 画家 ， 实 际 完成 的 是 
对 这 个 框架 的 一 个 变换 ， 并 基于 变换 后 的 框架 去 调用 原来 的 画家 。transform-painter 的 
参数 是 一 些 点 (用 向 量 表 示 ) ， 它 们 描述 了 新 框架 的 各 个 角 。 在 用 于 做 框架 变换 时 ， 第 一 个 点 ， 
描述 的 是 新 框架 的 原点 ， 另 外 两 个 点 描述 的 是 新 框架 的 两 个 边 向 量 的 终点 。 这 样 ， 位 于 单位 
正方 形 里 的 参数 描述 的 就 是 一 个 包含 在 原 框 架 里 面 的 框架 。 

(define (transform-painter painter origin corner! corner2) 

(lambda (frame) 
(let ((m (frame-coord-map frame) )) 
(let ((new-origin (m origin))) 
(painter 


(make-frame new-origin ; 
(sub-vect (m corneri) new-origin) 


(sub-vect (m corner2) new-origin))))))) 


从 下 面 可 以 看 到 如 何 给 出 反 转 画家 的 定义 : 
(define (flip-vert painter) 
(transform-painter painter 
(make-vect 0.0 1.0) ; new origin 
(make-vect 1.0 1.0) ; new end of edgel 
(make-vect 0.0 0.0))) ; new end of edge2 


利用 transform-painter 很 容易 定义 各 种 新 的 变换 。 例如 ， 我 们 可 以 定义 出 一 个 画家 ， 它 
将 自己 的 图 像 收缩 到 给 定 框架 右上 的 四 分 之 一 区 域 里 : 
(define (shrink-to-upper-right painter) 
(transform-painter painter 
(make-vect 0.5 0.5) 


(make-vect 1.0 0.5) 
(make-vect 0.5 1.0))) 


另 一 个 变换 将 图 形 按照 逆 时 针 方 向 旋转 90 度 ”: 
(define (rotate90 painter) 
(transform-painter painter 
(make-vect 1.0 0.0) 
(make-vect 1.0 1.0) 
(make-vect 0.0 0.0))) 


或 者 将 图 像 向 中 心 收 缩 ”: 


(define (squash-inwards painter) 


5 变换 rotate90 只 有 对 正方 形 框架 工作 才 是 真正 的 旋转 ， 因为 它 还 要 拉 伸 或 者 压缩 图 像 去 适应 框架 。 
% 图 2-10 和 图 2-11 里 的 菱形 图 形 就 是 通过 将 squash-~inwards 作用 于 wave 和 rogers 而 得 到 的 。 
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(transform-painter painter 
(make-vect 0.0 0.0) 
(make-vect 0.65 0.35) 
(make-vect 0.35 0.65))) 


框架 变换 也 是 定义 两 个 或 者 更 多 画家 的 组 合 的 关键 。 例 如 ，beside 过 程 以 两 个 画家 为 参 
数 ， 分 别 将 它们 变换 为 在 参数 框架 的 堪 半边 和 右 半 边 画图 ， 这 样 就 产生 出 一 个 新 的 复合 型 画 
家 。 当 我 们 给 了 这 一 画家 一 个 框架 后 ， 它 首先 调用 其 变换 后 的 第 一 个 画家 在 框架 的 左 半 边 画 
图 ， 而 后 调用 变换 后 的 第 二 个 画家 在 框架 的 右 半 边 画 图 : 
(define (beside painterl painter2) 
(let ((split-point (make-vect 0.5 0.0))) 
(let ((paint-left 
{transform-painter painterl 
(make-vect 0.0 0.0) 
split—-point 
(make-vect 0.0 1.0))) 
(paint-right 
(transform-painter painter2 
split-point 
(make-~vect 1.0 0.0) 
(make-vect 0.5 1.0)))) 
{lambda (frame) 
(paint-left frame) 
(paint-right frame))))) 


请 特别 注意 ， 这 里 的 画家 数据 抽象 ， 特 别 是 将 画家 用 过 程 表示 ， 怎 样 使 peside 的 实现 变 
得 如 此 简单 。 这 里 的 beside 过 程 完 全 不 必 了 解 作为 其 成 分 的 各 个 画家 的 任何 东西 ， 它 只 需 知 
道 这 些 画 家 能 够 在 指定 框架 里 画 出 一 些 东 西 就 够 了 。 

练习 2.50 ”请 定义 变换 f1ip-horiz ， 它 能 在 水 平方 向 上 反 转 画家 。 再 定义 出 对 画家 做 
反 时 针 方向 上 180 度 和 270 度 旋转 的 变换 。 

练习 2.51 ”定义 对 画家 的 below 操 作 ， 它 以 两 个 画家 为 参数 。 在 给 定 了 一 个 框架 后 ， 由 
below 得 到 的 画家 将 要 求 第 一 个 画家 在 框架 的 下 部 画图 ， 要 求 第 二 个 画家 在 框架 的 上 部 画图 。 
请 按 两 种 方式 定义 below， 首先 写 出 一 个 类 似 于 上 面 beside 的 过 程 ， 另 一 个 则 直接 通过 
beside 和 适当 的 旋转 操作 (来 自 练习 2.50) 完成 有 关 工 作 。 

强健 设计 的 语言 层次 

在 上 述 的 图 形 语言 中 ， 我 们 演习 了 前 面 介绍 的 有 关 过 程 和 数据 抽象 的 关键 思想 。 其 中 的 
基本 数据 抽象 和 画家 都 用 过 程 表示 实现 ， 这 就 使 该 语言 能 以 一 种 统一 方式 去 处 理 各 种 本 质 上 
完全 不 同 的 画图 能 力 。 实 现 组 合 的 方法 也 满足 闭 包 性 质 ， 使 我 们 很 容易 构造 起 各 种 复杂 的 设 
计 。 最 后 ， 用 于 做 过 程 抽象 的 所 有 工具 ， 现 在 也 都 可 用 作 组 合 画 家 的 抽象 手段 。 

我 们 也 对 程序 设计 的 另 一 个 关键 概念 有 了 一 点 认识 ， 这 就 是 分 层 设 计 的 问题 。 这 一 概念 
说 的 是 ， 一 个 复杂 的 系统 应 该 通过 一 系列 的 层次 构造 出 来 ， 为 了 描述 这 些 层 次 ， 需 要 使 用 一 
系列 的 语言 。 构 造 各 个 层次 的 方式 ， 就 是 设法 组 合 起 作为 这 一 层次 中 部 件 的 各 种 基本 元 素 ， 
而 这 样 构造 出 的 部 件 又 可 以 作为 另 一 个 层次 里 的 基本 元 素 。 在 分 层 设计 中 ， 每 个 层次 上 所 用 
的 语言 都 提供 了 一 些 基本 元 素 、 组 合 手段 ， 还 有 对 该 层次 中 的 适当 细节 做 抽象 的 手段 。 
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在 复杂 系统 的 工程 中 广泛 使 用 这 种 分 层 设计 方法 。 例 如 ， 在 计算 机 工程 里 ， 电 阻 和 晶体 
管 被 组 合 起 来 〈 用 模拟 电路 的 语言 ) ， 产 生出 一 些 部 件 ， 例 如 与 门 、 或 门 等 等 : 这 些 门 电路 又 
被 作为 数字 电路 设计 的 语言 中 的 基本 元 素 ”。 将 这 类 部 件 组 合 起 来 ， 构 成 了 处 理 器 、 总 线 和 在 
储 系统 ， 随 即 ， 又 通过 它们 的 组 合 构 造 出 各 种 计算 机 ， 此 时 采用 的 是 适合 于 描述 计算 机 体系 

结构 的 语言 。 计 算 机 的 组 合 可 以 进一步 构成 分 布 式 系 统 ， 采用 的 是 适合 搞 述 网 络 互联 的 语言 。 
我 们 还 可 以 这 样 做 下 去 。 

作为 分 层 设计 的 一 个 小 例子 ， 我 们 的 图 形 语 言 用 了 一 些 基 本 元 素 (基本 画家 ) ， 它 们 是 基 
于 描述 点 和 直线 的 语言 建立 起 来 ,为 sSegments->painter 提 供 线段 表 ， 或 者 为 rogers 之 
类 提供 着 色 能 力 。 前 面 关 于 这 一 图 形 语言 的 描述 ， 主 要 是 集中 在 这 些 基 本 元 素 的 组 合 方面 ， 
采用 的 是 beside 和 below 一 类 的 几何 组 合 手段 。 我 们 也 在 更 高 的 层次 上 工作 ， 将 beside 和 和 
below 作 为 基本 元 素 ， 在 一 个 具有 square-of-four 一 类 操作 的 语言 中 处 理 它 们 ， 这 些 操 作 
抓 住 了 一 些 将 几何 组 合 手段 组 合 起 来 的 常见 模式 。 

分 层 设计 有 助 于 使 程序 更 加 强健 ， 也 就 是 说 ， 使 我 们 更 有 可 能 在 给 定 规范 发 生 一 些小 改 
变 时 ， 只 需 对 程序 做 少量 的 修改 。 例 如 ， 假定 我 们 希望 改变 图 2-9 所 示 的 基于 wave 的 图 像 ， 
我 们 就 可 以 在 最 低 的 层次 上 工作 ， 直 接 去 修改 wave 元 素 的 表现 细节 ， 也 可 以 在 中 间 层 次 上 工 
作 ， 改变 corner-split 里 重复 使 用 wave 的 方式 ， 也 可 以 在 最 高 的 层次 上 工作 ， 改变 对 图 
形 中 各 个 角 _ 上 4 个 副本 的 安排 。 一 般 来 说 ,分 层 结 构 中 的 每 个 层次 都 为 表述 系统 的 特征 提供 了 
一 套 独 特 词汇 ， 以 及 一 套 修改 这 一 系统 的 方式 。 

练习 2.52 在 上 面 描述 的 各 个 层次 上 工作 ， 修 改 图 2-9 中 所 示 的 方块 的 限制 。 特 别 是 

a) 给 练习 2.49 的 基本 wave 画家 加 入 某 些 线段 例如， 加 上 一 个 笑脸 )。 

b) 修改 corner-split 的 构造 模式 (例如 ， 只 用 up-split 和 right-split 的 图 像 的 
各 一 个 副本 ， 而 不 是 两 个 ) 。 

c) 修改 square-limit， 换 一 种 使 用 square-of-four 的 方式 ， 以 另 一 种 不 同 模式 组 
合 起 各 个 角 区 (例如 ， 你 可 以 让 大 的 Rogers 先 生 从 正方 形 的 每 个 角 向 外 看 )。 


2.3 符号 数据 
到 目前 为 止 ， 我 们 已 经 使 用 过 的 所 有 复合 数据 ， 最 终 都 是 从 数值 出 发 构造 起 来 的 。 在 这 
一 节 里 ， 我 们 要 扩充 所 用 语言 的 表述 能 力 ， 引 进 将 任意 符号 作为 数据 的 功能 。 


2.3.1 引号 


如 果 我 们 能 构造 出 采用 符号 的 复合 数据 ,我们 就 可 以 有 下 面 这 类 的 表 : 


(a b c d) 
(23 45 17) 
( (Norah 12) (Molly 9) (Anna 7) (Lauren 6) (Charlotte 4)) 


这 些 包含 着 符号 的 表 看 起 来 就 像 是 我 们 语言 里 的 表达 式 ， 
(* (+ 23 45) (+ x 9)) 


(define (fact n) (if (=n 1) 1 (> n (fact (- n 1))))) 


”3.3.4 节 描述 了 一 个 这 样 的 语言 。 





为 了 能 够 操作 这 些 符号 ， 我 们 的 语言 里 就 需要 有 一 种 新 元 素 ， 为 数据 对 象 加 引号 的 能 力 。 
假定 我 们 希望 构造 出 表 (a b)， 当 然 不 能 用 (list a b) 完成 这 件 事 ， 因 为 这 一 表达 式 将 
要 构造 出 的 是 a 和 b 的 值 的 表 ， 而 不 是 这 两 个 符号 本 身 的 表 。 在 自然 语言 的 环境 中 ， 这 种 情况 
也 是 众所周知 的 ， 在 那里 的 单词 和 句子 可 能 看 作 语 义 实体 ， 也 可 以 看 作 是 字符 的 序列 (语法 
实体 )。 在 自然 语言 里 ， 常 见 的 方式 就 是 用 引号 表明 一 个 词 或 者 一 个 句子 应 作为 文字 看 待 ， 将 
它们 直接 作为 字符 的 序列 。 例 如 说 ，“John” 的 第 一 个 字母 显然 是 “J”。 如 果 我 们 对 某 人 说 
“大 声 说 你 的 名 字 ”， 此 时 和 希望 听 到 的 是 那个 人 的 名 字 。 如 果 说 “大 声 说 “你 的 名 字 ””， 此 时 
希望 听 到 的 就 是 词组 “你 的 名 字 ”。 请 注意 ， 我 们 在 这 里 不 得 不 用 租 套 的 引号 去 换 述 别人 应 该 
说 的 东西 ”。 

我 们 可 以 按照 同样 的 方式 ， 将 表 和 符号 标记 为 应 该 作为 数据 对 象 看 待 ， 而 不 是 作为 应 该 
求 值 的 表达 式 。 然 而 ， 这 里 所 用 的 引号 形式 与 自然 语言 中 的 不 同 ， 我 们 只 在 被 引 对 象 的 前 面 
放 一 个 引号 (按照 习惯 ， 在 这 里 用 单 引 号 )。 在 3cheme 里 可 以 不 写 结束 3 引号， 因为 这 里 已 经 靠 
空白 和 括号 将 对 象 分 隔 开 ， 一 个 单 引号 的 意义 就 是 引用 下 一 个 对 象 ”。 

现在 我 们 就 可 以 区 分 符号 和 它们 的 值 了 : 


(define a 1) 
(define b 2) 


(list a b) 
(1 2) 


(list ’a ’b) 
(a b) 
(list ’a b) 
(a 2) 


引号 也 可 以 用 于 复合 对 象 ， 其 中 采用 的 是 表 的 方便 的 输出 表示 方式 ”: 


{car ‘(a D c)) 
a 


(cdr (a b c)) 


% 人 允许 在 一 个 语言 中 使 用 引号 ， 将 会 极 大 地 损害 根据 简单 词语 在 语言 中 艇 推理 的 能 力 ， 因 为 它 破坏 了 对 等 的 东 
西 可 以 相互 替换 的 观念 。 举 个 例子 ， 三 等 于 二 加 一 ， 但 是 “三 ”这 个 字 却 不 等 于 “二 加 一 ”这 个 短语 。3 引 号 
是 很 有 威力 的 东西 ， 因 为 它 使 我 们 可 以 构造 起 一 种 能 操作 其 他 表达 式 的 表达 式 (正如 我 们 将 在 第 4 章 里 看 到 的 
那样 )。 但 是 ,在 一 种 语言 里 允许 用 语句 去 讨论 这 一 语言 里 的 其 他 语句 ,那么 有 关 “ 对 等 的 东西 可 以 相互 代 换 ” 
究竟 是 什么 意思 ， 我 们 就 很 难 给 任何 具有 内 在 统一 性 的 说 法 了 。 举 例 说 ， 如 果 我 们 知道 长 庚 星 就 是 启明 星 ， 
那么 我 们 就 可 以 从 句子 “长 庚 星 就 是 金明 ”推导 出 “启明 星 就 是 金星 "。 然 而 ， 即 使 有 “ 张 三 知道 长 庚 星 就 是 
人 金明" ， 我 们 也 无 法 推论 说 “ 张 三 知道 启明 星 就 是 金星 "。 

% 单 引 号 和 用 于 括 起 应 该 打印 输出 的 字符 申 的 双 引 号 不 同 。 单 引号 可 以 用 于 括 起 表 和 符号 ， 而 双 引号 只 能 用 于 
字符 申 。 在 本 书 里 只 将 字符 串 用 于 需要 打印 输出 的 对 象 。 

100 严格 地 说 ， 引 号 的 这 种 使 用 方式 ， 违 背 了 我 们 语言 中 所 有 复合 表达 式 都 应 该 由 括号 限定 ， 都 具有 表 的 形式 的 
普遍 性 原则 。 通 过 引进 特殊 形式 guote 就 可 以 恢复 这 种 一 致 性 ， 这 种 特殊 形式 的 作用 与 引号 完全 一 样 A, 
我 们 完全 可 以 用 (quote a) 代替 a, 采用 (quote (a b c)) 而 不 是 (a b c)。 这 也 就 是 解释 器 的 实际 
工作 方式 。 引 号 只 不 过 是 一 种 将 下 一 完整 表达 式 用 (9uote <expression>) 形式 包 于 起 来 的 单字 符 缩写 形 
式 。 这 一 点 非常 重要 ， 因 为 它 维持 了 我 们 的 原则 : 解释 器 看 到 的 所 有 表达 式 都 可 以 作为 数据 对 象 去 操作 。 例 
如 ， 我 们 可 以 构造 出 表达 式 (car '(a b c) ) ， 它 就 等 同 于 通过 对 表达 式 (list 'car (list ‘quote ‘(a 
b c))) 的 求 值 而 得 到 的 (car (quote (a b c))), 





(b c) 

记 住 这 些 之 后 ， 我 们 就 可 以 通过 求 值 0 得 到 空 表 ， 这 样 就 可 以 丢掉 变量 nil 了 ，。 

为 了 能 对 符号 做 各 种 操作 ， 我 们 还 需要 用 另 一 个 基本 过 程 eq? ， 这 个 过 程 以 两 个 符号 作 
为 参数 ， 检 查 它 们 是 否 为 同样 的 符号 外。 利用 eq? 可 以 实现 一 个 称 为 memqg 的 有 用 过 程 EL 
一 个 符号 和 一 个 表 为 参数 。 如 果 这 个 符号 不 包含 在 这 个 表 里 (也 就 是 说 ， 它 与 表 里 的 任何 项 
目 都 不 eq? )，memq 就 返回 假 ， 否 则 就 返回 该 表 的 由 这 个 符号 的 第 一 次 出 现 开始 的 那个 子 表 : 


(define (memq item x) 
(cond ((null? x) false) 
({eq? item (car x)) x) 
(else (memq item (cdr x)))))}) 


举例 来 说 ， 表 达 式 : 

(memg ’apple ‘(pear banana prune) ) 
的 值 是 假 ， 而 表达 式 ; 

(memq ’apple ’(x (apple sauce) y apple pear}) 
的 值 是 (apple pear), 

练习 2.53 ”解释 器 在 求 值 下 面 各 个 表达 式 时 将 打印 出 什么 ? 

(list ’a ’b ’c) 

(list (list ‘george) ) 

(caer °((x1 x2) (yl y2))) 

(cadr '((x1 x2) (yl y2))) 

(pair? (car ‘(a short list))) 

(memq ’red °{(red shoes) (blue socks))) 

(memg ‘red ’(red shoes blue socks) ) 

练习 2.54 ”如 果 两 个 表 包 含 着 同样 元 素 ， 这 些 元 素 也 按 同样 顺序 排列 ， 那 么 就 称 这 两 个 
表 equal? 。 例 如 : 

(equal? *(this is a list) "(this is a list)) 
是 真 ， 而 

(equal? ’(this is a list) ’(this (is a) list)) | 
是 假 。 说 得 更 准确 些 ， 我 们 可 以 从 符号 相等 的 基本 eg? 出 发 ， 以 递归 方式 定义 出 equal? a 
和 b 是 equa13? 的 ， 如 果 它 们 都 是 符号 ， 而 且 这 两 个 符号 满足 eg?， 或 者 它们 都 是 表 ， 而 且 
(car a) 和 (car b) 相互 egual? ， 它 们 的 (cdr a) 和 (cdr b) 也 是 equal? 。 请 利 
用 这 一 思路 定义 出 egual? 过 程 “。 


ol 我 们 可 以 认为 ， 两 个 符号 是 “同样 ”的 ， 如 果 它们 是 由 同样 字符 按照 同样 顺序 构成 。 这 一 定义 回避 了 一 个 我 
们 目前 尚且 无 法 去 探讨 的 深入 问题 ， 程序 设计 语言 里 “同样 ”的 意义 问题 。 我 们 将 在 第 3 章 中 重新 回 到 这 个 
问题 (第 3.1.3 节 )。 

2 在 实践 中 ， 程 序 员 们 不 仅 用 equal? 比较 包含 符号 的 表 ， 也 用 它 比较 包含 数值 的 表 。 有 关 两 个 数值 相等 的 数 
(用 检测 ) 是 否 也 eq? 的 疝 题 高 度 依赖 于 具体 实现 。 对 于 equa1l? 的 一 个 更 好 的 定义 (例如 Scheme 中 的 基本 过 
程 ) 还 要 去 检查 a 和 b 是 否 为 两 个 数 ， 如 果 是 它们 都 是 数 ， 数 值 相等 时 就 认为 它们 equal?， 





练习 2.55 Eva Lu Ator 输 入 了 表达 式 : 


(car °’ abracadabra) 


令 她 吃惊 的 是 解释 器 打印 出 的 是 quote。 请 解释 这 一 情况 。 
2.3.2 实例 ， 符 号 求 导 


为 了 乌 释 符号 操作 的 情况 ， 并 进一步 阐释 数据 抽象 的 思想 , 现在 考虑 设计 一 个 执行 代数 
表达 式 的 符号 求 导 的 过 程 。 我 们 希望 该 过 程 以 一 个 代数 表达 式 和 一 个 变量 作为 参数 ， 返 回 这 
个 表达 式 相 对 于 该 变量 的 导数 。 例 如 ， 如 果 送 给 这 个 过 程 的 参数 是 ax bx +c 和 x ， 它 应 该 返 
回 2ax 十 b。 符 号 求 导数 对 于 Lisp 有 着 特殊 的 历史 意义 ， 它 正 是 推动 人 们 去 为 符号 操作 开发 计 
算 机 语言 的 重要 实例 之 一 。 进 一 步 说 ， 它 也 是 人 们 为 符号 数学 工作 开发 剖 有 力 系统 的 研究 领 
域 的 开端 ， 今 天 已 经 有 越 来 越 多 的 应 用 数学 家 和 物理 学 家 们 正在 使 用 这 类 系统 。 

为 了 开发 出 一 个 符号 计算 程序 ， 我 们 将 按照 2.1.1 节 开发 有 理 数 系 统 那 样 ， 采 用 同样 的 数 
据 抽象 策略 。 也 就 是 说 ， 首 先 定义 一 个 求 导 算法 ， 令 它 在 一 些 抽象 对 象 上 操作 ， 例 如 和 、 
“乘积 ”和 “变量 ”， 并 不 考虑 这 些 对 人 象 实际 上 如 何 表示 ， 以 后 才 去 关心 具体 表示 的 问题 。 

对 抽象 数据 的 求 导 程序 

为 了 使 有 关 的 讨论 简单 化 ， 我 们 在 这 里 考虑 一 个 非常 简单 的 符号 求 导 程序 ， 它 处 理 的 表 
达 式 都 是 由 对 于 两 个 参数 的 加 和 乘 运算 构造 起 来 的 。 对 于 这 种 表达 式 求 导 的 工作 可 以 通过 下 
面 几 条 归 约 规则 完成 : | | 


-0 当 c 是 一 个 常量 ， 或 者 一 个 与 x 不 同 的 变量 


=] 


RIS SIR 


du +y) _ du „dv 
dx dx dx 

d(uv) dv du 
CERE 

可 以 着 到 ， 这 里 的 最 后 两 条 规则 具有 递归 的 性 质 ， 也 就 是 说 ， 要 想得到 一 个 和 式 的 导数 ， 
我 们 首先 要 找 出 其 中 各 个 项 的 导数 ， 而 后 将 它们 相 加 。 这 里 的 每 个 项 又 可 能 是 需要 进一步 分 
解 的 表达 式 。 通 过 这 种 分 解 ， 我 们 能 得 到 越 来 越 小 的 片段 ， 最 终 将 产生 出 常量 或 者 变量 ， 它 
们 的 导数 就 是 0 或 者 1。 | a | 

为 了 能 在 一 个 过 程 中 体现 这 些 规则 ， 我 们 用 一 下 按 愿望 思维 ， 就 像 在 前 面 设 计 有 理 数 的 
实现 时 所 做 的 那样 。 如 果 现 在 有 了 一 种 表示 代数 表达 式 的 方式 ， 我 们 一 定 能 判断 出 某 个 表达 
式 是 否 为 一 个 和 式 、 乘 式 、 常 量 或 者 变量 ， 也 能 提取 出 表达 式 里 的 各 个 部 分 。 对 于 一 个 和 去 
(举例 来 说 )， 我 们 可 能 希望 取得 其 被 加 项 (第 一 个 项 ) 和 加 项 (第 二 个 项 )。 我 们 还 需要 能 从 
几 个 部 分 出 发 构造 出 整个 表达 式 。 让 我 们 假定 现在 已 经 有 了 一 些 过 程 ， 它 们 实现 了 下 述 的 构 
造 函 数 、 选 择 函 数 和 谓词 : 

(variable? e) e fw HG? 

(same-variable? vl v2) V1 和 V2 是 同一 个 变量 吗 ? 


A 





(sum? e) e 是 和 式 吗 ? 


(addend e) e 的 被 加 数 
(augend e) e 的 加 数 
(make-sum al a2) 构造 起 al 与 a2 的 和 式 
(product? e) e 是 乘 式 吗 ? 
(multiplier e) e 的 被 乘 数 
(multiplicand e) e 的 乘 数 
(make-product ml m2) 构造 起 m1 与 m2 的 乘 式 


利用 这 些 过 程 ， 以 及 判断 表达 式 是 否 数值 的 基本 过 程 number?， 我 们 就 可 以 将 各 种 求 寻 规则 
用 下 面 的 过 程 表达 出 来 了 : 
(define (deriv exp var) 
(cond ((number? exp) 0) 
((variable? exp) 
(if (same-variable? exp var) 1 0)) 
{ (sum? exp) 
(make-sum (deriv (addend exp) var) 
(deriv (augend exp) var))) 
((product? exp) 
(make-sum 
(make-product (multiplier exp) 
(deriv (multiplicand exp) var)) 
(make~product (deriv (multiplier exp) var) 
(multiplicand exp)))) 
(else 
(error "unknown expression type -- DERIV” exp)))) 


过 程 deriv 里 包含 了 一 个 完整 的 求 导 算法 。 因 为 它 是 基于 抽象 数据 表述 的 ， 因 此 ， 无 论 我 们 
如 何 选择 代数 表达 式 的 具体 表示 ， 只 要 设计 了 一 组 正确 的 选择 函数 和 构造 函数 ， 这 个 过 程 都 
可 以 工作 。 表 示 的 问题 是 下 面 必须 考虑 的 问题 。 

代数 表达 式 的 表示 

我 们 可 以 设想 出 许多 用 表 结 构 表示 代数 表达 式 的 方法 。 例 如 ， 可 以 利用 符号 的 表 去 直 
接 反 应 代数 的 记 法 形式 ， 将 表达 式 ax+b 表 示 为 表 (a * x + b)。 然 而 ， 一 种 特别 直 截 
“了 当 的 选择 ， 是 采用 Lisp 里 面 表示 组 合式 的 那 种 带 括号 的 前 缀 形式， 也 就 是 说 ， 将 ax +b 表 
示 为 (+ © ax) b)。 这 样 ， 我 们 有 关 求 导 问 题 的 数据 表示 就 是 : 

。 变 量 就 是 符号 ， 它 们 可 以 用 基本 谓词 symbo1? 判断 : 

(define (variable? x) (symbol? x)) 

* 两 个 变量 相同 就 是 表示 它们 的 符号 相互 eq? : 


(define (same-variable? v1 v2) 
(and (variable? vl) (variable? v2) (eq? vl v2))) 


© FIRS RAR GAR: 
(define (make~sum al a2) (list ‘+ al a2)) 


(define (make~product ml m2) (list “* ml m2) ) 


。 和 式 就 是 第 一 个 元 素 为 符号 + 的 表 : 





(define (sum? x) 
(and (pair? x) (eq? (car x) ’+))) 


。 被 加 数 是 表示 和 式 的 表 里 的 第 二 个 元 素 : 

(define (addend s) (cadr s)) 

* 加 数 是 表示 和 式 的 表 里 的 第 三 个 元 素 : 

(define (augend s) (caddr s)) 

。 乘 式 就 是 第 一 个 元 素 为 符号 * 的 表 : 

(define (product? x) 

(and (pair? x) (eq? (car x) ’*))) 

“被 乘 数 是 表示 乘 式 的 表 里 的 第 二 个 元 素 : 

(define (multiplier p) (cadr p)) 

. 乘 数 是 表示 乘 式 的 表 里 的 第 三 个 元 素 : 

(define (multiplicand p) (caddr p)) 
这 样 ， 为 了 得 到 一 个 能 够 工作 的 符号 求 导 程序 ， 我 们 只 需 将 这 些 过 程 与 deriv 装 在 一 起 。 
在 让 我 们 看 几 个 表现 这 一 程序 的 行为 的 实例 : 

(deriv (+ x 3) ’x) 

(+ 1 0) 

(deriv ‘(* x yY) ‘x) 

(+ (* x 0) (* 1 y)) 

(deriv °(* (* x y) (+ x 3)) °x) 

(+ (* (* x y) (+ 1 0)) 

(* (+ (* x 0) (* 1 y)) 
(+ x 3))) 


程序 产生 出 的 这 些 结果 是 对 的 ， 但 是 它们 没有 经 过 化 简 。 我 们 确实 有 : 
| d(xy) 
dx 





-= XO0+l:y 


当然 ， 我 们 也 可 能 希望 这 一 程序 能 够 知道 x . 0 =0，1 .y=y 以 及 0 +y =y。 因 此 ， 第 二 个 例子 
的 结果 就 应 该 是 简单 的 y。 正 如 上 面 的 第 三 个 例子 所 显示 的 ， 当 表达 式 变 得 更 加 复杂 时 ， 这 一 
情况 也 可 能 变 成 严重 的 问题 。 

现在 所 面临 的 困难 很 像 我 们 在 做 有 理 数 首先 时 所 遇 到 的 问题 ， 希望 将 结果 化 简 到 最 简单 
的 形式 。 为 了 完成 有 理 数 的 化 简 ， 我 们 只 需要 修改 构造 函数 和 选择 函数 的 实现 。 这 里 也 可 以 
采取 同样 的 策略 。 我 们 在 这 里 也 完全 不 必修 改 deriv， 只 需要 修改 make-sum， 使 得 当 两 个 
求 和 对 象 都 是 数 时 ,make-~sum 求 出 它们 的 和 返回 。 还 有 ， 如 果 其 中 的 一 PRA REO, 那 
么 make-sum 就 直接 返回 另 一 个 对 象 。 


(define (make-sum al a2) 
(cond ((=number? al 0) a2) 
((=number? a2 0) al) 
( (and (number? al) (number? a2)) (+ al a2)) 
(else (list + al a2)))) 
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在 这 个 实现 里 用 到 了 过 程 =number? ， 它 检查 某 个 表达 式 是 否 等 于 一 个 给 定 的 数 。 
(define (=number? exp num) 
(and (number? exp) (= exp num))) 


与 此 类 似 ， 我 们 也 需要 修改 make-product ， 设 法 引进 下 面 的 规则 : 0 与 任何 东西 的 乘 
积 都 是 0 ，! 与 任何 东西 的 乘积 总 是 那个 东西 : 


(define (make-product ml m2) 
(cond ((or (=number? ml 0) (=number? m2 0)) 0) 
((=number? ml i) m2) 
((=number? m2 1) ml) 
((and (number? ml) (number? m2)) (* ml m2)) 
(else (list °* ml m2)))) 


Pm eo BRAM A = IFES RK 

(deriv ’(+ x 3) ’x) 

-1 

(deriv '(* x y) x) 

y 

(deriv '(* (* x y) (+ x 3)) °x) 

(+ (* x y) (* y (+ x 3))) 
显然 情况 已 经 大 大 改观 。 但 是 ， 第 三 个 例子 还 是 说 明 ， 要 想 做 出 一 个 程序 ,使 它 能 将 表达 式 
做 成 我 们 都 能 同意 的 “最 简单 ”形式 ， 前 面 还 有 很 长 的 路 要 走 。 代 数 化 简 是 一 个 非常 复杂 的 
问题 ， 除 了 其 他 各 种 因素 之 外 ， 还 有 另 一 个 根本 性 的 问题 : 对 于 某 种 用 途 的 最 简 形 式 ， 对 于 
另 一 用 途 可 能 就 不 是 最 简 形式 。 . 

练习 2.56 ”请 说 明 如 何 扩充 基本 求 导 规则 ， 以 便 能 够 处 理 更 多 种 类 的 表达 式 。 例 如 ， 通 
过 给 程序 deriv 增 加 一 个 新 子 句 ， 并 以 适当 方式 定义 过 程 exponentiation?、base. 
exponent 和 make-exponentiation 的 方式 ,实现 下 述 求 导 规则 (你 可 以 考 上 处 用 符号 ** 
RRRA): 

LO anf) 

请 将 如 下 规则 也 构造 到 程序 里 : 任何 东西 的 0 次 知 都 是 1 ， 而 它们 的 1 次 等 都 是 其 目 身 。 

练习 2.57 ”请 扩充 求 导 程序 ， 使 之 能 处 理 任意 项 (两 项 或 者 更 多 项 ) 的 和 与 乘积 。 这 样 ， 
上 面 的 最 后 一 个 例子 就 可 以 表示 为 : 

(deriv '(* x y (+ x 3)) x) 
设法 通过 只 修改 和 与 乘积 的 表示 ， 而 完全 不 修改 过 程 deriv 的 方式 完成 这 - 一 扩充 。 例 如 ik 
一 个 和 式 的 addend 是 它 的 第 一 项 ， 而 其 augend 是 和 式 中 的 其 余 项 。 

练习 2.58 ”假定 我 们 希望 修改 求 导 程 序 ， 使 它 能 用 于 常规 数学 公式 ， 其 中 十 和 ”采用 的 
是 中 缀 运算 符 而 不 是 前 绿 。 由 于 求 导 程 序 是 基于 抽象 数据 定义 的 ， 要 修改 它 ， 使 之 能 用 寺 力 
一 种 不 同 的 表达 式 表 示 ， 我 们 只 需要 换 一 套 工作 在 新 的 、 求 导 程序 需要 使 用 的 代数 表 运 式 有 
表示 形式 上 的 谓词 、 选 择 函 数 和 构造 国 数 。 

a) 请 说 明 怎 样 做 出 这 些 过程 , 以 便 完成 在 中 缀 表示 形式 (例如 (x + (3* (x+ (Y +2))))) 
上 的 代数 表达 式 求 导 。 为 了 简化 有 关 的 工作 ， 现 在 可 以 假定 + 和 * 总 是 取 两 个 参数 ， 而 且 表 
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达 式 中 已 经 加 上 了 所 有 的 括号 。 

b) 如 果 人 允许 标准 的 代数 写法 ， 例 如 (x + 3* (x + y + 2)), 问题 就 会 变 得 更 困难 
许多 。 在 这 种 表达 式 里 可 能 不 写 不 必要 的 括号 ， 并 要 假定 乘法 应 该 在 加 法 之 前 完成 。 你 还 能 为 
这 种 表示 方式 设计 好 适当 的 谓词 、 选 择 函 数 和 构造 函数 ， 使 我 们 的 求 导 程序 仍然 能 工作 吗 ? 


2.3.3 实例， 集合 的 表示 


在 前 面 的 实例 中 ， 我 们 已 经 构造 起 两 类 复合 数据 对 象 的 表示 : 有 理 数 和 代数 表达 式 。 在 
这 两 个 实例 中 ， 我 们 都 采用 了 某 一 种 选择 ， 在 构造 时 或 者 选择 成 员 时 去 简化 〈 约 简 ) 有 关 的 
表示 。 除 此 之 外 ， 选 择 用 表 的 形式 来 表示 这 些 结构 都 是 直截了当 的 。 现 在 我 们 要 转 到 集合 的 
表示 和 问题 ， 此 时 ， 表 示 方 式 的 选择 就 不 那么 显然 了。 实际 上 ， 在 这 里 存在 几 种 选择 ， 而 且 它 
们 相互 之 间 在 几 个 方面 存在 明显 的 不 同 。 

非 形式 地 说 ， 一 个 集合 就 是 一 些 不 同 对 象 的 汇集 。 要 给 出 一 个 更 精确 的 定义 ， 我 们 可 以 
利用 数据 抽象 的 方法 ， 也 就 是 说 ， 用 一 组 可 以 作用 于 “集合 ”的 操作 来 定义 它们 。 这 些 操作 
是 union-set, intersection-set, element-of-set? 和 adjoin-set。 其 中 
element-of-set? 是 一 个 谓词 ， 用 于 确定 某 个 给 定 元 素 是 不 是 某 个 给 定 集 合 的 成 员 。 
adjoin-set 以 一 个 对 象 和 一 个 集合 为 参数 ， 返 回 一 个 集合 ， 其 中 包含 了 原 集合 的 所 有 元 素 ， 
再 加 上 刚刚 加 入 进来 的 这 个 新 元 素 。union-set 计 算出 两 个 集合 的 并 集 ， 这 也 是 一 个 集合 ， 
其 中 包含 了 所 有 属于 两 个 参数 集合 之 一 的 元 素 。 intersection-set 计 算出 两 个 集合 的 交 
集 ， 它 包含 着 同时 出 现在 两 个 参数 集合 中 的 那些 元 素 。 从 数据 抽象 的 观点 看 ， 我 们 在 设计 有 
关 的 表示 方面 具有 充分 的 自由 ， 只 要 企 这 种 表示 上 实现 的 上 述 操作 能 以 某 种 方式 符合 上 面 给 
出 的 解释 ”。 


集合 作为 未 排序 的 表 

集合 的 一 种 表示 方式 是 用 其 元 素 的 表 ， 其 中 任何 元 素 的 出 现 都 不 超过 一 次 。 这 样 BR 
就 用 空 表 来 表示 。 对 于 这 种 表示 形式 ，element-of-set? 类 似 于 2.3.1 节 的 过 程 nemq， 但 它 
应 该 用 equal? 而 不 是 eg? ， 以 保证 集合 元 素 可 以 不 是 符号 : 

(define (element-of-set? x set) 

(cond ((null? set) false) 
 ((equal? x (car set)) true) | 
(else (element-of-set? x (cdr set))))) 


Fil AC RIES Hadjoin-set, 如 果 要 加 入 的 对 象 已 经 在 相应 集合 里 ， 那么 就 返回 那个 集 
合 ， 否 则 就 用 cons 将 这 一 对 象 加 入 表示 集合 的 表 里 : 


(define (adjoin-set x set) 
(if (element-of-set? x set) 


o 如 果 希 望 更 形式 化 些 ， 可 以 将 “以 某 种 方式 符合 上 面 给 出 的 解释 ”说 明 为 ， 有 关 操 作 必 须 满足 以 规则 
。 对 于 任何 集合 S 和 对 象 X ， (element-of-set? x (adjoin-set x S)) 为 真 ( 非 形式 地 说 ,“ 将 
一 个 对 象 加 入 某 集 合 后 产生 的 集合 里 包含 着 这 个 对 象 “)。 
。 对 于 任何 集合 S 和 T ,以 及 对 象 Xx，(element- -of-set? x (union-set 5 T)) 等 于 (or 
(element-of-set? x S) (element- -of-set? x T)) ( 非 形式 地 说 ,“(union S T) 的 元 素 


就 是 在 S 里 或 者 在 T 里 的 元 素 )。 
。 对 于 任何 对 象 X*，(element-of-set? x '0) 为 假 ( 非 形式 地 说 ， 任何 对 象 都 不 是 空 集 的 元 素 ) 。 
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set 


(cons x set))) 


实现 1ntersection~set 了 时 可 以 采用 递归 策略 如 果 我 们 已 知 如 何 做 出 set2 与 set1l 的 cdr 
的 交集 ， 那 么 就 只 需要 确定 是 否 应 将 set1 的 car 包 含 到 结果 之 中 了 ， 而 这 依赖 于 (car 
setl) 是 否 也 在 Set2 里 。 下 面 是 这 样 写 出 的 过 程 : 
(define (intersection-set Setl set2) 
(cond ((or (null? setl) (null? set2)) °()) 
((element-of-set? (car setl) set2) 
(cons (car setl) 
(intersection-set (cdr setl) set2))) 
(else (intersection-set (cdr setl) set2)))) 


在 设计 一 种 表示 形式 时 ， 有 一 件 必须 关注 的 事情 是 效率 问题 。 为 考虑 这 一 问题 ， 就 需要 
考虑 上 面 定义 的 各 集合 操作 所 需要 的 工作 步 数 。 因 为 它们 都 使 用 了 element-of-set?, 这 
一 操作 的 速度 对 整个 集合 的 实现 效率 将 有 重大 影响 。 在 上 面 这 个 实现 里 ， 为 了 检查 某 个 对 象 
是 否 为 -- 个 集合 的 成 员 ，element-~of-set? 可 能 不 得 不 扫描 整个 集合 (最 坏 情 况 是 这 一 元 
素 恰 好 不 在 集合 里 )。 因 此 ， 如 果 和 集合 有 nn 个 元 素 ,，element-of-set? 就 可 能 需要 n 步 才能 完 
成 。 这 样 ， 这 一 操作 所 需 的 步 数 将 以 @(n) 的 速度 增长 。adjoin-set 使 用 了 这 个 操作 ， 因 此 
它 所 需 的 步 数 也 以 B(n) 的 速度 增长 。 而 对 于 intersection-set ， 它 需要 对 set1 的 每 个 元 
素 做 一 次 element-of-set? 检 查 ， 因 此 所 需 步 数 将 按 所 涉及 的 两 个 集合 的 大 小 之 乘积 增长 ， 
或 者 说 ， 在 两 个 集合 大 小 都 为 时 就 是 8(n”)。union-set 的 情况 也 是 如 此 。 

练习 2.59 ”请 为 采用 未 排序 表 的 集合 实现 定义 union-set 操 作 。 

练习 2.60 ”我 们 前 面 说 明了 如 何 将 集合 表示 为 没有 重复 元 素 的 表 。 现 在 假定 允许 重复 ， 
lin, BA {1, 2, 3} 可 能 被 表示 为 表 (2 3 2 1 3 2 2), 请 为 在 这 种 表示 上 的 操作 设计 
过 程 element-of-set?、adjoin-set、union-set 和 intersection-set。 与 前 面 不 
重复 表示 里 的 相应 操作 相 比 ， 现 在 各 个 操作 的 效率 怎么 样 ? 在 什么 样 的 应 用 中 你 更 倾向 于 使 
用 这 种 表示 ， 而 不 是 前 面 那 种 无 重复 的 表示 ? 


集合 作为 排序 的 表 

加 速 集合 操作 的 一 种 方式 是 改变 表示 方式 ， 使 集合 元 素 在 表 中 按照 上 升序 排列 。 为 此 ， 
我 们 就 需要 有 某 种 方式 来 比较 两 个 元 素 ， 以 便 确定 哪个 元 素 更 大 一 些 。 例 如 ， 我 们 可 以 按 字 
典 序 做 符号 的 比较 ， 或 者 同意 采用 某 种 方式 为 每 个 对 象 关 联 一 个 唯一 的 数 ， 在 比较 元 素 的 时 
候 就 比较 与 之 对 应 的 数 。 为 了 简化 这 里 的 讨论 ， 我 们 将 仅仅 考虑 集合 元 素 是 数值 的 情况 ， 这 
样 就 可 以 用 > 和 < 做 元 素 的 比较 了 。 下 面 将 数 的 集合 表示 为 元 素 按照 上 升 顺序 排列 的 表 。 在 
前 面 第 一 种 表示 方式 下 ， 集 合 (1, 3, 6, 10) 的 元 素 在 相应 的 表 里 可 以 任意 排列 ， 而 在 现在 
的 新 表示 方式 中 ， 我 们 就 只 允许 用 表 (1 3 6 10), | 

从 操作 element-of-set? 可 以 看 到 采用 有 序 表示 的 一 个 优势 : 为 了 检查 一 个 项 的 存在 
性 ， 现 在 就 不 必 扫 描 整 个 表 了 。 如 果 检 查 中 过 到 的 某 个 元 素 大 于 当时 要 找 的 东西 ， 那 么 就 可 
以 断定 这 个 东西 根本 不 在 表 里 : 


(define (element-of-set? x Set) 
(cond ((null? set) false) 
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((= x (car set)) true) 
((< x (car sét)) false) 
(else (element -of-set? x (càr set))))) 
这 样 能 节约 多 少 步 数 呢 ? 在 最 坏 情况 下 ， 我 们 要 找 的 项 目 可 能 是 集合 中 的 最 大 元 素 ， 此 时 所 
需 步 数 与 采用 未 排序 的 表示 时 一 样 。 但 在 另 一 方面 ， 如 果 需 要 查找 许多 不 同 大 小 的 项 ， 我 们 
总 可 以 期 望 ， 有 些 时 候 这 一 检索 可 以 在 接近 表 开 始 处 的 某 一 点 停止 ， 也 有 些 时 候 需 要 检查 表 
的 一 大 部 分 。 平 均 而 言 ， 我 们 可 以 期 望 需要 检查 表 中 的 一 半 元 素 ， 这 样 ， 平 均 所 需 的 步 数 就 
是 大 约 n/2。 这 仍然 是 8(n) 的 增长 速度 ， 但 与 前 一 实现 相 比 ， 平 均 来 说 ,现在 我 们 市 约 了 大 约 
一 半 的 步 数 (这 一 解释 并 不 合理 ， 因 为 前 面 说 未 排序 表 需 要 检查 整个 表 ， 考 虑 的 只 是 一 种 特 
殊 情 况 : 查找 没有 出 现在 表 里 的 元 素 。 如 果 查 找 的 是 表 里 存 在 的 元 素 ， 即 使 采用 未 排序 的 表 ， 
平均 查找 长 度 也 是 表 元 素 的 一 半 。 一 一 译 者 往 ) 。 
操作 intersection-set 的 加 速 情 况 更 使 人 印象 深刻 。 在 未 排序 的 表示 方式 里 ， 这 一 
操作 和 需要 B(m?) 的 步 数 ， 因 为 对 set1 的 每 个 元 素 ， 我 们 都 需要 对 set2 做 一 次 完全 的 扫描 。 对 
于 排序 表示 则 可 以 有 一 种 更 聪明 的 方法 。 我 们 在 开始 时 比较 两 个 集合 的 起 始 元 素 ， 例 如 x1 和 
x2 。 如 果 x1 等 于 x2 ， 那 么 这 样 就 得 到 了 交集 的 一 个 元 素 ， 而 交集 的 其 他 元 素 就 是 这 两 个 集合 
的 cdr 的 交集 。 如 果 此 时 的 情况 是 XxX1 小 于 Xx2 ， 由 于 xX2 是 集合 set2 的 最 小 元 素 ， 我 们 立即 可 
以 断定 x1 不 会 出 现在 集合 set2 里 的 任何 地 方 ， 因 此 它 不 应 该 在 交集 里 。 这 样 ， 两 集合 的 交集 
就 等 于 集合 set2 与 set1 的 cdr 的 交集 。 与 此 类 似 ， 如 果 X2 小 于 X1 ， 那 么 两 集合 的 交集 就 等 
于 集合 set1 与 set2 的 cdr 的 交集 。 下 面 是 按 这 种 方式 写 出 的 过 程 : 
(define (intersection-set seti set2) 
(if (or (null? setl) (null? set2)) 
() - 
(lect ({xl (car setl)) (x2 (car set2))) 
(cond ((= xl x2) 
(cons x1 
(intersection-set (cdr seti) 
(cdr set2)))) 
((< xl x2) 
(intersection-set (cdr setl) set2)) 
((< x2 x1) 
(intersection-set setl (cdr set2))))))) 
为 了 估计 出 这 一 过 程 所 需 的 步 数 ， 请 注意 ， 在 每 个 步骤 中 ， 我 们 都 将 求 交 集 问 题 归 结 到 更 
小 集合 的 交集 计算 问题 -一 -去 掉 了 set1i 和 set2 之 一 或 者 是 两 者 的 第 一 个 元 素 。 这 样 ， 所 
需 步 数 至 多 等 于 set1 与 set2 的 大 小 之 和 ， 而 不 像 在 未 排序 表示 中 它们 的 乘积 。 这 也 就 是 
O(n) 的 增长 速度 ， 而 不 是 8B(22) 一 一 这 一 加 速 非常 明显 ， 即 使 对 中 等 大 小 的 集合 也 是 如 此 。 
练习 2.61 “请 给 出 采用 排序 表示 时 adjoin-set 的 实现 。 通 过 类 亿 element-of-set? 
的 方式 说 明 ， 可 以 如 何 利用 排序 的 优势 得 到 一 个 过 程 ， 其 平均 所 需 的 步 数 是 采用 未 排序 表示 
时 的 一 半 。 
练习 2.62 请 给 出 在 集合 的 排序 表示 .上 union-set 的 一 个 8(m) 实现 。 


集合 作为 二 叉 树 
如 果 将 集合 元 素 安排 成 一 棵 树 的 形式 ， 我 们 还 可 以 得 到 比 排序 表 表 示 更 好 的 结果 。 树 中 
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每 个 结 点 保存 集合 中 的 一 个 元 素 ， 称 为 该 结 点 的 “数据 项 -， 它 还 链接 到 另外 的 两 个 结 点 (可 
能 为 空 ) 。 其 中 “左边 ”的 链接 所 指 四 的 所 有 元 素 均 小 于 本 结扎 的 元 素 ， 而 “右边 ”链接 到 的 
元 素 都 大 于 本 结 点 里 的 元 素 。 图 2-16 显 示 的 是 一 棵 表示 集合 的 树 。 同 一 个 集合 表示 为 树 可 以 
有 多 种 不 同 的 方式 ， 我 们 对 一 个 合法 表示 的 要 求 就 是 ， 位 于 左 子 树 里 的 所 有 元 素 都 小 于 本 结 
点 里 的 数据 项 ， 而 位 于 右 子 树 里 的 所 有 元 素 都 大 于 它 。 


A ALA 
AN A LA 
\ 


图 2-16 集合 {1, 3, 5,7, 9, 11} 的 几 种 二 叉 树 表示 


树 表示 方法 的 优点 在 于 ， 假 定 我 们 希望 检查 某 个 数 x 是 否 在 一 个 集合 里 ， 那 么 就 可 以 用 x 
与 树 顶 结 点 的 数据 项 相 比 较 。 如 果 x 小 于 它 ， 我 们 就 知道 现在 只 需要 搜索 左 子 树 ， 如 采 X 比较 
大 ， 那 么 就 只 需 搜索 右 子 树 。 在 这 样 做 时 ， 如 果 该 树 是 “平衡 的 ”"， 也 就 是 说 ， 每 棵 子 树 大 约 

是 整个 树 的 一 半 大 ， 那 么 ， 这 样 经 过 一 步 ， 我们 就 将 需要 搜索 规模 为 4 的 树 的 问题 ， 归 约 为 搜 
索 规 模 为 n/2 的 树 的 问题 。 由 于 经 过 每 个 步骤 能 够 使 树 的 大 小 减 小 一 半 ， 我 们 可 以 期 望 搜索 规 
模 为 ”的 树 的 计算 步 数 以 8(log n) 速度 增长 “”。 在 集合 很 大 时 ， 相 对 于 原来 的 表示 ， 现 在 的 操 
作 速 度 将 明显 快 得 多 。 

我 们 可 以 用 表 来 表示 树 ， 将 结 点 表示 为 三 个 元 素 的 表 : 本 结 点 中 的 数据 项 ， 其 左 子 树 和 
右 子 树 。 以 空 表 作为 左 子 树 或 者 右 子 树 ， 就 表示 没有 子 树 连 接 在 那里 。 我 们 可 以 用 下 面 过 程 
描述 这 种 表示 “: 

(define (entry tree) (car tree)) 

(define (left~branch tree) (cadr tree)) 

(define (right-branch tree) (caddr tree) ) 


(define (make-tree entry left right) 
(list entry left right)) 


现在 ， 我 们 就 可 以 采用 上 面 描述 的 方式 实现 过 程 element-of- set? T: 


(define (element-of-set? x set) 
(cond ({null? set) false) 


So ESE) ME, SA A KARI TRE, MER TEED. 2.4 RA ERE HH ATL 9.3 


里 的 半 区 间 搜 索 算法 中 所 看 到 的 那样 。 
5 我 们 用 树 来 表示 集合 ， 而 树 本 身 又 用 表 表 示 一 一 从 作用 上 看 ， 这 就 是 在 一 种 数据 抽象 上 面 构造 另 一 种 数据 抽 
象 。 我 们 可 以 把 过 程 entzry、1eft-bzanch 、 right-branch 和 make-tree 看 作 是 一 种 方法 ， 它 将 “二 


叉 树 ”抽象 隔离 于 如 何 用 表 结 构 表 示 它 的 特定 方式 之 外 。 
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((= x (entry set)) true) 

((< x (entry set)) 

(element-of-set? x (left-branch set))) 
((> x (entry set)) 

(element-of-set? x (right-branch set))))) 


向 集合 里 加 入 一 个 项 的 实现 方式 与 此 类 似 ， 也 需要 B(log n) HH. AS MATH, RN 
需要 将 X 与 结 点 数据 项 比较 ， 以 便 确 定 x 应 该 加 入 右 子 树 还 是 左 子 树 中 。 在 将 xX 加 入 适当 的 分 
支 之 后 ， 我 们 将 新 构造 出 的 这 个 分 支 、 原 来 的 数据 项 与 另 一 分 支 放 到 一 起 。 如 果 X 等 于 这 个 数 
据 项 ， 那 么 就 直接 返回 这 个 结 点 。 如 果 需 要 将 x 加 入 一 个 空子 树 ， 那 么 我 们 就 生成 一 棵 树 ， 以 
x 作 为 数据 项 ， 并 让 它 具 有 空 的 左右 分 支 。 下 面 是 这 个 过 程 : 


(define (adjoin-set x set) 
(cond ((null? set) (make-tree x ’{) ’())) 
((= x (entry Set)) set) . 
((< x (entry set)) 
(make-tree {cntry set) 
(adjoin-set x (left-branch set) ) 
(right-branch set)))-: 
({> x (entry set)) 
(make-tree (entry set) 
(left-branch set). 
(adjoin-set x (right-branch set)))))) 


我 们 在 上 面 断言 ， 搜 索 树 的 操作 可 以 在 对 数 步 数 中 完成 ， 这 实际 上 依赖 于 树 “ 平 衡 ”的 
假设 ， 也 就 是 说 ， 每 个 树 的 左右 子 树 中 的 结 点 大 1 
致 上 一 样 多 ， 因 此 每 棵 子 树 中 包含 的 结 点 大 约 就 ””、\、 
是 其 父 的 一 半 。 但 是 我 们 怎么 才能 确保 构造 出 的 2 
树 是 平衡 的 呢 ? 即使 是 从 一 棵 平衡 的 树 开始 工作 ， \ 
采用 adjoin-set 加 入 元 素 也 可 能 产生 出 不 平衡 N 
”的 结果 。 因 为 新 加 入 元 素 的 位 置 依赖 于 它 与 当时 4 
已 经 在 树 中 的 那些 项 比较 的 情况 。 我 们 可 以 期 望 ， N 
如 果 “ 随 机 地 ”将 元 素 加 入 树 中 ， 平 均 而 言 将 会 N 
使 树 趋 于 平衡 。 但 在 这 里 并 没有 任何 保证 。 例 如 ， 
如 果 我 们 从 空 集 出 发 ， 顺 序 将 数值 1 至 7 加 入 其 中 ， N 
我 们 就 会 得 到 如 图 2-17 所 示 的 高 度 不 平衡 的 树 。 7 
在 这 个 树 里 ， 所 有 的 左 子 树 都 为 空 ， 所 以 它 与 向 ”图 2-17 通过 顺序 加 入 1 到 7 产生 的 非 平衡 树 
单 排序 表 相 比 一 点 优势 也 没有 。 解 决 这 个 问题 的 
一 种 方式 是 定义 一 个 操作 ， 它 可 以 将 任意 的 树 变换 为 一 棵 具有 同样 元 素 的 平衡 树 。 在 每 执行 
过 几 次 adjoin-set 操 作 之 后 ， 我 们 就 可 以 通过 执行 它 来 保持 树 的 平衡 。 当 然 ， 解 决 这 一 问 
题 的 方法 还 有 许多 ， 大 部 分 这 类 方法 都 涉及 到 设计 一 种 新 的 数据 结构 ， 设 法 使 这 种 数据 结构 
上 的 搜索 和 插入 操作 都 能 够 在 9(log n) 步 数 内 完成 “。 


!% 六 种 结构 的 例子 如 B 树 和 红 黑 树 。 存 在 大 量 有 关 数 据 结 构 的 文献 讨论 这 一 问题 ， 参 见 Cormen, Leiserson, and 
Rivest 1990, 
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练习 2.63 下 面 两 个 过 程 都 能 将 树 变换 为 表 : 


(define (tree->list-l tree) 
(if (null? tree) 
"() 
(append (tree->list-1 (left-branch tree) ) 
(cons (entry tree) 
(tree->list~l (right-branch tree))))})) 


(define (tree->list-2 tree) 
(define (copy-to-list tree result-list) 
(if (null? tree) 
result-list 
(copy-to-list (left-branch tree) 
(cons (entry tree) 
(copy-to-list (right-branch tree) 
result-list))))) 
(copy-to-list tree °())) 


a) 这 两 个 过 程 对 所 有 的 树 都 产生 同样 结果 吗 ? 如 有 果 不 是 ， 它们 产生 出 的 结果 有 什么 
同 ? 它们 对 图 2-16 中 的 那些 树 产生 什么 样 的 表 ? 

b) 将 ?个 结 点 的 平衡 树 变换 为 表 时 ， 这 两 个 过 程 所 需 的 步 数 具有 同样 量 级 的 增长 速度 吗 ? 
如 果 不 一 样 ， 哪 个 过 程 增长 得 慢 一 些 ? 

练习 2.64 ”下面 过 程 1ist->tree 将 一 个 有 序 表 变换 为 一 棵 平衡 二 又 树 。 其 中 的 辅助 函 
数 partial~tree 以 整数 + 和 一 个 至 少 包 含 h 个 元 素 的 表 为 参数 ， 构 造 出 一 棵 包含 这 个 表 的 前 
n 个 元 素 的 平衡 树 。 由 partial-tree 返 回 的 结果 是 一 个 序 对 (用 cons 构 造 )， 其 car 是 构造 
出 的 树 ， 其 cdr 是 没有 包含 在 树 中 那些 元 素 的 表 。 

(define (list->tree elements) 


(car (partial-tree elements (length elements)))) 


(define (partial-tree elts n) 


(if (= n Q) 
(cons “() elts) 
(let ((left-size (quotient (- n 1) 2))) 


(let ((left-result (partial-tree elts left-size) )) 
(let ((left-tree (car left-result) ) 
(non-left-elts (cdr left-result)) 
(right-size (- n (+ left-size 1)))) 
(let ((this-entry (car non-left-elts) ) 
(right-result (partial-tree (cdr non-left-elts) 
right-size))) 
(let ((right-tree (car right-result)) 
(remaining-elts (cdr right-result))) 
(cons (make-tree this-entry left-tree right-tree) 
remaining-elts)))))))) 


a) 请 简要 地 并 尽 可 能 清楚 地 解释 为 什么 Partial- “tree fe 70k LIE. 请 画 出 将 11st- 
>tree 用 于 表 (1 3 5 7 9 11) 产生 出 的 树 。 

b) 过 程 1ist->tree 转 换 n 个 元 素 的 表 所 需 的 步 数 以 什么 量 级 增长 ? 

练习 2.65 利用 练习 2.63 和 练习 2.64 的 结果 ， 给 出 对 采用 (平衡 ) 二 又 树 方式 实现 的 集合 
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的 union-set 和 intersection-set 操 作 有 的 BQ(n) WU, 


集合 与 信息 检索 

我 们 考察 了 用 表 表示 集合 的 各 种 选择 ， 并 看 到 了 数据 对 象 表示 的 选择 可 能 如 何 深刻 地 影 
响 到 使 用 数据 的 程序 的 性 能 。 关 注 集合 的 另 一 个 原因 是 ， 这 里 所 讨论 的 技术 在 涉及 信息 检索 
的 各 种 应 用 中 将 会 一 次 又 一 次 地 出 现 。 

现在 考虑 一 个 包含 大 量 独 立 记录 的 数据 库 ， 例 如 一 个 企业 中 的 人 事 文件 ， 或 者 一 个 会 计 
系统 里 的 交易 记录 。 典 型 的 数据 管理 系统 都 需 将 大 量 时 间 用 在 访问 和 修改 所 存 的 数据 上 ,. 因 
此 就 需要 访问 记录 的 高 效 方法 。 完 成 此 事 的 一 种 方式 是 将 每 个 记录 中 的 一 部 分 当 作 标识 key 
( 键 值 ) 。 所 用 键 值 可 以 是 任何 能 唯一 标识 记录 的 东西 。 对 于 人 事 文件 而 言 CAE BAW 
ID 编码 。 对 于 会 计 系 统 而 言 ， 它 可 能 是 交易 的 编号 。 在 确定 了 采用 什么 键 值 之 后 ， 就 可 以 将 
记录 定义 为 一 种 数据 结构 ， 并 包含 key 选 择 过 程 ， 它 可 以 从 给 定 记录 中 提取 出 有 关 的 键 值 。 

现在 就 可 以 将 这 个 数据 库 表示 为 一 个 记录 的 集合 。 为 了 根据 给 定 键 值 确定 相关 记录 的 位 
置 ， 我 们 用 一 个 过 程 1ookup，, 它 以 一 个 键 值 和 一 个 数据 库 为 参数 ， 返回 具 有 这 个 键 值 的 记录 ， 
或 者 在 找 不 到 相应 记录 时 报告 失败 。1ookup 的 实现 方式 几 平 与 element-of~set? 一 模 一 
样 ， 如 果 记 录 的 集合 被 表示 为 未 排序 的 表 ， 我 们 就 可 以 用 : 

(define (lookup given-key set-of-records) 

(cond ((null? set-of-records) false) 
((equal? given-key (key (car set-of-records) )) 


(car set-of-records) ) 
(else (lookup given-key (cdr set-of-records))))) 


不 襄 而 喻 ， 还 有 比 未 排序 表 更 好 的 表示 大 集合 的 方法 。 常 常 需要 “随机 访问 ”其 中 记录 
的 信息 检索 系统 通常 用 某 种 基于 树 的 方法 实现 ， 例 如 用 前 面 讨 论 过 的 二 叉 树 。 在 设计 这 种 系 
统 时 ， 数 据 抽 象 的 方法 学 将 很 有 帮助 。 设 计 师 可 以 创建 某 种 简单 而 直接 的 初始 实现 ， 例 如 采 
用 未 排序 的 表 。 对 于 最 终 系 统 而 言 ， 这 种 做 法 显然 并 不 合适 ， 但 采用 这 种 方式 提供 一 个 “一 
挥 而 就 ”的 数据 库 ， 对 用 于 测试 系统 的 其 他 部 分 则 可 能 很 有 帮助 。 然 后 可 以 将 数据 表示 修改 
得 更 加 精细 。 如 果 对 数据 库 的 访问 都 是 基于 抽 尔 的 选择 函数 和 构造 函数 ， 这 种 表示 的 改变 就 
不 会 要 求 对 系统 其 余部 分 做 任何 修改 。 

练习 2.66 ”假设 记录 的 集合 来 用 二 又 树 实 现 ， 按照 其 中 作为 键 值 的 数值 排序 。 请 实现 相 
应 的 lookup 过 程 。 


2.3.4 实例: Huffman 编 码 树 


本 节 将 给 出 一 个 实际 使 用 表 结 构 和 数据 抽象 去 操作 集合 与 树 的 例子 。 这 一 应 用 是 想 确定 
一 些 用 0 和 1 (二 进 制 位 ) 的 序列 表示 数据 的 方法 。 举 例 说 ， 用 于 在 计算 机 里 表示 文本 的 
ASCII 标 准 编码 将 每 个 字符 表示 为 一 个 包含 7 个 二进制 位 的 序列 ， 采 用 7 个 二 进 制 位 能 够 区 分 
27 种 不 同情 况 ， 即 128 个 可 能 不 同 的 字符 。 一 般 而 言 ， 如 果 我 们 需要 区 分 ?个 不 同 字符 ， 那 么 
就 需要 为 每 个 字符 使 用 logz ”个 二 进 制 位 。 假 设 我 们 的 所 有 信息 都 是 用 A、B、C、D、B、F、 
G 和 H 这 样 8 个 字符 构成 的 ， 那 么 就 可 以 选择 每 个 字符 用 3 个 二 进 制 位 ， 例 如 : 


19 练习 2.63 到 2.65 来 自 Paul Hilfinger 。 
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A 000 C 010 E 100 G 110 
B 001 D 011 F 101 H 111 


RAIS FRSA HK, WS: 
BACADAEAFABBAAAGAH 


将 编码 为 54 个 二 进 制 位 
001000010000011000100000101000001001000000000110000111 


像 AsCIH 码 和 上 面 A 到 五 编码 这 样 的 编码 方式 称 为 定 长 编码 ， 因 为 它们 采用 同样 数目 的 二 进 制 
位 表示 消息 中 的 每 一 个 字符 。 变 长 编码 方式 就 是 用 不 同 数目 的 二 进 制 位 表示 不 同 的 字符 ， 这 
种 方式 有 时 也 可 能 有 些 优势 。 举 例 说 ， 莫 尔 斯 电报 码 对 于 字母 表 中 各 个 字母 就 没有 采用 同样 
数目 的 点 和 划 ， 特 别 是 最 常见 的 字母 E 只 用 一 个 点 表示 。 一 般 而 言 ， 如 果 在 我 们 的 消息 里 ， 某 
些 符号 出 现 得 很 频繁 ， 而 另 一 些 却 很 少见 ， 那 么 如 末 为 这 些 频 瞎 出 现 的 字符 指定 较 短 的 人 码 字 ， 
我 们 就 可 能 更 有 效 地 完成 数据 的 编码 (对 于 同样 消息 使 用 更 少 的 二 进 制 位 )。 请 考虑 下 面 对 于 
字母 A 到 吾 的 另 一 种 编码 : | 

A0 C 1010 E 1100 G 1110 

B 100 D 1011 F 1101 H 1111 


采用 这 种 编码 方式 ， 上 面 的 同样 信息 将 编码 为 如 下 的 串 : 
100010100101101100011010100100000111001111 


这 个 串 中 只 包含 42 个 二 进 制 位 ， 也 就 是 说 ， 与 上 面 定 长 编码 相 比 ， 现 在 的 这 种 方式 币 约 了 超 
过 20 色 的 空间 。 

采用 变 长 编码 有 一 个 困难 ， 那 就 是 在 读 0/1 序列 的 过 程 中 确定 何 时 到 达 了 一 个 字符 的 结束 。 
莫 尔 斯 码 解决 这 一 问题 的 方式 是 在 每 个 字母 的 点 划 序 列 之 后 用 一 个 特殊 的 分 隔 符 ( 它 用 的 是 
一 个 间歇 )。 另 一 种 解决 方式 是 以 某 种 方式 设计 编码 ， 使 得 其 中 每 个 字符 的 完整 编码 都 不 古 男 
一 字符 编码 的 开始 一 段 〈 或 称 前 缓 )。 这 样 的 编码 称 为 前 缓 码 。 在 上 面 例 子 里 ， 人 编码 AD iB 
编码 为 100， 没 有 其 他 字符 的 编码 由 0 或 者 100 开 始 。 | 

一 般 而 言 ， 如 果 能 够 通过 变 长 前 级 码 去 利用 被 编码 消息 中 符号 出 现 的 相对 频 度 ， 那 么 就 
能 明显 地 节约 空间 。 完 成 这 件 事情 的 一 种 特定 方式 称 为 Hufftman 编 码 ， 这 个 名 称 取 目 其 发 明和 人 
David Hufftman。 一 个 Huffman 编码 可 以 表示 为 一 棵 二 叉 树 ， 其 中 的 树叶 是 被 编码 的 符号 。 树 
中 每 个 非 叶 结 点 代表 一 个 集合 ， 其 中 包含 了 这 一 结 点 之 下 的 所 有 树叶 上 的 符号 。 除 此 之 外 ， 
位 于 树叶 的 每 个 符号 还 被 赋予 一 个 权重 (也 就 是 它 的 相对 频 度 )， 非 叶 结 点 所 包含 的 权重 是 位 
于 它 之 下 的 所 有 叶 结 点 的 权重 之 和 。 这 种 权重 在 编码 和 解码 中 并 不 使 用 。 下 面 将 会 看 到 , 在 
构造 树 的 过 程 中 需要 它们 的 帮助 。 

图 2-18 显 示 的 是 上 面 给 出 的 A 到 H 编 码 所 对 六 的 Huffman 编 码 树 ， 树 叶 上 的 权重 表明 ， 这 
棵 树 的 设计 所 针对 的 消息 是 ， 字 母 A 具 有 相对 权重 8 ，B 具有 相对 权重 3 ， 其 余 字 母 的 相对 权重 
都 是 1 。 | 

给 定 了 一 棵 Hufftman 树 ， 要 找 出 任 一 符号 的 编码 ， 我 们 只 需 从 树 根 开始 向 下 运动 ， 直 到 到 
达 了 保存 着 这 一 符号 的 树叶 为 止 ， 在 每 次 向 左 行 时 就 给 代码 加 上 一 个 0 ， 右 行 时 加 上 一 个 1 。 
在 确定 向 哪 一 分 支 运动 时 ， 需 要 检查 该 分 支 是 否 包含 着 与 这 一 符号 对 应 的 叶 结 点 ， 或 者 其 集 
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合 中 包含 着 这 个 符号 。 举 例 说 ， 从 图 2-18 中 树 的 根 开始 ， 到 达 D 的 叶 结 点 的 方式 是 走 一 个 右 分 
支 ， 而 后 一 个 左 分 支 ， Mie Ax, 而 后 又 是 右 分 支 ， 因此 其 代码 为 1011。 


{ABCDEFGH} 17 









{BCDEFGH}9 
A8 


{BCD}5 


{EFGH}4 
B3 


图 2-18 一 棵 Huffiman 编码 树 


在 用 Hufftman 树 做 一 个 序列 的 解码 时 ， 我 们 也 从 树 根 开 始 ， 通 过 位 序列 中 的 0 或 1 确定 是 移 
向 左 分 支 还 是 右 分 支 。 每 当 我 们 到 达 一 个 叶 结 点 时 ， 就 生成 出 了 消息 中 的 一 个 符号 。 此 时 就 
重新 从 树 根 开始 去 确定 下 一 个 符号 。 例 如 ， 如 果 给 我 们 的 是 上 面 的 树 和 序列 10001010 。 从 树 
根 开始 ， 我 们 移 向 右 分 支 (因为 串 中 第 一 个 位 是 1)， 而 后 向 左 分 支 (因为 第 二 个 位 是 0)， 而 
后 再 向 左 分 支 (因为 第 三 个 位 也 是 0) 。 这 时 已 经 到 达 B 的 叶 ， 所 以 被 解码 消息 中 的 第 一 个 符号 
是 B .现在 再 次 从 根 开 始 ， 因 为 序列 中 下 一 个 位 是 0 ， 这 就 导致 一 次 向 左 分 支 的 移动 ， 使 我 们 
到 达 A 的 叶 。 然 后 我 们 再 次 从 根 开始 处 理 剩 下 的 串 1010， 经 过 右 左 右 左 移动 后 到 达 了 C 。 这 样 ， 
整个 消息 也 就 是 BAC 。 

生成 Huffman 树 

给 定 了 符号 的 “字母 表 ” 和 它们 的 相对 频 度 ， 我 们 怎么 才能 构造 出 “最 好 的 ”编码 呢 ? 
换 句 话说 ， 哪 样 的 树 能 使 消息 编码 的 位 数 达 到 最 少 ? Hufftman 给 出 了 完成 这 件 事 的 一 个 算法 ， 
并 且 证 明了 ， 对 于 符号 所 出 现 的 相对 频 度 与 构造 树 的 消息 相符 的 消息 而 言 ， 这 样 产 生出 的 纺 
码 确实 是 最 好 的 变 长 编码 。 我 们 并 不 打算 在 这 里 证 明 Huffman 编 码 的 最 优 性 质 ， 但 将 展示 如 何 
去 构造 Huffman 树 '%3。 l 

de eHluffmant}fty AKE LHA MAL, AMEA RHER, EEA RI 
频 度 的 符号 出 现在 离 树 根 最 远 的 地 方 。 这 一 构造 过 程 从 叶 结 点 的 集合 开始 ， 这 种 结 点 中 包含 
各 个 符号 和 它们 的 频 度 ， 这 就 是 开始 构造 编码 的 初始 数据 。 现 在 要 找 出 两 个 具有 最 低 权重 的 
叶 ， 并 归并 它们 ， 产 生出 一 个 以 这 两 个 结 点 为 左右 分 支 的 结 点 。 新 结 点 的 权重 就 是 那 两 个 结 
点 的 权重 之 和 。 现 在 我 们 从 原来 集合 里 删除 前 面 的 两 个 叶 结 点 ， 并 用 这 一 新 结 点 代替 它们 ，。 


108 有 关 Huffman 编 码 的 数学 性 质 的 讨论 见 Hamming 1980 。 
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随后 继续 这 一 过 程 ， 在 其 中 的 每 一 步 都 归并 两 个 具有 最 小 权重 的 结 点 ， 将 它们 从 集合 中 删除 ， 
并 用 一 个 以 这 两 个 结 点 作为 堪布 分 支 的 新 结 点 取而代之 。 当 集合 中 只 剩 下 一 个 结 点 时 ， 这 一 
过 程 终止 ， 而 这 个 结 点 就 是 树 根 。 下 面 显示 的 是 图 2-18 中 的 Hufftman 树 的 生成 过 程 : 


初始 树叶 {C(A 8) (B 3) (C 1) (D 1) (E 1) (F 1) (G 1) (H 1)} 
归并 (C(A 8) (B 3) dC D} 2) (E 1) (F 1) (G 1) (H 1)} 
归并 {(A 8) (B 3) dC D} 2) (dE F} 2) (G 1) (H 1)} 
归并 {(A 8) (B 3) ({C D} 2) ({E F} 2) ({G H} 2)} 
归并 {(A 8) (B 3) {C D} 2) (EF G H} 4)} 

归并 {(A 8) {B C D} 5) (EF GH} 4)} 

归并 {(A 8) (B C DEF GH} 9)} 

最 后 归并 (dA BCDEFGH} 17)} 


这 一 算法 并 不 总 能 描述 一 棵 唯一 的 树 ， 这 是 因为， 每 步 选 择 出 的 最 小 权重 结 点 有 可 能 不 唯一 。 
还 有 ， 在 做 归并 时 ， 两 个 结 点 的 顺序 也 是 任意 的 ， 也 就 是 说 ， 随 便 哪 个 都 可 以 作为 左 分 支 或 
者 右 分 支 。 

Huffman 树 的 表示 

在 下 面 的 练习 中 ， 我 们 将 要 做 出 一 个 使 用 Huffman 树 完成 消息 编码 和 解码 ， 并 能 根据 上 面 
给 出 的 梗概 生成 Huffman 树 的 系统 。 开 始 还 是 讨论 这 种 树 的 表示 。 | 

将 一 棵 树 的 树叶 表示 为 包含 符号 leaf 、 叶 中 符号 和 权重 的 表 : 


(define (make-leaf symbol weight) 
(list ‘leaf symbol weight) ) 


(define (leaf? object) 


(eq? (car object) ’leaf)) 


(define (symbol-leaf x) (cadr x)) 
(define (weight-leaf x) (caddr x)) 


一 棵 一 般 的 树 也 是 一 个 表 ， 其 中 包含 一 个 左 分 支 、 一 个 右 分 支 、 一 个 符号 集合 和 一 个 权重 。 
符号 集合 就 是 符号 的 表 ， 这 里 没有 用 更 复杂 的 集合 表示 。 在 归并 两 个 结 点 做 出 一 棵 树 时 ， 树 
的 权重 也 就 是 这 两 个 结 点 的 权重 之 和 ， 其 符号 集 就 是 两 个 结 点 的 符号 集 的 并 集 。 因 为 这 里 的 
符号 集 用 表 来 表示 ， 通 过 2.2.1 节 的 append 过 程 就 可 以 得 到 它们 的 并 集 : 


(define (make-code-tree left right) 
(list left 
right . 
(append (symbols left) (symbols right)) 
(+ (weight left) (weight right)))) 


如 果 以 这 种 方式 构造 ， 我 们 就 需要 采用 下 面 的 选择 函数 : 
(define (left-branch tree) (car tree)) 
(define (right-branch tree) (cadr tree)) 
(define (symbols tree) 


(if (leaf? tree) 
(list (symbol-leaf tree) ) 
(caddr tree))) 
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(define (weight tree) 
(if (leaf? tree) 
(weight-leaf tree) 
(cadddr tree))) 


在 对 树叶 或 者 一 般 树 调用 过 程 symbols 和 weight 时 ， 它 们 需要 做 的 事情 有 一 点 不 同 。 这 些 
不 过 是 通用 型 过 程 可 以 处 理 多 于 一 种 数据 的 过 程 ) 的 简单 实例 ， 有 关 这 方面 的 情况 ， 在 2.4 
和 2.5 有 将 有 很 多 讨论 。 


解码 过 程 
下 面 的 过 程 实现 解码 算法 ， 它 以 一 个 0/1 的 表 和 一 棵 Huffman 树 为 参数 ， 
(define (decode bits tree) 
(define (decode-1l bits current-branch) 
(if (null? bits) 
*() 
(let ((next-branch 
(choose-branch (car bits) current-branch) ) ) 
(if (leaf? next-pranch) . 
(cons (symbol-leaf next-branch) 
(decode-1 (cdr bits) tree)) 
(decode-1 (cdr bits) next-branch)))))~ 
(decode-1 bits tree)) 
(define (choose-branch bit branch) 
(cond ((= bit 0) (left~-branch branch) ) 
((= bit 1) (right-branch branch) ) 
(else (error "bad bit -- CHOOSE-~BRANCH” bit)))) > 


过 程 decode-1 有 两 个 参数 ， 其 中 之 一 是 包含 二 进 制 位 的 表 ， 另 一 个 是 树 中 的 当前 位 置 。 它 
不 断 在 树 里 “向 下 ”移动 ， 根 据 表 中 下 一 个 位 是 0 或 者 1 选择 树 的 左 分 支 或 者 右 分 支 (这 一 工 
作 由 过 程 choose-branch 完 成 )。 一 旦 到 达 了 叶 结 点 ， 它 就 把 位 于 这 里 的 符号 作为 消 息 中 的 
下 一 个 符号 ， 将 其 cons 到 对 于 消息 里 随后 部 分 的 解码 结果 之 前 。 而 后 这 一 解码 又 从 树 根 重新 
开始 。 请 和 注意 choose-~ branch 里 最 后 一 个 子 多 的 错误 检查 ， 如 果 过 程 遇 到 了 不 是 0/1 的 东西 
时 就 会 报告 错误 。 

带 权重 元 素 的 集合 Oo | | 

在 树 表 示 里 ， 每 个 非 叶 结 点 包含 着 一 个 符号 集合 ， 在 这 里 表示 为 一 个 简单 的 表 。 然 而 ， 
上 面 讨论 的 树 生成 算法 要 求 我 们 也 能 对 树叶 和 树 的 集合 工作 ， 以 便 不 断 地 归并 一 对 一 对 的 最 
小 项 。 央 为 在 这 里 需要 反复 去 确定 集合 里 的 最 小 项 ， 采 用 某 种 有 序 的 集合 表示 会 比较 方便 。 

我 们 准备 将 树叶 和 树 的 集合 表示 为 一 批 元 素 的 表 ， 按 照 权 重 的 上 升 顺序 排列 表 中 的 元 素 。 
下 面 用 于 构造 集合 的 过 程 adjoin-set 与 练习 2.61 中 描述 的 过 程 类 似 ， 但 这 里 比较 的 是 元 素 
的 权重 , 而 且 加 入 集合 的 新 元 素 原来 绝 不 会 出 现在 这 个 集合 里。 


(define'(adijoin-get x set) . 
(cond ((null?. set) (list x)) 
((< (weight x) (weight (car set))) (cons x set)) 
(else (cons (car set) 
(adjoin-set x (cdr set)))))) 





”下面 过 程 以 一 个 符号 -权重 对 偶 的 表 为 参数 ， 例 如 (A 4) B 2) (C 1) (D 1))， 它 构 
造 出 树叶 的 初始 排序 集合 ， 以 便 Hufitman 算 法 能 够 去 做 归并 : 
(define (make-leaf-set pairs) 
(if (null? pairs) 
"() 
* (let ((pair (car pairs))) 
(adjoin-set (make-leaf (car pair) ; symbol 
(cadr pair)) ; frequency 
(make-leaf-set (cdr pairs)))))) 


练习 2.67 ”请 定义 一 棵 编码 树 和 一 个 样 例 消息 : 


(define sample-tree 
(make-code-tree (make-leaf ’A 4) 
{make-code-tree 
(make-leaf ’B 2) 
(make-code-tree (make-leaf °D 1) | 
(make-leaf °C 1))))) 


(define sample-message "(0 1 1 0010 10 ł1 1 1 0)) 


然后 用 过 程 decode 完 成 该 消息 的 编码 ， 给 出 编码 的 结果 。 
练习 2.68 ”过 程 encode 以 一 个 消息 和 一 棵 树 为 参数 ， 产 生出 被 编码 消息 所 对 应 的 二 进 制 
位 的 表 : - 
{define (encode message tree) 
(if {null? message) 
"() 
(append (encode-symbol (car message) tree) 
(encode (cdr message) tree)))) 


其 中 的 encode-symbol 是 需要 你 写 出 的 过 程 ， 它 能 根据 给 定 的 树 产生 出 给 定 符 号 的 二 进 制 
位 表 。 你 所 设计 的 encode-symbol 在 遇 到 未 出 现在 树 中 的 符号 时 应 报告 错误 。 请 用 在 练习 
2.67 中 得 到 的 结果 检查 所 实现 的 过 程 ， 工 作 中 用 同样 一 棵 树 。 看 看 得 到 的 结果 是 不 是 原来 那 
个 消息 。 站 

练习 2.69 ”下 面 过 程 以 一 个 符号 - 频 度 对 偶 表 为 参数 〈 共 中 没有 任何 符号 出 现在 多 于 一 个 

对 偶 中 ) ， 并 根据 Huftman 算 法 生成 出 Huftman 编 码 树 。 


(define (generate-huffman-tree pairs) 
(successive-merge (make- -leaf-set pairs))) 


其 中 的 make-leaf-set 是 前 面 给 出 的 过 程 ， 它 将 对 偶 表 变换 为 叶 的 有 序 集 ，successive-~ 
merge 是 需要 你 写 的 过 程 ， 它 使 用 make-code- tree 反 复归 并 集合 中 具有 最 小 权重 的 元 素 ， 
直至 集合 里 只 剩 下 一 个 元 素 为 止 。 这 个 元 素 就 是 我 们 所 需要 的 Huffman 树 。( 这 一 过 程 稍微 有 
点 技巧 性 ， 但 并 不 很 复杂 。 如 果 你 正在 设计 的 过 程 变 得 很 复杂 ， 那 么 几乎 可 以 肯定 是 在 什么 
地 方 搞 错 了 。 你 应 该 尽 可 能 地 利用 有 序 集合 表示 这 一 事实 。) o 

练习 2.70 ”下面 带 有 相对 频 度 的 8 个 符号 的 字母 表 ， 是 为 了 有 效 编码 20 世 纪 50 年 代 的 摇滚 
歌曲 中 的 词语 而 设计 的 。( 请 注意 , “字母 表 ”中 的 “符号 ”不 必 是 单个 字母 。) 

A 2 NA 16 

BOOM 1 SHA 3 





上 
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GET 2 YIP 9 
JOB 2 WAH 1 


请 用 (练习 2.69 的 ) generate-huffman-tree 过 程 生 成 对 应 的 Huffman 树 ， 用 (练习 2.68 
的 ) encode 过 程 编码 下 面 的 消息 : 

Get a job 

Sha na na na na na na na Da 

Get a job 

Sha na na na na na na na na 

Wah yip yip yip yip yip yip yip yip yip 

Sha boom | 
这 一 编码 需要 多 少 个 二 进 制 位 ? 如 果 对 这 8 个 符号 的 字母 表 采 用 定 长 编码 ， 完 成 这 个 歌曲 的 编 
码 最 少 需要 多 少 个 二 进 制 位 ? | 3 

练习 2.71 ”假定 我 们 有 一 棵 "个 符号 的 字母 表 的 Huftman 树 ， 其 中 各 符号 的 相对 频 度 分 别 
是 1，2，,，4，…，2"-!。 请 对 n =5 和 n=10 勾 勒 出 有 关 的 树 的 样子 。 对 于 这 样 的 树 (对 于 一 般 
的 )， 编 码 出 现 最 频繁 的 符号 用 多 少 个 二 进 制 位 ? 最 不 频繁 的 符号 呢 ? | 

练习 2.72 ”考虑 你 在 练习 2.68 中 设计 的 编码 过 程 。 对 于 一 个 符号 的 编码 ， 计 算 步 数 的 增长 
速率 是 什么 ?请 注意 ， 这 时 需要 把 在 每 个 结 点 中 检查 符号 表 所 需 的 步 数 包括 在 内 。 一 般 性 地 
回答 这 一 问题 是 非常 困难 的 。 现 在 考虑 一 类 特殊 情况 ， 其 中 的 n 个 符号 的 相对 频 度 如 练习 2.71 
所 描述 的 。 请 给 出 编码 最 频繁 的 符号 所 需 的 步 数 和 最 不 频繁 的 符号 所 需 的 步 数 的 增长 速度 
(作为 4 的 函数 )。 | 


2.4 抽象 数据 的 多 重 表示 


我 们 已 经 介绍 过 数据 抽象 ， 这 是 一 种 构造 系统 的 方法 学 ， 采 用 这 种 方法 ， 将 使 一 个 程序 中 
的 大 部 分 描述 能 与 这 一 程序 所 操作 的 数据 对 象 的 具体 表示 的 选择 无 关 。 举 例 来 说 ， 在 2.1.1 节 
里 ,我 们 看 到 如 何 将 一 个 使 用 有 理 数 的 程序 的 设计 与 有 理 数 的 实现 工作 相互 分 离 ， 具 体 实现 
中 采用 的 是 计算 机 语言 所 提供 的 构造 复合 数据 的 基本 机 制 。 这 里 的 关键 性 思想 就 是 构筑 起 一 
道 抽象 屏障 一 对 于 上 面 情况 ， 也 就 是 有 理 数 的 选择 函数 和 构造 函数 (make-rat, numer, 
denom) 一 一 它 能 将 有 理 数 的 使 用 方式 与 其 借助 于 表 结 构 的 具体 表示 形式 隔离 开 。 与 此 类 似 的 
抽象 屏障 ， 也 把 执行 有 理 数 算术 的 过 程 (add-rat, sub-rat, mul-rat 和 div-rat) 与 
使 用 有 理 数 的 “高 层 ” 过 程 隔离 开 。 这 样 做 出 的 程序 所 具有 的 结构 如 图 2-1 所 示 。 

数据 抽象 屏障 是 控制 复杂 性 的 强 有 力 工 具 。 通 过 对 数据 对 象 基础 表示 的 屏 项 ， 我 们 就 可 
以 将 设计 一 个 大 程序 的 任务 ， 分 割 为 一 组 可 以 分 别处 理 的 较 小 任务 。 但 是 ， 这 种 类 型 的 数据 
抽象 还 不 够 强大 有 力 ， 因 为 在 这 里 说 数据 对 象 的 “基础 表示 ”并 不 一 定 总 有 意义 。 

从 一 个 角度 看 ， 对 于 一 个 数据 对 象 也 可 能 存在 多 种 有 用 的 表示 方式 ， 而 且 我 们 也 可 能 希 
望 所 设计 的 系统 能 处 理 多 种 表示 形式 。 举 一 个 简单 的 例子 ， 复 数 就 可 以 表示 为 两 种 几乎 等 价 
的 形式 : 直角 坐标 形式 (REAM) 和 极 坐 标 形式 〈 模 和 幅 角 )。 有 时 采用 直角 坐标 形式 更 
合适 ， 有 时 极 坐 标 形式 更 方便 。 的 确 ， 我 们 完全 可 能 设想 一 个 系统 ， 其 中 的 复数 同时 采用 了 
两 种 表示 形式 ， 而 其 中 的 过 程 可 以 对 具有 任意 表示 形式 的 复数 工作 。 
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更 重要 的 是 ， 一 个 系统 的 程序 设计 常常 是 由 许多 人 通过 一 个 相当 长 时 期 的 工作 完成 的 ， 
系统 的 需求 也 在 随 着 时 间 而 不 断 变化 。 在 这 样 一 种 环境 里 ， 要 求 每 个 人 都 在 数据 表示 的 选择 
上 达成 一 臻 是 根本 就 不 可 能 的 事情 。 因 此 ， 除 了 需要 将 表示 与 使 用 相隔 离 的 数据 抽象 屏障 之 
外 ， 我 们 还 需要 有 抽象 屏障 去 隔离 互 不 相同 的 设计 选择 ， 以 便 人 允许 不 同 的 设计 选择 在 同一 个 
程序 里 共存 。 进 一 步 说 ， 由 于 大 型 程序 常常 是 通过 组 合 起 一些 现存 模块 构造 起 来 的 ， 而 这 些 
模板 又 是 独立 设计 的 ， 我 们 也 需要 一 些 方法 ， 使 程序 员 可 能 逐步 地 将 许多 模块 结合 成 一 个 大 
型 系统 ， 而 不 必 去 重新 设计 或 者 重新 实现 这 些 模块 。 

在 这 一 节 里 ， 我 们 将 学 习 如 何 去 处 理 数据 ， 使 它们 可 能 在 一 个 程序 的 不 同 部 分 中 采用 
不 同 的 表示 方式 。 这 就 需要 我 们 去 构造 通用 型 过 程 一 -也 就 是 那 种 可 以 在 不 止 一 种 数据 表 
示 上 操作 的 过 程 。 这 里 构造 通用 型 过 程 所 采用 的 主要 技术 ， 是 让 它们 在 带 有 类 型 标志 的 数 
据 对 象 上 工作 。 也 就 是 说 ， 让 这 些 数据 对 象 包含 着 它们 应 该 如 何 处 理 的 明确 信息 。 我 们 还 
要 讨论 数据 导向 的 程序 设计 ， 这 是 一 种 用 于 构造 采用 了 通用 型 操作 的 系统 有 力 而 且 方 便 的 
技术 。 

我 们 将 从 简单 的 复数 实例 开始 ， 看 看 如 何 采用 类 型 标志 和 数据 导向 的 风格 ， 为 复数 分 别 
设计 出 直角 坐标 表示 和 极 坐 标 表 示 ， 而 又 维持 一 种 抽象 的 “复数 ”数据 对 象 的 概念 。 做 到 这 
一 点 的 方式 就 是 定义 基于 通用 型 选择 函数 定义 复数 的 算术 运算 (add-complex, sub- 
complex, mul-complex 和 div-complex), 使 这 些 选 择 函 数 能 访问 一 个 复数 的 各 个 部 分 ， 
无 论 复 数 采用 的 是 什么 表示 方式 。 作 为 结果 的 复数 系统 如 图 2-19 所 示 ， 共 中 包含 两 种 不 同类 
型 的 抽象 屏障 “水平 ”抽象 屏障 扮演 的 角色 与 图 2-1 中 的 相同 ， 它 们 将 “高 层 ” 操 作 与 “ 低 
E” SRRA., 此 外 ， 还 存在 着 一 道 “垂直 ”屏障 ， 它 使 我 们 能 够 隔离 不 同 的 设计 ， 并 且 
还 能 够 安装 其 他 的 表示 方式 。 


使 用 复数 的 程序 
add-complex sub-complex mul-complex div-complex 
复数 算术 包 


REER RIR 





直角 坐标 表示 


表 结 构 和 基本 机 器 算术 
图 2-19 复数 系统 中 的 数据 抽象 屏障 
在 2.5 节 里 ， 我 们 将 说 明 如 何 利用 类 型 标志 和 数据 导向 的 风格 去 开发 一 个 通用 型 算术 包 ， 


其 中 提供 的 过 程 (add, mul) 可 以 用 于 操作 任何 种 类 的 数 ， 在 需要 另 一 类 新 的 数 时 
也 很 容易 进行 扩充 。 在 2.5.3 节 里 ， 我 们 还 要 展示 如 何在 执行 符号 代数 的 系统 里 使 用 通用 型 算 


术 功 能 。 
2.4.1 复数 的 表示 


这 里 要 开发 一 个 完成 复数 算术 运算 的 系统 ， 作 为 使 用 通用 型 操作 的 程序 的 一 个 简单 的 ， 
但 不 那么 实际 的 例子 。 开 始 时 ， 我 们 要 讨论 将 复数 表示 为 有 序 对 的 两 种 可 能 表示 方式 : 直角 
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坐标 形式 (KEMER) 以 及 极 坐 标 形式 〈 模 和 幅 角 ) '”。2.4.2 节 将 展示 如 何 通过 类 型 标志 
和 通用 型 操作 ， 使 这 两 种 表示 共存 于 同一 个 系统 中 。 

与 有 理 数 一 样 ， 复 数 也 可 以 很 自然 地 用 有 序 对 表示 。 我 们 可 以 将 复数 集合 设想 为 一 个 带 
有 了 两 个 坐标 轴 〈“ 实 ” 轴 和 “ 虚 ” 轴 ) 的 两 维 空间 ( 见 图 2-20) 。 按 照 这 一 观点 ， 复 数 z =x +iy 
( 共 中 这 = 一 1) 可 看 作 这 个 平面 上 的 一 个 点 ， 其 中 的 实 坐 标 是 xz 而 虚 坐 标 为 y? 。 在 这 种 表示 下 ， 
复数 的 加 法 就 可 以 归结 为 两 个 坐标 分 别 相 加 


实 部 (z1 +22) = 实 部 (z1) + 实 部 (22) 
虚 部 (2) +22) = HERD (z1) + HERB (22) 


虚 坐 标 





图 2-20 将 复数 看 作 平 面 上 的 后 


在 需要 乘 两 个 复数 时 ， 更 自然 的 考虑 是 采用 复数 的 极 坐 标 形式 ， 此 时 复数 用 一 个 模 和 一 
个 幅 角 表示 (图 2-20 中 的 r 和 A )。 两 个 复数 的 乘积 也 是 一 个 向 量 ， 得 到 它 的 方式 是 模 相 乘 ， 幅 
角 相 加 。 

F (z1 z2) = BE (21) - 模 (22) 
: 幅 角 (21 + 22) = 幅 角 (21) + 幅 角 (22) 

Wh, 复数 有 两 种 不 同 表示 方式 ,它们 分 别 适合 不 同 的 运算 。 当 然 ， 从 编写 使 用 复数 的 
程序 的 开发 人 员 角 度 看 ,数据 抽象 原理 的 建议 是 所 有 复数 操作 都 应 该 可 以 使 用 ， 无 论 计算 机 
所 用 的 具体 表示 形式 是 什么 。 例 如 ， 我 们 也 常常 需要 取得 一 个 复数 的 模 ， 即 使 它 原本 采用 的 
是 复数 的 直角 坐标 表示 。 同 样 ， 我 们 也 常常 需要 得 到 复数 的 实 部 ， 即 使 它 实际 采用 的 古 极 坐 
PICK 。 

在 设计 一 个 这 样 的 系统 时 ， 我 们 将 沿用 在 2. 1. 1 区 设计 有 理 数 包 时 所 采用 的 同样 的 数据 抽 
象 策略 ， 假 定 所 有 复数 运算 的 实现 都 基于 如 下 四 个 选择 函数 real- -part, imag-part, 
magnitudefpangle, 还 要 假定 有 两 个 构造 复数 的 过 程 : make- from-Treal=-1Imag 返 回 一 
个 采用 实 部 和 虚 部 描述 的 复数 ，make-from-mag- -ang 返 回 一 个 采用 模 和 幅 角 描述 术 的 复数 。 
这 些 过 程 的 性 质 是 ， 对 于 任何 复数 2， 下 面 两 者 : 


(make-from-real-imag (real-part z) (imag-part z)) 


09 在 实际 计算 系统 里 ， 大 部 分 情况 下 人 们 都 倾向 于 采用 直角 坐标 形式 而 不 是 极 坐 标 形式 ， 这 样 做 的 原因 是 在 
直角 坐标 形式 和 极 坐 标 形式 之 间 转 换 的 伟人 误差 。 这 也 是 为 什么 说 这 个 复数 实例 不 实际 的 原因 。 但 无 论 如 
何 ， 这 一 实例 清晰 地 阅 释 了 采用 通用 型 操作 时 的 系统 设计 ， BENT AR TM TRG ER hey RART 
{RAF HERS. 
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和 


(make~from-mag-ang (magnitude z) (angle 2)) 


产生 出 的 复数 都 等 于 z 。 

利用 这 些 构造 函数 和 选择 函数 ,我们 就 可 以 实现 复数 算术 了 ， 其 中 使 用 由 这 些 构 造 函 数 
和 选择 函数 所 刻画 的 “抽象 数据 ”"”， 就 像 前 面 在 2.1.1 节 中 针对 有 理 数 所 做 的 那样 。 正 如 上 面 公 
式 中 所 描述 的 ， 复 数 的 加 法 和 减法 采用 实 部 和 虚 部 的 方式 描述 ， 而 乘法 和 除法 采用 模 和 幅 角 
的 方式 描述 : | 

(define (add-complex zl z2) 


(make-from-real-imag (+ (real-part z1) (real-part z2)) 
(+ (imag-part zl) (imag-part 22)))) 


(define (sub-complex z1 22) 
(make-from-real-imag (- (real-part zl) (real-part 22)) 
(- (imag-part zi) (imag-part 22)))) 


(define (mul-complex 21 22) 
(make-from-mag-ang (* (magnitude zl) (magnitude 22) ) 
(+ (angle 21) (angle 22)))) 


(define (div-complex 21 z2) 
(make-from-mag-ang (/ (magnitude zl) (magnitude 22)) 
(~ (angle zl) (angle z2)))) 


为 了 完成 这 一 复数 包 ， 我 们 必须 选择 一 种 表示 方式 ， 而 且 必 须 基于 基本 的 数值 和 基本 表 
结构 ， 基 于 它们 实现 各 个 构造 国 数 和 选择 函数 。 现 在 有 两 种 显 见 的 方式 完成 这 一 工作 : 可 以 
将 复数 按 “ 直 角 坐 标 形式 ”表示 为 一 个 有 序 对 〈( 实 部 ， 虚 部 )， 或 者 按照 “ 极 坐标 形式 ”表示 
为 有 序 对 ( 模 ， 幅 角 )。 究 竟 应 该 选择 哪 一 种 方式 呢 ? 

为 了 将 不 同 选择 的 情况 看 得 更 清楚 些 ， 现 在 让 我 们 假定 有 两 个 程序 员 ，Ben Bitdiddle 和 
Alyssa P. Hacker， 他 们 正在 分 别 独 立地 设计 这 一 复数 系统 的 具体 表示 形式 。Ben 选 择 了 复数 的 
直角 坐标 表示 形式 ， 采 用 这 一 选择 ， 选 取 复 数 的 实 部 与 虚 部 是 直截了当 的 ， 因 为 这 种 复数 就 
是 由 实 部 和 虚 部 构成 的 。 而 为 了 得 到 模 和 幅 角 ， 或 者 需要 在 给 定 模 和 幅 角 的 情况 下 构造 复数 
时 ， 他 利用 了 下 面 的 三 角 关 系 : 

x=rcosA r= x +y 
y=rsinA A =arctan (y, x) 
这 些 公式 建立 起 实 部 和 虚 部 对 偶 (x , y) SRR ANE AHI r, A) 之 间 的 联系 ”。Ben 在 这 种 表 
AR PF A TOP ae ILS ee FE ee AF EA BL 
(define (real-part 2) (car 2)) 
(define (imag-part z} (cdr z)) 


(define (magnitude zZ) 
(sqrt (+ (Square (real-part z)) (Square (imag-part 2))))) > 


(define (angle 2) 


NO 这 里 所 用 的 反正 切 范 数 由 Scheme 的 atan 过 程 计算 ， 其 定义 取 两 个 参数 ?和 x， 退 回 正切 是 yx 的 角度 。 参 数 的 
符号 决定 角度 所 在 的 象限 。 
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(atan (imag-part z) (real-part 2z))) 
(define (make-from-real-imag x y) (cons x y)) 


(define (make-from-mag-ang r a) 
(cons (* r (cos a)) (* r (sin a)))) 


而 在 另 一 边 ，Alyssa 却 选择 了 复数 的 极 坐标 形式 。 对 于 她 而 言 ， 选 取 模 和 幅 角 的 操作 直 截 
Tă, (BAB = KAA SISA ER. Alyssa izn: 


(define (real-part zZz) 
(* (magnitude z) (cos (angle z)))}) 


(define (imag-part zZ) 

(* (magnitude z) (sin (angle z)))) 
(define (magnitude z) (car 2z)) 
(define (angle z) (cdr z)) 

(define (make-from-real-imag x y) 


(cons (sqrt (+ (square x) (square y))) 
(atan y x))) 


(define (make-from-mag-ang r a) (cons r a)) | 
数据 抽象 的 规则 保证 了 add-complex、sub-complex、mul-complex 和 div- 
complex 的 同一 套 实 现 对 于 Ben 的 表示 或 者 Alyssa 的 表示 都 能 正常 工作 。 | 


2.4.2 带 标 志 数 据 


认识 数据 抽象 的 一 种 方式 是 将 其 看 作 “ 最 小 允诺 原则 ”的 一 个 应 用 。 在 2.4.1 节 中 实现 复 
数 系统 时 ， 我 们 可 以 采用 Ben 的 直角 坐标 表示 形式 或 者 Alyssa 的 极 坐 标 表示 形式 ， 由 选择 函数 
和 构造 函数 形成 的 抽象 屏障 ， 使 我 们 可 以 把 为 自己 所 用 数据 对 象 选择 具体 表示 形式 的 事情 尽 
量 向 后 推 ， 而 且 还 能 保持 系统 设计 的 最 大 灵活 性 。 

最 小 允诺 原则 还 可 以 推进 到 更 极端 的 情况 。 如 果 我 们 需要 的 话 ， 那 么 还 可 以 在 设计 完成 选 
择 函 数 和 构造 函数 ， 并 决定 了 同时 使 用 Ben 的 表示 和 Alyssa 的 表示 之 后 ， 仍 然 维持 所 用 表示 方 
趟 的 不 确定 性 。 如 果 要 在 同一 个 系统 里 包含 这 两 种 不 同 表示 形式 ， 那 么 就 需要 有 一 种 方式 ， 将 
极 坐标 形式 的 数据 与 直角 坐标 形式 的 数据 区 分 开 。 否 则 的 话 ， 如 果 现 在 要 找 出 对 偶 (3, 4) 的 
magnitude， 我 们 将 无 法 知道 答案 是 5 (将 数据 解释 为 直角 坐标 表示 形式 ) 还 是 3 (将 数据 解 
释 为 极 坐标 表示 )。 完 成 这 种 区 分 的 一 种 方式 ， 就 是 在 每 个 复数 里 包含 一 个 类 型 标志 部 分 一 一 
用 符号 rectangular 或 者 polar 。 此 后 如 果 我 们 需要 操作 一 个 复数 ， 贷 助 于 这 个 标志 就 可 以 
确定 应 该 使 用 的 选择 函数 了 。 

为 了 能 对 带 标志 数据 进行 各 种 操作 ， 我 们 将 假定 有 过 程 type- _tag 和 coentenks ， 它 们 
分 别 从 数据 对 象 中 提取 出 类 型 标志 和 实际 内 容 (对 于 复数 的 情况 ， 其 中 的 极 坐标 或 者 直角 华 
标 ) 。 还 要 假定 有 一 个 过 程 attach-tag ， 它 以 一 个 标志 和 实际 内 容 为 参数 ， 生成 出 一 个 带 标 
志 的 数据 对 象 。 实 现 这 些 的 直接 方式 就 是 采用 普通 的 表 结 构 : 


(define (attach-tag type-tag contents) 
(cons type-tag contents) ) 


(define (type-tag datum) 
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(if (pair? datum) 
(car datum) 
(error "Bad tagged datum -- TYPE-TAG" datum))) 


(define (contents datum) 
(if (pair? datum) 
(cdr datum) 
(error "Bad tagged datum -- CONTENTS" datum) ) ) 


利用 这 些 过 程 ， 我 们 就 可 以 定义 出 谓词 rectangular? 和 polar?， 它 们 分 别 辨识 直角 坐标 
的 和 极 坐 标的 复数 : 
(define (rectangular? z) 


(eq? (type-tag z) rectangular) ) 


(define (polar? z) 
(eq? (type-tag z) ‘polar)) 


有 了 类 型 标志 ，Ben 和 Alyssa 现 在 就 可 以 修改 自己 的 代码 ， 使 他 们 的 两 种 不 同 表示 能 
erie 当 Ben 构 造 一 个 复数 时 ， 总 为 它 加 上 标志 ， 说 明 采 用 的 是 直角 坐 
标 ， 而 当 Alyssa 构 造 复 数 时 ， 总 将 其 标志 设置 为 极 坐 标 。 此 外 ，Ben 和 Alyssa 还 必须 保证 他 们 
所 用 的 过 程 名 并 不 冲突 。 保 证 这 一 点 的 一 种 方式 是 ，Ben 总 为 在 他 的 表示 上 操作 的 过 程 名 字 加 
上 后 组 rectangular ， 而 Alyssa 为 她 的 过 程 名 加 上 后 级 polar 。 这 里 是 Ben 根 据 2.4.1 节 修改 
后 的 直角 坐标 表示 : 


(define (real~part-rectangular z) (car 2)) 
(define (imag-part-rectangular z} (cdr z)) 


(define (magnitude-rectangular z) 
(sqrt (+ (Square (real-part-rectangular z)) 
(square (imag-part-rectangular z))))) 


(define (angle-rectangular 2) 
(atan (imag-part-rectangular z) 
(real-part-rectangular z})) 


(define (make-from-real-imag-rectangular x y) 
(attach-tag rectangular (cons X y))) 


(define (make-from-mag-ang-rectangular r a) 
(attach-tag ‘rectangular 
(cons (* (cos a)) (* r (sin a))))) 


下 面 是 修改 后 的 极 举 标 表示 ， 


(define (real-part-polar 2) 
(* ,(magnitude-polar z) (cos (angle-polar z)))) 


(define (imag-part-polar z) 
(* (magnitude-polar z) (sin (angle-polar z)))) 


(define (magnitude-polar z) (car 2z)) 
(define (angle-polar z} {cdr z)) 


(define (make-from-real-imag-polar x y) 
(attach-tag ‘polar 





(cons (sqrt (+ (Square x) (square y))) 
(atan y X)))) 


(define (make-from-mag~-ang-polar r a) 
(attach-tag ’polar (cons r a))) 


每 个 通用 型 选择 函数 都 需要 实现 为 这 样 的 过 程 ， 它 首先 检查 参数 的 标志 ， 而 后 去 调用 处 
理 该 类 数据 的 适当 过 程 。 例 如 ， 为 了 得 到 一 个 复数 的 实 部 ，zeal-PaIt 需 要 通过 检查 ， 设 法 
确定 是 去 使 用 Ben 的 real-part-rectangular ， 还 是 所 用 Alyssa 的 real-Part-pPolar。 
在 这 两 种 情况 下 ， 我 们 都 用 contents 提 取出 原始 的 无 标志 数据 ， 并 将 它 送 给 所 需 的 直角 坐 
标 过 程 或 者 极 坐标 过 程 | 


(define (real-part z) 
(cond ((rectangular? z) 
(real-part-rectangular (contents z))) 
((polar? z) 
(real-part-polar (contents z))) 
(else (error "Unknown type -- REAL-PART" z)))) 


(define (imag-part z) 
(cond ((rectangular? 2) 
(imag-part-rectangular (contents 2z))) 


( (polar? z) 
(imag-part-polar (contents z))) 


(else (error "Unknown type -~ IMAG-PART" 2z)))) 


(define (magnitude 2) 
(cond ((rectangular? 2) 
(magnitude-rectangular (contents 2))) 


( (polar? z) 
(magnitude-polar (contents z))) 
(else (error "Unknown type -- MAGNITUDE" 2z)))) 


(define (angle 2z) 
(cond ((rectangular? zZ) 
(angle-rectangular (contents Z) ) ) 
((polar? z) 
(angle-polar (contents 2z))) 
(else (error "Unknown type -- ANGLE" 2)))) 


在 实现 复数 算术 运算 时 ， 我 们 仍然 可 以 采用 取 自 2.4.1 节 的 同样 过 程 add-complex.、 
sub-complex、mul-complex 和 div-complex， 因 为 它们 所 调用 的 选择 函数 现在 都 是 通 
用 型 的 ， 对 任何 表示 都 能 工作 。 例 如 ， 过 程 add-comP1Lex 仍 然 是 : | 


(define (add-complex zi 22) 
(make-from-real-imag (+ (real-part 21) (real-part 22)) 
(+ (imag-part zl) (imag-part 22)))) 


最 后 ， 我 们 还 必须 选择 是 采用 Ben 的 表示 还 是 Alyssa 的 表示 构造 复数 。 一 种 合理 选择 十 ， 
在 手头 有 实 部 和 虚 部 时 采用 直角 坐标 表示 ， PRAU ME ATR R URS ee 


(define (make-from-real-imag x y) 
(make-from-real-imag-rectangular x y)) 


ae 
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(define (make-from-mag-ang r a) 
(make-from-mag-ang-polar r a)) 


这 样 得 到 的 复数 系统 所 具有 的 结构 如 图 2-21 所 示 。 这 一 系统 已 经 分 解 为 三 个 相对 独立 的 
部 分 : 复数 算术 运算 、Alyssa 的 极 坐 标 实 现 和 Ben 的 直角 坐标 实现 。 极 坐标 或 直角 坐标 的 实现 
可 以 是 Ben 和 Alyssa 独 立 工作 写 出 的 东西 ， 这 两 部 分 又 被 第 三 个 程序 员 作为 基础 表示 ， 用 于 在 
PSS TE RSE ER AZ ALA 全 SES 


使 用 复数 的 程序 


add-complex sub-complex mul-complex div-complex 


复数 算术 包 


imag-part 





real-part 












magnitude angle 





直角 坐标 表示 


表 结 构 和 基本 机 器 算术 


图 2-21 通用 型 复数 算术 系统 的 结构 


因为 每 个 数据 对 象 都 以 其 类 型 作为 标志 ， 选 择 函 数 就 能 够 在 不 同 的 数据 上 以 一 种 通用 的 
方式 操作 。 也 就 是 说 ， 每 个 选择 函数 的 定义 行为 依赖 于 它 操 作 其 上 的 特定 的 数据 类 型 。 请 注 
音 这 里 建立 不 同 表 示 之 间 的 界面 的 一 般 性 机 制 ， 在 一 种 给 定 的 表示 实现 中 《例如 Alyssa 的 极 
坐标 包 ) ， ee eit wishin ( 模 , 幅 角 ) 。 当 通用 型 选择 函数 对 一 个 Polar 类 型 的 复数 
进行 操作 时 ， 它 会 剥 去 标志 并 将 相应 内 容 传递 给 Alyssa 的 代码 。 与 此 相对 应 ， HAlyssa zta i 
REEL 她 也 为 其 加 上 类 型 标志 ， 使 这 个 数据 对 象 可 以 为 高 层 过 程 所 识 

,在 将 数据 对 象 从 一 个 层次 传 到 另 一 层次 的 过 程 中 ， 这 种 剥 去 和 加 上 标志 的 规 缉 方式 可 以 
tb 种 重要 的 组 织 策略 ， 正 如 我 们 将 在 2.5 节 中 看 到 的 那样 。 


2.4.3 ”数据 导向 的 程序 设计 和 可 加 性 


检查 一 个 数据 项 的 类 型 ， 并 据 此 去 调用 某 个 适当 过 程 称 为 基于 类 型 的 分 派 。 在 系统 设计 中 ， 
这 是 一 种 获得 模块 性 的 强 有 力 策略 。 而 在 为 一 方面 ， 像 2.4.2 节 那样 实现 的 分 派 有 两 个 显著 的 能 
点 。 第 一 个 弱点 是 ， 其 中 的 这 些 通用 型 界面 过 程 (real-part. imag-part, magnitude 
fnangle) 必须 知道 所 有 的 不 同 表 示 。 举 例 来 说 ， 假定 现在 希望 能 为 前 面 的 复数 系统 增加 另 一 
种 表示 ， 我 们 就 必须 将 这 一 新 表示 方式 标识 为 一 种 新 类 型 ， 而 且 要 在 每 个 通用 界面 过 程 里 增加 
一 个 子 句 ， 检 查 这 一 新 类 型 ， 并 对 这 种 表示 形式 使 用 适当 的 选择 销 数 。 

六 一 技术 还 有 另 一 个 弱点 。 即 使 这 些 独 立 的 表示 形式 可 以 分 别 设计 ， 我 们 也 必须 保证 在 
整个 系统 里 不 存在 两 个 名 字 相 同 的 过 程 。 正 因为 这 一 原因 ， Ben 和 Alyssa 必 须 去 修改 原来 在 
2.4.1 节 中 给 出 的 那些 过 程 的 名 字 。 

位 于 这 两 个 弱点 之 下 的 基础 问题 是 ， 上 面 这 种 实现 通用 型 界面 的 技术 不 具有 可 加 性 。 在 
每 次 增加 一 种 新 表示 形式 时 ， 实现 通用 选择 函数 的 人 都 必须 修改 他 们 的 过 程 ， 而 那些 做 独 苹 
表示 的 界面 的 人 也 必须 修改 其 代码 ， 以 避免 名 字 冲 突 问题 。 在 做 这 些 事情 时 ， 所 有 修改 都 必 
须 直接 对 代码 去 做 ， 而且 必须 准确 无 误 。 这 当然 会 带 来 极 大 的 不 便 ， 而 且 还 很 容易 引进 错误 。 
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对 于 上 面 这 样 的 复数 系统 ， 这 种 修改 还 不 是 什么 大 问题 。 但 如 果 假 定 现在 需要 处 理 的 不 是 复 
数 的 两 种 表示 形式 ， 而 是 几 百 种 不 同 表示 形式 ， 假 定 在 抽象 数据 界面 上 有 许 许多 多 需要 维护 
的 通用 型 选择 函数， 再 假定 (事实 上 ) 没有 一 个 程序 员 了 解 所 有 的 界面 过 程 和 表示 形式 ， 情 
况 又 会 怎样 呢 ?” 在 例如 大 规模 的 数据 库 管理 系统 中 ， 这 一 问题 是 现实 存在 ， 且 必须 去 面 对 的 。 

现在 我 们 需要 的 是 一 种 能 够 将 系统 设计 进一步 模块 化 的 方法 。 一 种 称 为 数据 导向 的 程序 
设计 的 编程 技术 提供 了 这 种 能 力 。 为 了 理解 数据 导向 的 程序 设计 如 何 工作 ， 我 们 首先 应 该 看 
到 ， 在 需要 处 理 的 是 针对 不 同类 型 的 一 集 公 共通 用 型 操作 时 ， 事 实 上 , 我 们 正 是 在 处 理 一 个 
二 维 表 格 ， 其 中 的 一 个 维 上 包含 着 所 有 的 可 能 操作 ， 另 一 个 维 就 是 所 有 的 可 能 类 型 HR 
”的 项 目 是 一 些 过 程 ， 它 们 针对 作为 参数 的 每 个 类 型 实现 每 一 个 操作 。 在 前 一 节 中 开发 的 复数 
系统 里 ， 操 作 名 字 、 数 据 类 型 和 实际 过 程 之 间 的 对 应 关系 散布 在 各 个 通用 界面 过 程 的 各 个 条 
件 子 句 里 ， 我 们 也 可 以 将 同样 的 信息 组 织 为 一 个 表格 ， 如 图 2-22 所 示 。 


类 型 


Rectangular 









real-part | real-part-polar real-part-rectangular 
家 imag-part | imag~part-polar imag-part-rectangular 
magnitude magnitude-rectangular 


magnitude-polar 


angle angle-polar angle-rectangular 


图 2-22 复数 系统 的 操作 表 


数据 导向 的 程序 设计 就 是 一 种 使 程序 能 直接 利用 这 种 表格 工作 的 程序 设计 技术 。 在 我 们 
前 面 的 实现 里 ， 是 采用 一 集 过 程 作 为 复数 算术 与 两 个 表示 包 之 闻 的 界面 , -并 让 这 些 过 程 中 的 
一 个 去 做 基于 类 型 的 显 式 分 派 。 下 面 我 们 要 把 这 一 界面 实现 为 一 个 过 程 ， 由 它 用 操作 名 和 
参数 类 型 的 组 合 到 表格 中 查找 ， 以 便 找 出 应 该 调用 的 适当 过 程 ， 并 将 这 一 过 程 应 用 于 参数 的 
AA 。 mone 再 把 一 种 新 的 表示 包 加 入 系统 里 ， 我 们 就 不 需要 修改 任何 现存 的 过 
程 ， 而 只 要 在 这 个 表格 里 添加 一 些 新 的 项 目 即 可 。 | 
为 了 实现 这 计划 ,现在 假定 有 两 个 过 程 Put 和 get， 用 于 处 理 这 种 操作 -类型 表格 ， 


e (put <op> <type> <item>) 


将 项 <item> 加 入 表格 中 ， 以 <op> 和 Ktype> 作 为 这 个 表 项 的 EIl. 


* (get <op> <type>) 


在 表 中 查找 与 <op> 和 <type> 对 应 的 项 ， 如 果 找 到 就 返回 找到 的 项 ， 否则 就 返回 假 。 

从 现在 起 ， 我 们 将 假定 put 和 get 已 经 包含 在 所 用 的 语言 里 。 在 第 3 章 里 (3.3.3 节 ， 练 习 
3.24) 可 以 看 到 如 何 实现 这 些 函 数 ， 以 及 其 他 操作 表格 的 过 程 。 

下 面 我 们 要 说 明 ， 这 种 数据 导向 的 程序 设计 可 以 如 何 用 于 复数 系 统 。 在 开发 了 直角 坐标 
表示 时 ，Ben 完 全 按 他 原来 所 做 的 那样 实现 了 自己 的 代码 ， 他 定义 了 一 组 过 程 或 者 说 一 个 程序 
色 ， 并 通过 向 表格 中 加 入 一 些 项 的 方式 ， 告 诉 系 统 如 何 去 操 作 直 角 坐 标 形式 表示 的 数 ， 这 样 
就 建立 起 了 与 系统 其 他 部 分 的 界面 。 完 成 此 事 的 方式 就 是 调用 下 面 的 过 程 : 


(define (install- _rectangular-package) 


:; internal procedures 





(define (real-part z) (car 2) ) 
(define (imag-part z) (cdr 2z)) 
(define (make-from-real-imag x y) (cons x y)) 
(define (magnitude Z) 

(sqrt (+ (Square (real-part z)) 

(Square (imag-part z))))) 

(define (angle z) 

(atan (imag-part z) (real-part 2z))) 
(define (make-from-mag-ang r a) 

(cons (* r (cos a)) (* r (sin a)))) 


;; interface to the rest of the system 
(define (tag x) (attach-tag ‘rectangular x)) 
(put ’real-part ’(rectangular) real~part) 
(put ’imag-part ’(rectangular) imag-part) 
(put magnitude ’(rectangular) magnitude) 
(put "angle ’(rectangular) angle) 
(put ’make-from-real-imag ‘rectangular 
(lambda (x y) (tag (make-from-real-imag x y)))) 
(put ’make-from-mag-ang ‘rectangular 
(Lambda {r a) (tag (make-from-mag-ang r a)})) 
*done) | 
请 注意 ， 这 里 的 所 有 内 部 过 程 ， 与 2.4.1 节 里 Ben 在 自己 独立 工作 中 写 出 的 过 程 完全 一 样 ， 
在 将 它们 与 系统 的 其 他 部 分 建立 联系 时 ， 也 不 需要 做 任何 修改 。 进 一 步 说 ， 由 于 这 些 过 程 定 
义 都 是 上 述 安装 过 程 内 部 的 东西 ，Ben 完 全 不 必 担 心 它们 的 名 字 会 与 直角 坐标 程序 包 外 面 的 其 
他 过 程 的 名 字 相 互 冲 突 。 为 了 能 与 系统 里 的 其 他 部 分 建立 起 联系 ，Ben 将 他 的 real-Part 过 
程 安装 在 操作 名 字 real~part 和 类 型 (rectangular) 之 下 ， 其 他 选择 函数 的 情况 也 都 与 
此 类 似 "。 这 一 界面 还 定义 了 提供 给 外 部 系统 的 构造 函数 “， 它 们 也 与 Ben 自己 定义 的 构造 函 
数 一 样 ， 只 是 其 中 还 需要 完成 添加 标志 的 工作 。 
Alyssa 的 极 坐 标 包 与 此 类 似 : 
(define (install-polar~package) 
;; internal procedures | 
(define (magnitude z) (car Z)) 
(define (angle z) (cdr 2z)) 
(define (make-from-mag-ang r a) (cons r 4)) 
(define (real-part z) 
(* (magnitude z) (cos (angle 2)))) 
(define (imag-part z} 
(* (magnitude z) (sin (angle z)))) 
(define (make-from-real-imag x y) . 
(cons (sqrt (+ (square x) (square y))) 
(atan y x))) 


:; interface to the rest of the system 
(define (tag x) (attach-tag ‘polar x)) 


”这 里 采用 的 是 表 (rectangular) 而 不 是 符号 rectanguLar ， 以 便 能 允许 某 些 带 有 多 个 参数 ， 而 且 这 些 


参数 又 并 非 都 是 同一 类 型 的 操作 。 
n 这 里 安装 的 构造 函数 所 用 的 类 型 不 必 是 表 ， 因 为 每 个 构造 函数 总 是 只 用 于 做 出 某 个 特定 类 型 的 对 象 。 
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(put ‘real-part ‘(polar) real-part) 
(put ’imag-part ’(polar) imag-part) 
(put "magnitude ’(polar) magnitude) 
(put ’angle *(polar) angle) 
(put ’make-from-real-imag ‘polar 
(lambda (x y) (tag (make-from-real-imag x y)))) 
(put ‘make-from-mag-ang ‘polar 
(lambda {r a) (tag (make-from-mag-ang r a)))) 


*done) 


虽然 Ben 和 Alyssa 两 个 人 仍然 使 用 着 他 们 原来 的 过 程 定义 ， 这 些 过 程 也 有 着 同样 的 名 字 
(例如 real-part)， 但 对 于 其 他 过 程 而 言 ， 这 些 定义 都 是 内 部 的 (参见 1.1.8 节 )， 所 以 在 这 
里 不 会 出 现 名 字 冲 突 问 题 。 

复数 算术 的 选择 函数 通过 一 个 通用 的 名 为 apP1Y-generic 的 “操作 ”过 程 访 问 有 关 表 
格 ， 这 个 过 程 将 通用 型 操作 应 用 于 一 些 参数 。apply- -9eneric 在 表格 中 用 操作 名 和 参数 类 
HER, WRB, MER AAR SAH eA”: 


(define (apply-generic op . args) 
(let ((type-tags (map type-tag args))) 
{let ((proc (get op type-tags))) | 
(if proc . 
(apply proc (map contents args) ) 
(error 
“No method for these types -~ APPLY-GENERIC" 


(list op type-tags)))))) 

利用 apP1LY-generic， 各 种 通用 型 选择 函数 可 以 定义 如 下 : 

(define (real-part z) (apply-generic ‘real-part 2z)) 

(define (imag-part z) (apply-generic ’imag-part 2z)) 

(define (magnitude z) (apply-generic ‘magnitude 2z)) 

(define (angle z) (apply- generic ‘angle z)) 
请 注意 ， 如 果 要 将 一 个 新 表示 形式 加 入 这 个 系统 ， 上 述 这 些 都 完全 不 必修 改 。 

我 们 同样 可 以 从 表 中 提取 出 构造 函数 ， 用 到 包 之 外 的 程序 中 ， 从 实 部 和 虚 部 或 者 模 和 由 
角 构 造 出 复数 来 。 就 像 在 2.4.2 节 中 那样 ， 当 我 们 有 的 是 实 部 和 并 部 时 就 构造 直角 坐标 表 示 的 


复数 ， 有 模 和 幅 角 时 就 构造 极 坐标 的 数 : 


(define (make-from-real-imag x y) 
((get ’make-from-real-imag ’rectangular) x y)) 


(define (make-from-mag-ang r a) 
((get ’make-from-mag-ang polar) r a)) 
练习 2.73 ”2.3.2 节 描述 了 一 个 执行 符号 求 导 的 程序 : 


(define (deriv exp var) 
(cond ((number? exp) 0) 


apply-generic 使 用 了 练习 2.20 中 换 述 的 带 点 尾部 记 法 ， 因 为 不 同 的 通用 型 操作 的 参数 个 数 可 能 不 同 。 在 
apply-generic 里 ，op 将 取得 aPPly~9generic 的 第 一 个 参数 的 值 margs 的 值 是 其 余 参 数 的 表 。 
apply-generic 还 使 用 了 基本 过 程 aPPlY， 这 一 过 程 需 要 两 个 参数 、 一 个 过 程 和 一 个 表 。apP1Y 将 应 用 这 
一 过 程 ， 用 表 的 元 素 作为 其 参数 。 例 如 (apply+ (list 1 2 3 4)) 的 结果 是 10。 
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( (variable? exp) (if (same-~variable? exp var) 1 0)) 
((sum? exp) 
(make-sum (deriv (addend exp) var) 
(deriv (augend exp) var))) 
( (product? exp) 
(make-sum 
(make-product (multiplier exp) 
(deriv (multiplicand exp) var)) 
(make-product (deriv (multiplier exp) var) 
(multiplicand exp)))) 
< 更 多 规则 可 以 加 在 这 里 > 
(else (error "unknown expression type -- DERIV" exp))))} 
可 以 认为 ， 这 个 程序 是 在 执行 一 种 基于 被 求 导 表 达 式 类 型 的 分 派 工作 。 在 这 里 ， 数 据 的 “类 
型 标志 ”就 是 代数 运算 符 【( 例 如 十 )， 需 要 执行 的 操作 是 deriv。 我 们 也 可 以 将 这 一 程序 变换 
到 数据 导 辣 的 风格 ， 将 基本 求 导 过 程 重 新 写成 : 
(define (deriv exp var) 
(cond ((number? exp) 0) 
({variable? exp) (if (same-variable? exp var) 1 0)) 
(else ((get deriv (operator exp)) (operands exp) 
var)))) 


(define {operator exp) (car exp)) 


{define (operands exp) (cdr exp)) 


a) 请 解释 上 面 究 竟 做 了 些 什 么 。 为 什么 我 们 无 法 将 相近 的 谓词 number? 和 same~variIab1les? 
也 加 入 数据 导向 分 派 中 ? 

b) 请 写 出 针对 和 式 与 积 式 的 求 导 过 程 ， 并 把 它们 安装 到 表格 里 ， 以 便 上 面 程序 使 用 所 需 
要 的 辅助 性 代码 。 

c) 请 选择 一 些 你 希望 包括 的 求 导 规则 ， 例 如 对 乘 才 《练习 2.56) 求 导 等 等 ， 并 将 它们 安 
装 到 这 一 数据 导向 的 系统 里 。 

d) 在 这 一 简单 的 代数 运算 器 中 ， 表 达 式 的 类 型 就 是 构造 起 它们 来 的 代数 运算 符 。 假 定 我 
们 想 以 另 一 种 相反 的 方式 做 索引 ， 使 得 deriv 里 完成 分 派 的 代码 行 像 下 面 这 样 : 

((get (operator exp) ‘deriv) (operands exp) var) | 
求 导 系统 里 还 需要 做 哪些 相应 的 改动 ? | | 

4332.74 Insatiable Enterprise 公 司 是 一 个 高 度 分 散 经 营 的 联合 公司 ， 由 大 量 分 布 在 世界 
各 地 的 分 支 机 构 组 成 。 公 司 的 计算 机 设施 已 经 通过 一 种 非常 巧妙 的 网 络 连接 模式 联 为 一 体 ， 
它 使 得 从 任何 一 个 用 户 的 角度 看 ， 整 个 网 络 就 像 是 一 台 计 算 机 。 在 第 一 次 试图 利用 网 络 能 力 
从 各 分 支 机 构 的 文件 中 提取 管理 信息 时 ，Insatiable 的 总 经 理 非 常 诅 形 地 发 现 ， 虽 然 所 有 分 文 
机 构 的 文件 都 被 实现 为 Scheme 的 数据 结构 ， 但 是 各 分 支 机 构 所 用 的 数据 结构 却 各 不 相同 。 她 
马上 招集 了 各 分 支 机 构 的 经 理会 议 ， 和 希望 寻找 一 种 策略 集成 起 这 些 文件 ， 以 便 在 维持 各 个 分 
支 机 构 中 现存 独立 工作 方式 的 同时 ， 又 能 满足 公司 总 部 管理 的 需要 。 

请 说 明 这 种 策略 可 以 如 何 通 过 数据 导向 的 程序 设计 技术 实现 。 作 为 例子 ， 假 定 每 个 分 支 
机 构 的 人 事 记 录 都 存放 在 一 个 独立 文件 里 ， 其 中 包含 了 一 集 以 雇员 名 字 作为 键 值 的 记录 。 而 
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有 关 集 合 的 结构 却 由 于 分 支 机 构 的 不 同 而 不 同 。 进 一 步 说 ， 某 个 雇员 的 记录 本 身 又 是 一 个 集 
合 (各 分 支 机 构 所 用 的 结构 也 不 同 )， 其 中 所 包含 的 信息 也 在 一 些 作为 键 值 的 标识 符 之 下 ， 例 
如 address 和 salary。 特 别 是 考虑 如 下 问题 : ‘ 

a) 请 为 公司 总 部 实现 一 个 get-record 过 程 ， 使 它 能 从 一 个 特定 的 人 事 文件 里 提取 出 一 
个 特定 的 雇员 记录 。 这 一 过 程 应 该 能 应 用 于 任何 分 支 机 构 的 文件 。 请 说 明 各 个 独立 分 支 机 构 
的 文件 应 具有 怎样 的 结构 。 特 别 是 考虑 ， 它 们 必须 提供 哪些 类 型 信息 ? 

b) 请 为 公司 总 部 实现 一 个 get-salary 过程 ， 它 能 从 任何 分 支 机 构 的 人 事 文件 中 取得 某 
个 给 定 雇员 的 薪金 信息 。 为 了 使 这 一 操作 能 够 工作 ， 这 些 记录 应 具有 怎样 的 结构 ? 

c) 请 为 公司 总 部 实现 一 个 过 程 find-~-emp1loyee-Izecord， 该 过 程 需要 针对 一 个 特定 展 
员 名 ， 在 所 有 分 支 机 构 的 文件 去 查找 对 应 的 记录 ， 并 返回 找到 的 记录 。 假定 这 一 过 程 的 参数 
是 一 个 雇员 名 和 所 有 分 支 文件 的 表 。 

d) 当 Insatiable 购 并 新 公司 后 ， 要 将 新 的 人 事 文件 结合 到 系统 中 ， 必须 做 哪些 修改 ? 


消息 传递 

在 数据 导向 的 程序 设计 里 ， 最 关键 的 想法 就 是 通 过 显 式 处 理 操作 一 类 型 表格 (例如 图 2- 
22 里 的 表格 ) 的 方式 ， 管 理 程序 中 的 各 种 通用 型 操作 。 我 们 在 2.4.2 布 中 所 用 的 程序 设计 风格 ， 
是 一 种 基于 类 型 进行 分 派 的 组 织 方 式 ， 其 中 让 每 个 操作 管理 自己 的 分 派 。 从 效果 上 看 ， 这 种 
”方式 就 是 将 操作 一 类 型 表格 分 解 为 一 行 一 行 ， 每 个 通用 型 过 程 表 示 表 格 中 的 一 行 。 

另 一 种 实现 策略 是 将 这 一 表格 按 列 进行 分 解 ， 不 是 采用 一 批 “ 智 能 操作 ` 去 基于 数据 类 
型 进行 分 派 ， 而 是 采用 “智能 数据 对 象 " ， 让 它们 基于 操作 名 完成 所 需 的 分 派 工 作 。 如 果 我 们 
想 这 样 做 ， 所 需要 做 的 就 是 做 出 一 种 安排 ， 将 每 一 个 数据 对 象 〈 例 如 一 个 采用 直角 坐标 表示 
的 复数 ) 表示 为 一 个 过 程 。 它 以 操作 的 名 字 作 为 输入 ， 能 够 去 执行 指定 的 操作 。 按照 这 种 方 
x, make-from-real-imaghigs 成 下 面 样子 : 


(define. (make-from-real-imag x y) 
(define (dispatch op) . l 
(cond ((eq? op ‘real-part) x) 
((eq? op ’imag-part) y) 
( (eq? op magnitude) 
(sqrt (+ (square x) (square y)))) 
( (eq? op ’angle) (atan y x9) . 
(else 
(error "Unknown - op -- MAKE-FROM-REAL- IMAG" op)))) 


dispatch) 


与 之 对 应 的 apP1Y- -generic ERM SRE A-MEN MAE, 此 时 它 只 需要 简单 地 
将 操作 名 馈 入 该 数据 对 象 ， 并 让 那个 对 和 象 去 完成 工作 i 

(define (apply-generic op arg) (arg op)) ; | 
请 注意 ,make-from-real-imag 返 回 的 值 是 一 个 过 程 -一 它 内 部 的 dispatch 过 程 。 这 也 
就 是 当 app1Y-generic 要 求 执行 一 个 操作 时 所 调用 的 过 程 。 

这 种 风格 的 程序 设计 称 为 消息 传递 ， 这 一 名 字源 自 将 数据 对 象 设想 为 一 个 实体 ， 它 以 
“消息 ”的 方式 接收 到 所 需 操 作 的 名 字 。 在 2.1.3 节 中 我 们 已 经 看 到 过 一 个 消息 传递 的 例子 ， 在 


n4 这 种 组 织 方式 的 一 个 限制 是 只 允许 一 个 参数 的 通用 型 过 程 。 
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那里 看 到 的 是 如 何 用 设 有 数据 对 象 而 只 有 过 程 的 方式 定义 cons 、car 和 cdr 。 现 在 我 们 看 到 
的 是 ， 消 息 传 递 并 不 是 一 种 数学 机 巧 ， 而 是 一 种 有 价值 的 技术 ， 可 以 用 于 组 织带 有 通用 型 操 
作 的 系统 。 在 本 章 剩 下 的 部 分 里 ， 我 们 将 要 继续 使 用 数据 导向 的 程序 设计 (而 不 是 用 消息 传 
递 ) ， 进 一 步 讨论 通用 型 算术 运算 的 问题 。 在 第 3 章 里 我 们 将 会 回 到 消息 传递 ， 并 在 那里 看 到 
它 可 能 怎样 成 为 构造 模拟 程序 的 强 有 力 工 具 。 

练习 2.75 “请 用 消息 传递 的 风格 实现 构造 国 数 make-tfrcom-mag-~ang。 这 一 过 程 应 该 与 
上 面 给 出 的 make-Ezrom-Ieal-1Imag 过 程 类 似 。 

练习 2.76 ”一 个 带 有 通用 型 操作 的 大 型 系统 可 能 不 断 演化 ， 在 演化 中 常 需要 加 入 新 的 数 
据 对 象 类 型 或 者 新 的 操作 。 对 于 上 面 提出 的 三 种 策略 一 - 带 有 显 式 分 派 的 通用 型 操作 ， 数 据 
导向 的 风格 ， 以 及 消息 传递 的 风格 一 一 请 描述 在 加 入 一 个 新 类 型 或 者 新 操作 时 ， 系 统 所 必须 
做 的 修改 。 哪 种 组 织 方 式 最 适合 那些 经 常 需要 加 入 新 类 型 的 系统 ? 哪 种 组 织 方式 最 适合 那些 
经 常 需要 加 入 新 操作 的 系统 ? 


2.5 带 有 通用 型 操作 的 系统 


在 前 一 节 里 ， 我 们 看 到 了 如 何 去 设 计 一 个 系统 ， 使 其 中 的 数据 对 象 可 以 以 多 于 一 种 方式 
表示 。 这 里 的 关键 思想 就 是 通过 通用 型 界面 过 程 ， 将 描述 数据 操作 的 代码 连接 到 几 种 不 同 表 
示 上 。 现 在 我 们 将 看 到 如 何 使 用 同样 的 思想 ， 不 但 定义 出 能 够 在 不 同 表示 上 的 通用 操作 ， 还 
能 定义 针对 不 同 参数 种 类 的 通用 型 操作 。 我 们 已 经 看 到 过 几 个 不 同 的 算术 运算 包 :， 语言 内 部 
的 基本 算术 (+ 二， 一 ,，*,/) ,2.1.1 节 的 有 理 数 算术 (add-rat, sub-rat, mul-rat, 
div~rat)， 以 及 2.4.3 节 里 实现 的 复数 算术 。 现 在 我 们 要 使 用 数据 导 同 技术 构造 起 一 个 算术 
运算 包 ， 将 前 面 已 经 构造 出 的 所 有 算术 包 都 结合 进去 。 

图 2-23 展 示 了 我 们 将 要 构造 的 系统 的 结构 。 请 注意 其 中 的 各 抽象 屏障 。 从 某 些 使 用 “ 数 
值 ”的 人 的 观点 看 ， 在 这 里 只 存在 一 个 过 程 add ， 无 论 提 供给 它 的 数 是 什么 。add 是 通用 型 界 
面 的 一 部 分 ， 这 一 界面 将 使 那些 使 用 数 的 程序 能 以 一 种 统一 的 方式 ， 访问 相互 分 离 的 常规 算 
术 、 有 理 数 算术 和 复数 算术 程序 包 。 任 何 独立 的 算术 程序 包 (例如 复数 包 ) 本 身 也 可 能 通过 
通用 型 过 程 (例如 add~complex) 访问 ， 它 也 可 能 由 针对 不 同 表示 形式 设计 的 包 《直角 坐 





使 用 数 的 程序 
通用 型 算术 包 
add-rat sub-rat add-complex sub-complex 
mul-rat div-rat mul-complex div-—complex 
HANER 复数 算术 常规 算术 
直角 坐标 极 坐 标 





表 结构 和 基本 机 器 算术 
图 2-23 通用 型 算术 系统 
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标 表示 和 极 坐 标 表示 ) 组 合 而 成 。 进 一 步 说 ， 这 一 系统 具有 可 加 性 ， 这 样 ， 人 们 还 可 以 设计 
出 其 他 独立 的 算术 包 ， 并 将 其 组 合 到 这 一 通用 型 的 算术 系统 中 。 


2.5.1 通用 型 算术 运算 


设计 通用 型 算术 运算 的 工作 类 似 于 设计 通用 型 复数 运算 。 我 们 希望 (例如 ) 有 一 个 通用 
型 的 加 法 过 程 add ， 对 于 常规 的 数 ， 它 的 行为 就 像 常 规 的 基本 加 法 + ， 对 于 有 理 数 ， 它 就 像 
add-rat ， 对 于 复数 就 像 add-complex。 我 们 可 以 沿用 在 2.4.3 节 为 实现 复数 上 的 通用 选择 
函数 所 用 的 同样 策略 ， 去 实现 add 和 其 他 通用 算术 运算 。 下 面 将 为 每 种 数 附着 一 个 类 型 标志 
以 便 通用 型 过 程 能 够 根据 其 参数 的 类 型 完成 到 某 个 适用 的 程序 包 的 分 派 。 

:通用 型 算术 过 程 的 定义 如 下 : oe | 

(define (add x y) (apply-generic ’add x y)) 

(define (sub x y) (apply-generic ‘sub x y)) 


(define (mul x y) (apply~generic ’mul x y)) | 
(define (div x y) (apply-generic ‘div x y)) 


下 面 我 们 将 从 安装 处 理 常 规 数 ( 即 ， 语 言 中 基本 的 数 ) 的 包 开始 ， 对 这 种 数 采 用 的 标志 
是 符号 scheme-number。 这 个 包 里 的 算术 运算 都 是 基本 算术 过 程 . (因此 不 需要 再 定义 过 程 
去 处 理 无 标志 的 数 )。 因 为 每 个 操作 都 有 两 个 参数 ， 所 以 用 表 (scheme-number Scheme- 
number) 作为 表格 中 的 键 值 去 安装 它们: 


(define (install-scheme-number-package) | 
(define (tag x) 
(attach-tag ‘scheme-number X) ) 
(put ’add ’(scheme-number scheme-number) 
(lambda (x y) (tag (+ x y)))) 
(put ‘sub ’(scheme-number scheme-number) 
(lambda (x y) (tag (- x y)))) 
(put mul °(scheme-number scheme-number ) 
(lambda (x y) (tag (* x y)))) 
(put ‘div ’(scheme-number scheme-number ) 
= > (lambda (x y) (tag (/ x y)))) 
-(put ’make ‘scheme-number 
(lambda (x) (tag x) ).) 
done) 


Scheme 数值 包 的 用 户 可 以 通过 下 面 过 程 ， 创 wit 标志 的 常 TA 
(define (make-scheme-number n) 
((get ’make ’scheme-number) n)) 
现在 我 们 已 经 做 好 了 通用 型 算术 系统 的 框架 ， 可 以 将 新 的 数 类 型 加 入 其 中 了 。 下 面 是 一 
个 执行 有 理 数 算术 的 程序 包 。 请 和 注意， 由 于 具有 可 加 性 ， 我 们 可 以 直接 把 取 自 2,1.1 节 的 有 理 
数 代码 作为 这 个 程序 包 的 内 部 过 程 ， 完 全 不 必 做 任何 修改 : 
(define (install-rational-package) 
;; internal procedures - 
(define (numer x) (car x)) 


(define (denom x) (cdr x)) 
(define (make-rat nd). 


130 


(let ((g (gcd n d))) 


Pl HREM 


(cons (/ n g) (/ d g)))) 


(define (add-rat x y) 
(make-rat (+ (* (numer 
(* (numer 
(* (denom x) 

(define (sub-rat x y) 
(make-rat (- (* (numer 
(* (numer 
{* (denom x) 


x) (denom y)) 
y) (denom x))) 
(denom y)))) 


x) (denom y)) 


y) 
(denom y)))) 


(denom x))) 





(define (mul-rat x y) 
(make-rat (* (numer (numer y)) 


(* (denom 


x) 
x) (denom y)))) 
(define (div-rat x y) 

(make-rat (* (numer 


(* (denom 


x) (denom y)) 


x) (numer y)))) 


;; interface to rest of the system 
(define (tag x) (attach-tag ‘rational x)) 
(put ‘add *(rational rational) 
(lambda (x y) (tag (add-rat x y)))) 
’sub *(rational rational) 
(lambda (x y) (tag (sub-rat x y)))) 
‘mul ’(rational rational) 
(lambda (x y) (tag (mul-rat x y)))) 
"div ’(rational rational) 
(lambda (x y) (tag (div-rat x y)))) 


(put 


(put 


(put 


‘make ‘rational . 
(lambda (n d) (tag (make-rat n d)))) 
*done) 


(put 


(define (make-rational n d) 
((get ’make ’rational) n d)) 


我 们 可 以 安装 上 另 一 个 处 理 复数 的 类 似 程序 包 ， 采 用 的 标志 是 complex 。 在 创建 这 个 程 
序 包 时 ， 我 们 要 从 表格 里 抽取 出 操作 make-from-real-imag 和 make-from-mag-ang,， 
它们 原来 分 别 定义 在 直角 坐标 和 极 坐标 包 里 。 可 加 性 使 我 们 能 把 取 自 2.4.1 节 同样 的 adqd-~ 
complex、sub-complex、mul-complex 和 div-complex 过 程 用 作 内 部 操作 。 


(define (install-complex-package) 
;; imported procedures from rectangular and polar packages 
(define (make-from-real-imag x y) 
((get ’make-from-real-imag ‘rectangular) x y)) 
(define (make-from-mag-ang r a) 
( (get ’make-from-mag-ang ‘polar) r 4)) 


;; internal procedures 
(define (add-complex zl 22) 
(make-from-real-imag (+ (real-part zl) (real-part 22)) 
(+ (imag-part zl) (imag-part 22)))) 
(define (sub-complex zl z2) 
(make-~from-real-imag (- (real-part zl) (real-part 22)) 
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(~ (imag-part 21) (imag-part 22)))) 
(define (mul-complex 21 z2) 
(make-from-mag-ang (* (magnitude zl) (magnitude 22)) 
(+ (angle zl) (angle 22)))) 
(define (div-complex zl z2) 
(make-from-mag-ang (/ (magnitude 21) (magnitude 22)) 
(- (angle zl) (angle z2)))) 


;; interface to rest of the system 
(define (tag z) (attach-tag ‘complex z)) 
(put ‘add *(complex complex) 
(lambda (z1 22) (tag (add- complex zl 22)))) 
(put ’sub ’(complex complex) 
(lambda (zl 22) (tag (sub-complex 21 22)))) 
‘g (put ‘mul ‘(complex complex) 
(lambda (z1 z2) (tag (mul-complex 21 22)))) 
(put ’div ’(complex complex) | 
(lambda (zl 22) (tag (div-complex z1 22)))) 
(put ’make-from-real-imag ‘complex 
| (lambda (x y) (tag (make-from-real-imag x y)))) 
(put ’make-from-mag-ang ‘complex 
(lambda (r a) (tag (make-from-mag-ang r-a)))) 
*done) 
EARE ZPD EP DA SE A BH AES, WTO RHR. 。 请 注意 
这 里 如 何 将 原先 定义 在 直角 坐标 和 极 坐 标 包 里 的 集成 过 程 导 出 ， 放 入 复数 包 中 ， 又 如 何 从 这 
里 导出 送 给 外 面 的 世界 。 
(define (make-complex-—from-real~imag x Y) 
((get ’make-from-real-~imag complex) x y)) 


(define (make-complex-from-mag-ang r a) 
((get ‘make-from-mag-ang ’complex) r a)) 


这 里 描述 的 是 一 个 具有 两 层 标志 的 系统 。 一 个 典型 的 复数 如 直角 坐标 表示 的 3 +4i， 现 在 
的 表示 形式 如 图 2-24 所 示 。 外 层 标 志 (complex) 用 于 将 这 个 数 引导 到 复数 包 ， 一 旦 进入 复 
数 包 ， 下 一 个 标志 (rectangular) 就 会 引导 这 个 数 进入 直角 坐标 表示 包 。 在 一 个 大 型 的 
复杂 系统 里 可 能 有 许多 层次 ， 每 层 与 下 一 层次 之 间 的 连接 都 借助 于 一 些 通 用 型 操作 。 当 一 个 
数据 对 象 被 “向 下 ”传输 时 ， 用 于 引导 它 进 入 适当 程序 包 的 最 外 层 标 志 被 剥 除 (通过 使 用 
contents) ， 下 一 层次 的 标志 〈 如 果 有 的 话 ) 变 成 可 见 的 ， 并 将 被 用 于 下 一 次 分 派 。 





图 2-24 直角 坐标 形式 的 3+4i 的 表示 


在 上 面 这 些 程序 包 里 ， 我 们 使 用 了 add-rat 、add-complex 以 及 其 他 算术 过 程 ， 完 全 
按照 它们 原来 写 出 的 形式 。 一 旦 把 这 些 过 程 定义 为 不 同安 装 过 程 内 部 的 东西 ， 它 们 的 名 字 就 
没有 必要 再 相 互 不 同 了 ， 可 以 在 两 个 包 中 都 简单 地 将 它们 命名 为 add、 sub, mulffdiv, 
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练习 2.77 Louis Reasoner 试 着 去 求 值 (magnitude z)， 其 中 的 就 是 图 2-24 里 的 那个 
对 象 。 令 他 吃惊 的 是 ， 从 apply-generic 出 来 的 不 是 5 而 是 一 个 错误 信息 ， 说 没 办 法 对 类 型 
(complex) 做 操作 magnitude。 他 将 这 次 交互 的 情况 给 Alyssa P. Hacker 看 ，Alyssa 说 “ 问 
题 出 在 没有 为 Complex 数 定义 复数 选择 函数 ， 而 只 是 为 Pplar 和 rectangular 数 定义 了 它 
们 。 你 需要 做 的 就 是 在 comp1Lex 包 里 加 入 下 面 这 些 东 西 : 

(put ’real-part ‘(complex) real-part) 

(put ’imag-part ‘(complex) imag-part) 

(put ‘magnitude ’ (complex) magnitude) 

(put ’angle ’(complex) angle) 


请 详细 说 明 为 什么 这 样 做 是 可 行 的 。 作 为 一 个 例子 ， 请 考虑 表达 式 (magnitude z) 的 求 
值 过 程 ， 其 中 z 就 是 图 2-24 里 展示 的 那个 对 象 ， 请 追踪 一 下 这 一 一 求 值 过 程 中 的 所 有 图 数 辣 用 。 
特别 是 看 看 apply-generic 被 调用 了 几 次 ? 每 次 调用 中 分 派 的 是 哪个 过 程 ? 

练习 2.78 ” 包 scheme-number 里 的 内 部 过 程 几乎 什么 也 没 做 ， 只 不 过 是 去 调用 基本 过 
程 ++、 一 等 等 。 直 接 使 用 语言 的 基本 过 程 当然 是 不 可 能 的 ， 因 为 我 们 的 类 型 标志 系统 要 求 每 
个 数据 对 象 都 附加 一 个 类 型 。 然 而 ， 事 实 上 所 有 Lisp 实 现 都 有 自己 的 类 型 系统 ， 使 用 在 系统 
实现 的 内 部 ， 基 本 谓词 symbo1? 和 number? 等 用 于 确定 某 个 数据 对 象 是 否 具有 特定 的 类 型 。 
请 修改 2.4.2 节 中 type-tag、contents 和 attach-tag 的 定义 ， 使 我 们 的 通用 算术 系统 可 
以 利用 Scheme 的 内 部 类 型 系统 。 这 也 就 是 说 ， 修 改 后 的 系统 应 该 像 原来 一 样 工 作 ， 除 了 其 中 
常规 的 数 直 接 采用 Scheme 的 数 形式 ， 而 不 是 表示 为 一 个 car 部 分 是 符号 scheme-number 的 
序 对 。 

练习 2.79 ”请 定义 一 个 通用 型 相等 请 词 equ? ， 它 能 检查 两 个 数 是 否 相等 。 请 将 它 安 凝 到 
通用 算术 包 里 。 这 一 操作 应 该 能 处 理 常规 的 数 、 有 理 数 和 复数 。 

练习 2.80 ”请 定义 一 个 通用 谓词 = zero? ， 检 查 其 参数 是 否 AO, FEE EE AR 
包 里 。 这 一 操作 应 该 能 处 理 常 规 的 数 、 有 理 数 和 复数 。 


25.2 不 同类 型 数据 的 组 合 


前 面 已 经 看 到 了 如 何 定义 出 一 个 统一 的 算术 系统 ， 其 中 包含 常规 的 数 、 复 数 和 有 理 数 ， 
以 及 我 们 希望 发 明 的 任何 其 他 数值 类 型 。 但 在 那里 也 忽略 了 一 个 重要 的 问题 。 我 们 至 今 定 义 
的 所 有 运算 ， 都 把 不 同 数据 类 型 看 作 相互 完全 分 离 的 东西 ， 也 就 是 说 ， 这 里 有 几 个 完全 分 离 
的 程序 包 ， 它 们 分 别 完成 两 个 常规 的 数 ， 或 者 两 个 复数 的 加 法 。 我 们 至 今 还 没有 考虑 的 问题 
是 下 面 事实 ; 定义 出 能 够 跨 过 类 型 界限 的 操作 也 很 有 意义 ， 警 如 完成 一 个 复数 和 一 个 常规 数 
的 加 法 .在 前 面 ， 我 们 一 直 徐 费 苦心 地 在 程序 的 各 个 部 分 之 间 引 进 了 屏障 ， 以 使 它们 能 够 分 
别 开 发 和 分 别 理解 。 现 在 却 又 要 引进 跨 类 型 的 操作 。 当 然 ， 我 们 必须 以 一 种 经 过 精心 考虑 的 
可 控 方 式 去 做 这 件 事 情 ， 以 使 我 们 在 支持 这 种 操作 的 同时 又 没有 严重 地 损害 模块 间 的 分 界 。 

处 理 跨 类 型 操作 的 一 种 方式 ， 就 是 为 每 一 种 类 型 组 合 的 合法 运算 设计 一 个 特定 过 程 。 例 
如 ， 我 们 可 以 扩充 复数 包 ， 使 它 能 提供 一 个 过 程 用 于 加 起 一 个 复数 和 一 个 常规 的 数 ， 并 用 标 
志 (complex scheme-number } 将 它 安装 到 表格 ENS ， 


+; to be included in the complex package 


NS 我 们 还 需要 另 一 个 几乎 相同 的 过 程 去 处 理 类 型 (scheme-number complex), 
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(define (add-complex-to-schemenum z x) 
(make-from-real-imag (+ (real-part z) x) 
(imag-part z))) 


(put ‘add ’(complex scheme-number ) 
(lambda (z x) (tag (add-complex-to-schemenum z x)))) 


这 一 技术 确实 可 以 用 ， 但 也 非常 麻烦 。 对 于 这 样 的 一 个 系统 ， 引 进 一 个 新 类 型 的 代价 就 
不 仅仅 需要 构造 出 针对 这 一 类 型 的 所 有 过 程 的 包 ， 还 需要 构造 并 安装 好 所 有 实现 跨 类 型 操作 
的 过 程 。 后 一 件 事 所 需要 的 代码 很 容易 就 会 超过 定义 类 型 本 身 所 需 的 那些 操作 。 这 种 方法 也 
损害 了 以 添加 方式 组 合 独立 开发 的 程序 包 的 能 力 ， 至 少 给 独立 程序 包 的 实现 者 增加 了 一 些 限 
制 ， 要 求 他 们 在 对 独立 程序 包工 作 时 ， 必 须 同 时 关注 其 他 的 程序 包 。 比 如 ， 在 上 面 例子 里 ， 
如 果 要 处 理 复数 和 常规 数 的 混合 运算 ， 将 其 看 作 复数 包 的 责任 是 合理 的 。 然 而 ， 有 关 有 理 数 
和 复数 的 组 合 工作 却 存在 许多 选择 ， 完 全 可 以 由 复数 包 、 有 理 数 包 ， 或 者 由 另外 的 ， 使 用 了 
从 前 面 两 个 包 中 取出 的 操作 的 第 三 个 包 完 成 。 在 设计 包含 许多 程序 包 和 许多 跨 类 型 操作 的 系 
统 时 ， 要 想 规划 好 一 套 统一 的 策略 ， 分 清 各 种 包 之 间 的 责任 ， 很 容易 变 成 非常 复杂 的 任务 。 

强制 

最 一 般 的 情况 是 需要 处 理 针对 一 批 完全 无 关 的 类 型 的 一 批 完全 无 关 的 操作 ， 直 接 实现 跨 
类 型 操作 很 可 能 就 是 解决 问题 的 最 好 方式 了 ， 当 然 ， 这 样 做 起 来 确实 比较 麻烦 。 幸 运 的 是 ， 
我 们 常常 可 以 利用 潜藏 在 类 型 系统 之 中 的 一 些 额 外 结构 ， 将 事情 做 得 更 好 些 。 不 同 的 数据 类 
型 通常 都 不 是 完全 相互 无 关 的 ， 常 常 存在 一 些 方式 ， 使 我 们 可 以 把 一 种 类 型 的 对 象 看 作 另 一 
种 类 型 的 对 象 。 这 种 过 程 就 称 为 强制 。 举 例 来 说 ， 如 果 现 在 需要 做 常规 数值 与 复数 的 混合 算 
R, 我们 就 可 以 将 常规 数值 看 成 是 虚 部 为 0 的 复数 。 这 样 就 把 问题 转换 为 两 个 复数 的 运算 问题 ， 
可 以 由 复数 包 以 正常 的 方式 处 理 了 。 | 

一 般 而 这 ， 要 实现 这 一 想法 ， 我 们 可 以 设计 出 一 些 强 制 过 程 ， 它 们 能 把 一 个 类 型 的 对 象 
转换 到 另 一 类 型 的 等 价 对 象 。 下 面 是 一 个 典型 的 强制 过 程 ， 它 将 给 定 的 常规 数值 转换 为 一 个 
复数 ， 其 中 的 实 部 为 原来 的 数 而 虚 部 是 0 : | 


(define (scheme-number->complex n) 
(make-complex-from-real-imag (contents n) 0)) 


我 们 将 这 些 强制 过 程 安装 到 一 个 特殊 的 强制 表格 中 ， 用 两 个 类 型 的 名 字 作 为 索 3l: 


(put-coercion “Scheme~number ’complex scheme- number- ->complex) 


(这 里 假定 了 存在 着 用 于 操纵 这 个 表格 的 put-coercion 和 get-coercion 过 程 .) 一 般 而 
言 ， 这 一 表格 里 的 某 些 格子 将 是 空 的 ， 因 为 将 任何 数据 对 象 转换 到 另 一 个 类 型 并 不 是 都 能 做 
的 。 例 如 并 不 存在 某 种 将 任意 复数 转换 为 常规 数值 的 方式 ， 因 此 ， 这 个 表格 中 就 不 应 包括 一 
般 性 的 complex->scheme- number 过 程 。 

一 旦 将 上 述 转换 表格 装配 好 ， 我 们 就 可 以 修改 2.4.3 市 的 apply-generic 过 程 ， 得 到 一 
种 处 理 强制 的 统一 方法 。 在 要 求 应 用 一 个 操作 时 ， 我 们 将 首先 检查 是 否 存在 针对 实际 参数 类 
型 的 操作 定义 ， 就 像 前 面 一 样 。 如 果 存 在 ， 那 么 就 将 任务 分 派 到 由 操作 一 类 型 表格 中 找 出 的 
相应 过 程 去 ， 否 则 就 去 做 强制 。 为 了 简化 讨论 ， 这 里 只 考虑 两 个 参数 的 情况 5。 我 们 检查 强 


“有 关 推 广 见 练习 2Z.82 , 
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制 表 格 ， 查 看 其 中 第 一 个 参数 类 型 的 对 象 能 否 转换 到 第 二 个 参数 的 类 型 。 如 果 可 以 ， 那 就 对 
第 一 个 参数 做 强制 后 再 试验 操作 。 如 果 第 一 个 参数 类 型 的 对 象 不 能 强制 到 第 二 个 类 型 ABA 
就 试验 另 一 种 方式 ， 看 看 能 否 从 第 二 个 参数 的 类 型 转换 到 第 一 个 参数 的 类 型 。 最 后 ， 如 果 不 
存在 从 一 个 类 型 到 另 一 类 型 的 强制 ， 那 么 就 只 能 放弃 了 。 下 面 是 这 个 过 程 : 
(define (apply~generic op . args) 
{let ((type-tags {map type-tag args))) 
(let (({proc (get op type-tags) )) 
(if proc 
(apply proc (map contents args)) 
(if (= (length args) 2) 
{let ((typel (car type-tags) ) 
(type2 (cadr type-tags)})) 
(al (car args)) 
(a2 (cadr args))) 
(let ((tl->t2 (get-coercion typel type2)) 
(七 2-> 上 1 (get-coercion type2 typel))) 
(cond (tl->t2 
(apply-generic op (tl->t2 al) a2)) 
(t2->t1 
(apply-generic op al (t2->tl a2))) 
(else 
(error "No method for these types" 
(list op type-tags)))))) | 
(error "No method for these types" 
(list op type-tags))))))) 


与 显 式 定义 的 跨 类 型 操作 相 比 ， 这 种 强制 模式 有 许多 优越 性 。 就 像 在 上 面 已 经 说 过 的 。 
虽然 我 们 仍然 需要 写 出 一 些 与 各 种 类 型 有 关 的 强制 过 程 (对 于 n 个 类 型 的 系统 可 能 需要 er 个 过 
程 );， 但 是 却 只 需要 为 每 一 对 类 型 写 一 个 过 程 ， 而 不 是 为 每 对 类 型 和 每 个 通用 型 操作 写 一 个 过 
程 '?。 能 够 这 样 做 的 基础 就 是 ， 类 型 之 间 的 适当 转换 只 依赖 于 类 型 本 身 ， 而 不 依赖 于 所 实际 
应 用 的 操作 。 

在 另 一 方面 ， 也 可 能 存在 一 些 应 用 ， 对 于 它们 而 言 我们 的 强制 模式 还 不 足够 一 般 。 即 使 
孝 要 运算 的 两 种 类 型 的 对 象 都 不 能 转换 到 另 一 种 类 型 ， 也 完全 可 能 在 将 这 两 种 类 型 的 对 象 都 
转换 到 第 三 种 类 型 后 执行 这 一 运算 。 为 了 处 理 这 种 复杂 性 ， 同 时 又 能 维持 我 们 系统 的 模块 性 ， 
通常 就 需要 在 建立 系统 时 利用 类 型 之 间 的 进一步 结构 ， 有 关 情 况 见 下 面 的 讨论 。 

类 型 的 层次 结构 

上 面 给 出 的 强制 模式 ， 依 赖 于 一 对 对 类 型 之 间 存 在 着 某 种 自然 的 关系 。 在 实际 中 ， 还 常 
常 存在 着 不 同类 型 间 相 互 关系 的 更 “全 局 性 ”的 结构 。 例 如 ， 假 定 我 们 想 要 构造 出 一 个 通用 
型 的 算术 系统 ， 处 理 整 数 、 有 理 数 、 实 数 、 复 数 。 在 这 样 的 一 个 系统 里 ， 一 种 很 自然 的 做 法 
是 把 整数 看 作 是 一 类 特殊 的 有 理 数 ， 而 有 理 数 又 是 一 类 特殊 的 实数 ， 实 数 转 而 又 是 一 类 特殊 


u7 如 果 做 得 更 聪明 些 ， 常 常 不 需要 写 出 中 那么 多 个 强制 过 程 。 例 如 ， 如 果 知 道 如 何 从 类 型 1 转换 到 类 型 2 ， 以 及 
如 何 从 类 型 2 转换 到 类 型 3 ， 那 么 也 就 可 以 利用 这 些 知 识 从 类 型 1 转换 到 类 型 3 。 这 将 大 大 减少 在 向 系统 中 加 入 
新 类 型 时 需要 显 式 提供 的 转换 过 程 的 个 数 。 如 果真 的 希望 ， 也 完全 可 以 将 这 种 复杂 方式 做 到 系统 里 ， 让 系统 
去 查找 类 型 之 间 的 关系 “图 "， 而 后 自动 地 通过 显 式 提 供 的 强制 过 程 ， 生 成 其 他 能 够 推导 出 的 强制 过 程 。 
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的 复数 。 这 样 ， 我 们 实际 有 的 就 是 一 个 所 谓 的 类 型 的 层次 结构 ， 在 复数 

其 中 ，( 例 如 ) 整数 是 有 理 数 的 子 类 型 (也 就 是 说 ， 任 何 可 以 应 用 A 

于 有 理 数 的 操作 都 可 以 应 用 于 整数 ) 。 与 此 相对 应 ， 人 们 也 说 有 理 xa 

数 形成 了 整数 的 一 个 超 类 型 。 在 这 个 例子 里 所 看 到 的 类 型 层次 结构 

是 最 简单 的 一 种 ， 其 中 一 个 类 型 只 有 至 多 一 个 超 类 型 和 至 多 一 个 子 | 

类 型 。 这 样 的 结构 称 为 一 个 类 型 塔 ， 如 图 2-25 所 示 。 有 理 数 
加 果 我 们 面 对 的 是 个 塔 结构 那么 将 一 个 新 类 型 加 入 层次 结 | 


构 的 问题 就 可 能 极 大 地 简化 了 ， 因 为 需要 做 的 所 有 事情 ， 也 就 是 刻 
画 清楚 这 一 新 类 型 将 如 何 嵌 入 正好 位 于 它 之 上 的 超 类 型 ， 以 及 它 如 
何 作为 下 面 一 个 类 型 的 超 类 型 。 举 例 说 ， 如 果 我 们 希望 做 一 个 整数 PO -TRER 
和 一 个 复数 的 加 法 ， 那 么 并 不 需要 明确 定义 一 个 特殊 强制 函数 integez->comP1Iex HF, 
我 们 可 以 定义 如 何 将 整数 转换 到 有 理 数 ， 如 何 将 有 理 数 转换 到 实数 ， 以 及 如 何 将 实数 转换 到 
复数 。 而 后 让 系统 通过 这 些 步骤 将 该 整数 转换 到 复数 ， 在 此 之 后 再 做 两 个 复数 的 加 法 。 

我 们 可 以 按照 下 面 的 方式 重新 设计 那个 apPIY-generic 过 程 。 对 于 每 个 类 型 ， 都 需要 
提供 一 个 aise 过 程 ， 它 将 这 一 类 型 的 对 象 “提升 ”到 塔 中 更 高 一 层 的 类 型 。 此 后 ， 当 系统 
遇 到 需要 对 两 个 不 同类 型 的 运算 时 ， 它 就 可 以 逐步 提升 较 低 的 类 型 ， 直 至 所 有 对 象 都 达到 了 
塔 的 同一 个 层次 (练习 2.83 和 练习 2.84 关 注 的 就 是 实现 这 种 策略 的 一 些 细节 )。 

类 型 塔 的 另 一 优点 ， 在 于 使 我 们 很 容易 实现 一 种 概念 :每 个 类 型 能 够 “继承 ”其 超 类 型 
中 定义 的 所 有 操作 。 举 例 说 ， 如 果 我 们 没有 为 找 出 整数 的 实 部 提供 一 个 特定 过 程 ， 但 也 完全 
可 能 期 望 [eal-part 过程 对 整数 有 定义 ， 因 为 事实 上 整数 是 复数 的 一 个 子 类 型 。 对 于 类 型 典 
的 情况 ， 我 们 可 以 通过 修改 apply- -generic 过 程 ， 以 一 种 统一 的 方式 安排 好 这 些 事情 。 如 
果 所 需 操作 在 给 定 对 象 的 类 型 中 没有 明确 定义 ， 那么 就 将 这 个 对 象 提 升 到 它 的 超 类 型 并 再 次 
检查 。 在 向 塔 顶 攀 登 的 过 程 中 ， 我 们 也 不 断 转换 有 关 的 参数 ; 直至 在 某 个 层次 上 找到 了 所 需 
的 操作 而 后 去 执行 它 ， 或 者 已 经 到 达 了 塔 顶 (此 时 就 只 能 放弃 了 )。 

与 其 他 层次 结构 相 比 ， 塔 形 结构 的 另 一 一 优点 是 它 使 我 们 有 一 种 简单 的 方式 去 “下 降 ” 

个 数据 对 象 ， 使 之 达到 最 简单 的 表示 形式 。 例 如 ， 如 果 现 在 做 了 2 +3i 和 4 一 3i 的 加 法 ， 如 果 结 
果 是 整数 6 而 不 是 复数 6+0i 当 然 就 更 好 了 。 练 习 2.85 讨 论 了 实现 这 种 下 降 操 作 的 一 种 方式 。 这 
里 的 技巧 在 于 需要 有 一 种 一 般 性 的 方式 ， 分 辨 出 哪些 是 可 以 下 降 的 对 象 《例如 6 +01) ， 哪些 
是 不 能 下 降 的 对 象 ( 例 如 6 +2i)。 


层次 结构 的 不 足 

如 果 在 一 个 系统 里 ， 有 关 的 数据 美 型 可 以 自然 地 安排 为 一 个 堪 形 ， 那么 正如 在 前 面 已 经 
看 到 的 ， 处 理 不 同类 型 上 通用 型 操作 的 问题 将 能 得 到 极 大 的 简化 。 遗 憾 的 是 ， 事 情 通 常 都 不 
是 这 样 。 图 2-26 展 示 的 是 类 型 之 间 关 系 的 一 种 更 复杂 情况 ， 其 中 显示 出 的 是 表示 几何 图 形 的 
各 种 类 型 之 间 的 关系 。 从 这 个 图 里 可 以 看 到 ， 一 般 而 言 ， 一 个 类 型 可 能 有 多 于 一 个 子 类 型 ， 
例如 三 角形 和 四 边 形 都 是 多 边 形 的 子 类 型 。 紫外， 一 个 类 型 也 可 能 有 多 于 一 个 超 关 型 ， 例如 ， 
等 腰 直 角 三 角形 可 以 看 作 是 等 腰 三 角形 ， 又 可 以 看 作 是 直角 三 角形 。 Pr 
问题 特别 令 人 坏 手 ， 因 为 这 就 意味 着 ， 并 不 存在 一 种 唯一 二 方式 在 层次 结构 中 去 “提升 ” 
类 型 。 当 我 们 需要 将 一 个 操作 应 用 于 一 个 对 象 时 ， 为 此 而 找 出 “正确 ” 超 类 型 的 工作 (例如 ， 
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图 2-26 几何 图 形 类 型 间 的 关系 


这 就 是 apP1LY-generic 这 类 过 程 中 的 一 部 分 ) 可 能 涉及 到 对 整个 类 型 网 络 的 大 范围 搜索 。 
由 于 一 般 说 一 个 类 型 存在 着 多 个 子 类 型 ， 需 要 在 类 型 层次 结构 中 “下 降 ” 一 个 值 时 也 会 遇 和 到 
类 似 的 问题 。 在 设计 大 型 系统 时 ， 处 理 好 一 大 批 相互 有 关 的 类 型 而 同时 又 能 保持 模块 性 ， 这 
是 一 个 非常 困难 的 问题 ， 也 是 当前 正在 继续 研究 的 一 个 领域 “。 - 

练习 2.81 Louis Reasoner 注 意 到 ， 甚 至 在 两 个 参数 的 类 型 实际 相同 的 情况 下 ,apply- 
generic 也 可 能 试图 去 做 参数 间 的 类 型 强制 。 由 此 他 推论 说 ， 需 要 在 强制 表格 中 加 入 一 些 过 
程 ， 以 将 每 个 类 型 的 参数 “强制 ”到 它们 自己 的 类 型 。 例 如 ， 除 了 上 面 给 出 的 scheme- 
number->complex 58 fll z JP, 他 觉得 应 该 有 : 


(define (scheme-number->scheme-number n} n) 

(define (complex->complex z) 2) 

(put-coercion ’scheme-number ‘scheme-number 
scheme-number->scheme-number ) 


ns 六 名 话 也 出 现在 本 书 的 第 1 版 里 ， 它 在 现在 就 像 20 年 前 写 出 时 一 样 的 正确 。 开 发 出 一 种 有 用 的 ， 具 有 一 般 意 
义 的 框架 ， 以 描述 不 同类 型 的 对 象 之 间 的 关系 (这 在 哲学 中 称 为 “本 体 论 ") ,看 来 是 一 件 极其 困难 的 工作 。 
在 10 年 前 存在 的 混乱 和 今天 存在 的 混乱 之 间 的 主要 差异 在 于 ,今天 已 经 有 了 一 批 各 式 各 样 的 并 不 合适 的 本 体 
理论 ， 它 们 已 经 被 媒 入 到 数量 过 多 而 又 先天 不 足 的 各 种 程序 设计 语言 里 。 举 例 来 说 ， 面 向 对 象 语言 的 大 部 分 
复杂 性 -一 -以 及 当前 各 种 面向 对 象 语言 之 间 细 微 的 而 且 使 人 迷惑 的 差异 -一 的 核心 ， 就 是 对 类 型 之 间 通 用 型 
操作 的 处 理 。 我 们 在 第 3 章 有 关 计算 性 对 象 的 讨论 中 完全 避免 了 这 些 问题 。 热 悉 面向 对 象 程序 设计 的 读者 将 
会 注意 到 ， 在 第 3 章 里 关于 局 部 状态 说 了 许多 东西 ， 但 是 却 根 本 没有 提 到 “类 ”或 者 “继承 "。 事 实 上 ， 我 们 
的 猜想 是 ， 如 果 没 有 知识 表示 和 自动 推理 工作 的 帮助 ， 这 些 问 题 是 无 法 仅仅 通过 计算 机 语言 设计 的 方式 合理 
处 理 的 。 | 





(put-coercion ‘complex ‘complex complex->complex) 

a) 如 果 安 装 了 Louis 的 强制 过 程 ， 如 果 在 调用 apply-generic 时 各 参数 的 类 型 都 为 
scheme~-number 或 者 类 型 都 为 complex， 而 在 表格 中 又 找 不 到 相应 的 操作 ， 这 时 会 出 现 什 
么 情况 ?例如 ， 假 定 我 们 定义 了 一 个 通用 型 的 求知 运算 : 

(define (exp x y) (apply-generic ’exp x Yy}) | 
F-fEScheme 37 (8 BRA T — PSR LE, 但 其 他 程序 包 里 都 没有 

:; following added to Scheme-number package 
(put ‘exp ’(scheme-number scheme-number ) 
(lambda (x y) (tag (expt x y)))) ?7 using primitive expt 
如 果 对 两 个 复数 调用 exp 会 出 现 什么 情况 ? is 

b) Louis 真 的 纠正 了 有 关 同 样 类 型 参数 的 强制 问题 吗 ? apply~generic 还 能 像 原 来 那样 
正确 工作 吗 ? 

c) 请 修改 apPP1LY-generji2 ， 使 之 不 会 试 着 去 强制 两 个 同样 类 型 的 参数 。 

练习 2.82 ”请 阐述 一 种 方法 ， 设 法 推广 apP1Y-generic， 以 便 处 理 多 个 参数 的 一 般 性 
情况 下 的 强制 问题 。 一 种 可 能 策略 是 试 着 将 所 有 参数 都 强制 到 第 一 个 参数 的 类 型 ， 而 后 试 着 
强制 到 第 二 个 参数 的 类 型 ， 并 如 此 试 下 去 。 请 给 出 一 个 例子 说 明 这 种 策略 还 不 够 一 般 (就 像 
上 面 对 两 个 参数 的 情况 给 出 的 例子 那样 )。( 提示 : 请 考虑 一 些 情况 ， 其 中 表格 里 某 些 合用 的 
操作 将 不 会 被 考虑 。) | 

练习 2.83 ”假定 你 正在 设计 一 个 通用 型 的 算术 包 ， 处 理 图 2-25 所 示 的 类 型 塔 ， 包 括 整数 、 有 
理 数 、 实 数 和 复数 。 请 为 每 个 类 型 ( 除 复数 外 ) 设计 一 个 过 程 ， 它 能 将 该 类 型 的 对 象 提升 到 塔 中 
的 上 面 一 层 。 请 说 明 如 何 安装 一 个 通用 的 raise 操 作 , 使 之 能 对 各 个 类 型 工作 ( 除 复 数 之 外 )。 

练习 2.84 ”利用 练习 2.83 的 raise 操 作 修 改 apply-generic 过 程 ， 使 它 能 通过 逐 层 提升 
的 方式 将 参数 强制 到 同样 的 类 型 ， 正 如 本 节 中 讨论 的 。 你 将 需要 安排 一 种 方式 ， 去 检查 两 个 
类 型 中 哪个 更 高 。 请 以 一 种 能 与 系统 中 其 他 部 分 “ 相 容 ”， 而 且 又 不 会 影响 向 塔 中 加 入 新 层次 
的 方式 完成 这 一 工作 。 

练习 2.85 本 市 中 提 到 了 “简化 ” 数据 对 象 表示 的 一 种 方法 ， 就 是 使 之 在 类 型 塔 中 尽 可 
能 地 下 降 。 请 设计 一 个 过 程 4rop (下 落 )， 使 它 能 在 如 练习 2.83 所 描述 的 类 型 塔 中 完成 这 一 
工作 。 这 里 的 关键 是 以 某 种 一 般 性 的 方式 ， 判 断 一 个 数据 对 象 能 否 下 降 。 举 例 来 说 ， 复 数 
1.5 +0i 至 多 可 以 下 降 到 real ， 复 数 1 +0i 至 多 可 以 下 降 到 integer ， 而 复数 2 +3i 就 根本 无 法 
下 降 。 现 在 提出 一 种 确定 一 个 对 象 能 否 下 降 的 计划 : 首先 定义 一 个 运算 project (投影 )， 
它 将 一 个 对 象 “ 压 ”到 塔 的 下 面 一 层 。 例 如 ， 投 影 一 个 复数 就 是 丢掉 其 虚 部 。 这 样 ， 一 个 数 
能 够 向 下 落 ， 如 果 我 们 首先 project 它 而 后 将 得 到 的 结果 raise 到 开始 的 类 型 ， 最 终 得 到 的 
东西 与 开始 的 东西 相等 。 请 阐述 实现 这 一 想法 的 具体 细节 ， 并 写 出 一 个 dzop 过 程 ， 使 它 可 以 
将 一 个 对 象 尽 可 能 地 下 落 。 你 将 需要 设计 各 种 各 样 的 投影 函数 ”， 并 和 需要 把 PBroject 安 装 为 
系统 里 的 一 个 通用 型 操作 。 你 还 需要 使 用 一 个 通用 型 的 相等 谓词 ， 例 如 练习 2.79 所 描述 的 。 
最 后 ， 请 利用 drop 重 写 练习 2.84 的 apply-generic， 使 之 可 以 “简化 ”其 结果 。 

练习 2.86 ”假定 我 们 希望 处 理 一 些 复 数 ， 它 们 的 实 部 、 虚 部 、 模 和 幅 角 都 可 以 是 常规 数 


N 实数 可 以 用 基本 过 程 round 投 射 到 整数 ， 它 返回 最 接近 参数 的 整数 值 。 





值 、 有 理 数 ， 或 者 我 们 希望 加 入 系统 的 任何 其 他 数值 类 型 。 请 描述 和 实现 系统 需要 做 的 各 种 
修改 ， 以 满足 这 一 需要 。 你 应 设法 将 例如 sine 和 cosine 一 类 的 运算 也 定义 为 在 常规 数 和 有 
理 数 上 的 通用 运算 。 


25.3 实例， 符号 代数 


符号 表达 式 的 操作 是 一 种 很 复杂 的 计算 过 程 ， 它 能 够 展示 出 在 设计 大 型 系统 时 常常 会 出 
现 的 许多 困难 问题 。 一 般 来 说 ， 一 个 代数 表达 式 可 以 看 成 一 种 具有 层次 结构 的 东西 ， 它 是 将 
运算 符 作 用 士 -- 些 运算 对 象 而 形成 的 一 棵 树 。 我 们 可 以 从 一 集 基本 对 象 ， 例 如 常量 和 变量 出 
发 ， 通 过 各 种 代数 运算 符 如 加 法 和 乘法 的 组 合 ， 构 造 起 各 种 各 样 的 代数 表达 式 。 就 像 在 其 他 
ae 里 一 样 ， 在 这 里 也 需要 形成 各 种 抽象 ， 使 我 们 能 够 有 简单 的 方式 去 引用 复合 对 象 。 在 符 
号 代数 中 ， 与 典型 抽象 的 有 关 想 法 包括 线性 组 合 、 多 项 式 、 有 理 函 数 和 三 角 函 数 等 等 。 可 以 
将 这 些 看 作 是 复合 的 “类 型 ， 它 们 在 制导 对 表达 式 的 处 理 过 程 方面 非常 有 用 。 例 如 ， 我 们 可 
以 将 表达 式 : | 

x? sin (y? +1) +x cos 2y +cos (y? _2y2) 


看 作 一 个 x 的 多 项 式 ， 其 参数 是 y 的 多项式 的 三 角 函 数 ， 而 y 的 多 项 式 的 系数 是 整数 。 

下 面 我 们 将 试 着 开发 一 个 完整 的 代数 演算 系统 。 这 类 系统 都 是 异乎 寻常 地 复杂 的 程序 ， 
包含 着 深入 的 代数 知识 和 美妙 的 算法 。 我 们 将 要 做 的 ， 只 是 考察 代数 演算 系统 中 一 个 简单 但 
却 很 重要 的 部 分 ， 多 项 式 算术 。 我 们 将 展示 在 设计 这 样 一 个 系统 时 所 面临 的 各 种 抉择 ， 以 及 
如 何 应 用 抽象 数据 和 通用 型 操作 的 思想 ， 以 利于 组 织 好 这 一 工作 项 目 。 


多 项 式 算术 
要 设计 一 个 执行 多 项 式 算术 的 系统 ， 第 一 件 事情 就 是 确定 多 项 式 到 底 是 什么 。 多 项 式 通 
常 总 是 针对 某 些 特定 的 变量 (多项式 中 的 未 定 元 ) 定义 的 。 为 了 简单 起 见 ， 我 们 把 需要 考虑 
的 多 项 式 限制 到 只 有 一 个 未 定 元 的 情况 ( 单 变 元 多 项 式 ) '”。 下 面 将 多 项 式 定义 为 项 的 和 式 ， 
而 每 个 项 或 者 就 是 一 个 系数 ， 或 者 是 未 定 元 的 乘 方 ， 或 者 是 一 个 系数 与 一 个 未 定 元 乘 方 的 乘 
积 。 系 数 也 定义 为 一 个 代数 表达 式 ， 但 它 不 依赖 于 这 个 多 项 式 的 未 定 元 。 例 如 
5x°+3x4+7 


是 x 的 一 个 简单 多 项 式 ， 而 
(y? +1) xX +(2y)x +1 


是 x 的 一 个 多 项 式 ， 而 其 参数 又 是 ?的 多 项 式 。 

这 样 ， 我 们 就 已 经 绕 过 了 某 些 琼 手 问 题 。 例如 ， 上 面 的 第 一 个 多 项 式 是 否 与 多 项 式 Sy2 + 
3y +7 相 同 ? 为 什么 ?合理 的 回答 可 以 是 “是 ， 如 果 我 们 将 多 项 式 看 作 一 种 纯粹 的 数学 函数 ， 
但 又 不 是 ， 如 果 只 是 将 多 项 式 看 作 一 种 语法 形式 ”。 第 二 个 多 项 式 在 代数 上 等 价 于 一 个 7 的 多 
项 式 ， 其 系数 是 xz 的 多 项 式 。 我 们 的 系统 将 应 认定 这 一 情况 吗 ， 或 者 不 认定 ? 进一步 说 ， 表 示 
一 个 多 项 式 的 方式 可 以 有 很 多 种 一 例如， 将 其 作为 因子 的 乘积 ， 或 者 〈 对 于 单 变 元 多 项 式 ) 


0 在 另 一 方面 ， 我 们 将 允许 多 项 式 的 系数 本 身 是 其 他 变 元 的 多 项 式 ARE TAN SRA SRER N- 样 充 
分 的 表达 能 力 ， 虽 然 会 引起 一 些 强制 问题 LEAL 下面 的 讨论 。 
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作为 一 组 根 ， 或 者 作为 多 项 式 在 些 特 定 集合 里 各 个 点 处 的 值 的 列表 二 。 我 们 可 以 使 一 点 手段 
以 避免 这 些 问 题 。 现 在 我 们 确定 ， 在 这 一 代数 演算 系统 里 ， 一 个 “多 项 式 ” 就 是 一 种 特殊 的 
语法 形式 ， 而 不 是 在 其 之 下 的 数学 意义 。 
现在 必须 进一步 去 考虑 怎样 做 多 项 式 算术 。 在 这 个 简单 的 系统 里 ， 我 们 将 仅仅 考虑 加 法 

和 乘法 。 进 一 步 说 ， 我 们 还 强制 性 地 要 求 两 个 参与 运算 的 多 项 式 具 有 相同 的 未 定 元 。 

下 面 将 根据 我 们 已 经 熟悉 的 数据 抽象 的 一 套 方式 ， 开 始 设计 这 个 系统 。 多 项 式 将 用 一 种 称 
为 Poly 的 数据 结构 表示 ， 它 由 一 个 变量 和 一 组 项 组 成 。 我 们 假定 已 有 选择 函数 Varziable 和 
term-1List， 用 于 从 一 个 多 项 式 中 提取 相应 的 部 分 。 还 有 一 个 构造 国 数 make-poly ， 从 给 
定 变 量 和 项 表 构 造 出 一 个 多 项 式 。 一 个 变量 也 就 是 一 个 符号 ， 因 此 我 们 可 以 用 2.3.2 节 的 
same-variable? 过 程 做 变量 的 比较 。 下 面 过 程 定义 多 项 式 的 加 法 和 乘法 : 


define (add-poly pi p2) 
(if (same-variable? (variable pl) (variable p2)) 
(make-poly (variable pl) 
(add-terms (term-list pl) 
(term-list p2)}) 
(error "Polys not in same var -~ ADD-POLY" 
(list pl p2)))) 


(define (mul-poly pl p2) 
(if (same-variable? (variable pl) (variable p2)) 
(make-poly (variable pl) 
(mul-terms (term-list pl) 
(term-list p2))) 
(error "Polys not in same var -~ MUL-POLY" 
(list pl p2)))) 


为 了 将 多 项 式 结合 到 前 面 建立 起 来 的 通用 算术 系统 里 ， 我 们 需要 为 其 提供 类 型 标志 。 这 里 来 
用 标志 polynomial， 并 将 适合 用 于 带 标 志 多 项 式 的 操作 安装 到 操作 表格 里 。 我 们 将 所 有 代 
” 码 都 嵌入 完成 多 项 式 包 的 安装 过 程 中 ， 与 在 2.5.1 节 里 采用 的 方式 类 似 : 


(define (install-polynomial-package) 
j; internal procedures 
;; representation of poly 
(define (make-poly variable term-list) 
(cons variable term-list) ) 
(define (variable p} (car p)) 
(define (term-list p) (cdr p)) 
< 过 程 same-variable? 和 variable? 取 自 2.3.2 节 > 


;; representation of terms and term lists 


< 过 程 adjoin-term ...coeff 在 下 面 定 义 > 


(define (add-poly pl p2) ...) 
<add-poly 使 用 的 过 程 > 
(define (mul-poly pl p2) ...) 


<mul-poly 使 用 的 过 程 > 


2 对 于 单 变 元 多 项 式 而 言 ， 给 出 一 个 多 项 式 在 一 集 点 的 值 可 能 成 为 一 种 特别 好 的 表示 方式 。 这 将 使 多 项 式 算术 
变 得 特别 简单 。 例 如 ， 要 得 到 两 个 以 这 种 方式 表示 的 多 项 式 之 和 ， 我 们 只 需 加 起 这 两 个 多 项 式 在 对 应 点 的 值 。 
要 将 它们 变换 到 我 们 更 熟悉 的 形式 ， 可 以 利用 拉 格 户 日 插值 公式 ， 它 说 明了 如 何 从 多 项 式 在 n +1 个 点 的 给 定 
值 构 造 出 一 个 * 阶 多 项 式 的 各 个 系数 。 
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;; interface to rest of the system 
(define (tag p) (attach-tag ‘polynomial p)) 
(put "add ’(polynomial polynomial) 
(lambda (pl p2) (tag (add-poly pl p2)))) 
(put ’mul *’(polynomial polynomial) 
(lambda (pl p2) (tag (mul-poly pl p2)))) 
(put ’make *polynomial 
(lambda (var terms) (tag (make-poly var terms) ))) 
*done) | 
多 项 式 加 法 通过 一 项 项 的 相 加 完成 ， 同 次 的 项 ( 即 ， 具 有 同样 未 定 元 第 次 的 项 ) 必须 明 
并 到 一 起 。 完 成 这 件 事 的 方式 是 建立 一 个 同 次 的 新 项 ， 其 系数 是 两 个 项 的 系数 之 和 。 仅 仅 出 
现在 一 个 求 和 多 项 式 中 的 项 就 直接 累积 到 正在 构造 的 多 项 式 里 。 | 
wT RR OE, RA Re a7 oe BAthe-empty-termlist, Tih 
回 一 个 空 的 项 表 ,， 还 有 一 个 构造 函数 adjoin-term 将 一 个 新 项 加 入 一 个 项 表 里 。 我 们 还 假 
定 有 一 个 谓词 empty-termlist?， 可 用 于 检查 一 个 项 表 是 否 为 空 ， 选 择 函 数 first-term 
提取 出 一 个 项 表 中 最 高 次 数 的 项 ， 选 择 函数 rest-terms 返 回 除 最 高 次 项 之 外 的 其 他 项 的 表 。 
为 了 能 对 项 进行 各 种 操作 ， 我 们 假定 已 经 有 一 个 构造 函数 make-term， 它 从 给 定 的 次 数 和 系 
数 构造 出 一 个 项 ， 选择 函 数 order 和 coeff 分 别 返回 一 个 项 的 次 数 和 系数 。 这 些 操 作 使 我 们 
可 以 将 项 和 项 表 都 看 成 数据 抽象 ， 其 具体 实现 就 可 以 另行 单独 考虑 了 。 
下 面 是 一 个 过 程 ， 它 从 两 个 需要 求 和 的 多 项 式 构造 起 一 个 项 表 “: 
(define (add-terms Li L2) | 
(cond ((empty-termlist? L1) L2) 
((empty-termlist? L2) L1) 
(else i 
(let ((tl1 (first-term L1)) (t2 (first-term L2))) 
(cond ((> (order tl) (order t2)) 
(adjoin-term | 
tl (add-terms (rest-terms L1) L2))) 
((< (order tl) (order t2)) 
(adjoin-term 
t2 (add-terms L1 (rest-terms L2)))) 
(else 
(adjoin-term 
(make-term (order t1) 
(add (coeff tl) (coeff £2))) 


(add-terms (rest-terms Ll) 
{rest-terms L2))))))))) 


在 这 里 需要 注意 的 最 重要 的 地 方 是 ， 我 们 采用 了 通用 型 的 加 法 过 程 add 去 求 需要 归并 的 项 的 
系数 之 和 。 这 样 做 有 一 个 特别 有 利 的 后 果 ， 下 面 就 会 看 到 。 

为 了 乘 起 两 个 项 表 ， 我 们 用 第 一 个 表 中 的 每 个 项 去 乘 另 一 表 中 所 有 的 项 ， 通 过 反复 应 用 
mul-term-by-all-terms (这 个 过 程 用 一 个 给 定 的 项 去 乘 一 个 项 表 里 的 各 个 项 ) 完成 项 


22 这 一 运算 很 像 我 们 在 练习 2.62 中 开发 的 有 序 union-set 运算 。 事 实 上 ， 如 果 我 们 将 多 项 式 看 成 根据 未 定 元 
的 次 数 排序 的 集合 ， 那 么 为 求 和 产生 项 表 的 程序 几乎 就 等 同 于 union-setr y, 








表 的 乘法 。 这 样 得 到 的 结果 项 表 (对 于 第 一 个 表 的 每 个 项 各 有 一 个 表 ) 通过 求 和 积累 起 来 。 
乘 起 两 个 项 形成 一 个 新 项 的 方式 是 求 出 两 个 因子 的 次 数 之 和 作为 结果 项 的 次 数 ， 求 出 两 个 因 
子 的 系数 的 乘积 作为 结果 项 的 系数 ， 


(define (mul-terms L1 L2) 
(if (empty-termlist? Ll) 
(the-empty-termlist) 
(add-terms (mul-term-by-all-terms (first-term L1) L2) 
(mul-terms (rest-terms L1) L2)))) 


(define (mul-term-by-all-terms t1 L) 
(if (empty-termlist? L) 

(the-empty-termlist) 
(let ((t2 (first-term L))) 

(adjoin-term 

(make-term (+ (order tl) (order t2)) 
(mul (coeff tl) (coeff t2))) 

(mul-term-by-all-terms tl (rest-terms L)))}))) 

这 些 也 就 是 多 项 式 加 法 和 乘法 的 全 部 了 。 请 和 注意， 因为 我 们 这 里 的 操作 都 是 基于 通用 型 
过 程 add 和 mul 描 述 的 ， 所 以 这 个 多 项 式 包 将 自动 地 能 够 处 理 任何 系数 类 型 ， 只 要 它 是 这 里 的 
通用 算术 程序 包 能 够 处 理 的 。 如 果 我 们 还 把 2.5.2 节 所 讨论 的 强制 机 制 也 包括 进来 ， 那 么 我 们 
也 就 自动 地 有 了 能 够 处 理 不 同系 数 类 型 的 多 项 式 操 作 的 能 力 ， 例 如 
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由 于 我 们 已 经 把 多 项 式 的 求 和 、 求 乘积 的 过 程 add- poly 和 mu1- _poly 作 为 针对 类型 
polynomial 的 操作 ， 安 装 进 通用 算术 系统 的 add 和 mul 操 作 里 ， 这 样 得 到 的 系统 将 能 自动 
处 理 如 下 的 多 项 式 操 作 : 


[OO+D 妇 +( +Dx+G-D)[G-2Dx+(y +7)| 


能 够 完成 此 事 的 原因 是 ， 当 系统 试图 去 归并 系数 时 ， 它 将 通过 add 和 mul 进 行 分 派 。 由 于 这 时 
的 系数 本 身 也 是 多 项 式 (y 的 多 项 式 ) ,它们 将 通过 使 用 add~poly 和 mul-poly 完 成 组 合 。 
这 样 就 产生 出 一 种 “数据 导向 的 递归 ”， 举 例 来 说 ， 在 这 里 ， 对 mu1-Po1ly 的 调用 中 还 会 递归 
地 调用 mul-poly ， 以 便 去 求 系数 的 乘积 。 如 果 系 数 的 系数 仍然 是 多 项 式 (在 三 个 变 元 的 多 
项 式 中 可 能 出 现 这 种 情况 )， 数 据 导向 就 会 保证 这 一 系统 仍 能 进入 另 一 层 递归 调用 ， 并 能 这 样 
根据 被 处 理 数据 的 结构 进入 任意 深度 的 递归 调用 ”。 

项 表 的 表示 

我 们 最 后 面临 的 工作 ， 就 是 需要 为 项 表 实 现 一 种 很 好 的 表示 形式 。 从 作用 上 看 ， 一 个 项 
表 就 是 一 个 以 项 的 次 数 作 为 键 值 的 系数 集合 ， 因 此 ， 任 何 能 够 用 于 有 效 表示 和 集合 的 方法 CL 


D 为 了 使 这 些 工作 得 更 加 平滑 ， 我 们 还 需 在 这 个 通用 算术 系统 中 加 入 将 “ 数 ” 强 制 到 多 项 式 的 能 力 。 这 时 把 数 
看 成 是 次 数 因而 系数 就 是 这 个 数 的 多 项 式 。 如 果 要 处 理 下 面 的 多 项 式 运算 ， 就 需要 这 种 功能 : 


x? + (y+ Dx $5] + |x? +2x+| 


这 其 中 需要 求 出 系数 ) + 1 和 系数 2 之 和 。 
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2.2.3 节 的 讨论 都 可 以 用 于 完成 这 一 工作 。 但 在 另 一 方面 我们 所 用 的 过 程 add-terms 和 
mul-terms 都 以 顺序 方式 进行 访问 ， 按 照 从 最 高 次 项 到 最 低 次 项 的 顺序 ， 因 此 应 读 考 虑 采用 
某 种 有 序 表 表 示 。 

我 们 应 该 如 何 构造 表示 项 表 的 表 结 构 呢 ? 有 一 个 需要 考虑 的 因素 是 可 能 需要 操作 的 多 项 
式 的 “密度 ”。 一 个 多 项 式 称 为 稠密 的 ， 如 果 它 大 部 分 次 数 的 项 都 具有 非 0 系数 。 如 果 一 个 多 
项 式 有 许多 系数 关 的 项 ， 那 么 就 称 它 是 稀 琉 的 。 例 如 ; 

A: x +2 43x? —2x—5 
是 稠密 的 ， 而 | 
B: x'®+2x +1 
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对 于 稠密 多 项 式 而 言 ， 项 表 的 最 有 效 表示 方式 就 是 直接 采用 其 系数 的 表 。 例 如 ， 上 面 的 
多 项 式 A 可 以 很 好 地 表示 为 (1 2 0 3 -2 -5)。 在 这 种 表示 中 ， 一 个 项 的 次 数 也 就 是 从 这 
个 项 开始 的 子 表 的 长 度 减 124。 对 于 像 B 那 样 的 稀疏 多 项 式 ， 这 种 表示 将 变 得 十 分 可 怕 ， 因 为 
它 将 是 一 个 很 大 的 几乎 全 都 是 0 值 的 表 ， 其 中 零 零落 落地 点 组 着 几 个 非 0 项 。 对 于 稀 朴 多 项 却 
有 一 种 更 合理 方式 ， 那 就 是 将 它们 表示 为 非 0 项 的 表 ， 表 中 的 每 一 项 包含 着 多 项 式 里 的 一 个 次 
数 和 对 应 于 这 个 次 数 的 系数 。 按 照 这 种 模式 ， 多 项 式 B 可 以 有 效 地 表示 为 ((100 1) (2 2) 
(0 1))。 由 于 被 操作 的 大 部 分 多 项 式 运算 都 是 稀 朴 多 项 式 ， 我 们 采用 后 一 种 方式 。 现 在 假定 
项 表 被 表示 为 项 的 表 ， 按 照 从 最 高 次 到 最 低 次 的 顺序 安排 。 一 旦 我 们 做 出 了 这 一 决定 ， 为 项 
表 实 现 选 择 函 数 和 构造 函数 就 已 经 直截了当 了 。 

(define (adjoin-term term term-list) 

(if (=zero? (coeff term) ) 


term-list 
(cons term term-list))) 


(define (the-empty-termlist) ‘()) 

(define (first-term term-list) (car term-list)) 
(define (rest-terms term-list) (cdr term-list)) 
(define (empty-termlist? term-list) (null? term-1list) ) 


(define (make-term order coeff) (list order coeff) ) 
(define (order term) (car term)) 
(define (coeff term) (cadr term) ) 


这 里 的 =zero? 在 练习 2.80 中 定义 ( 另 见 下 面 练习 2.87)。 
多 项 式 程序 包 的 用 户 可 以 通过 下 面 过 程 创建 多 项 式 : 


(define (make-polynomial var terms) 
( (get ’make 'polynomial) var terms)) 


24 在 这 些 多 项 式 的 例子 里 ， 我 们 都 假定 使 用 的 是 练习 2.78 所 提出 的 通用 算术 系统 。 这 样 ， 常规 数值 的 系数 将 直 
接 用 数值 本 身 表 示 ， 而 不 是 表示 为 一 个 car 为 符号 scheme-number 的 对 偶 。 

25 虽然 我 们 假定 项 表 是 排序 的 ， 这 里 还 是 将 adjoin-term 简 单 地 实现 为 用 cons 在 现存 项 表 前 加 一 个 新 项 。 公 
要 能 保证 使 用 adjoin-term 的 过 程 ( 如 add-terms) 总 用 比 表 中 的 项 次 数 更 高 的 项 调用 它 ， 我 们 就 不 必 担 
心 会 出 问题 。 如 果 不 希 望 事先 有 这 种 保证 ， 那么 就 可 以 采用 类 似 于 集合 的 有 序 表 表示 中 实现 构造 函数 
adjoin-set 的 方式 (练习 2.61) 实现 adjoin~term, 
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练习 2.87 请 在 通用 算术 包 中 为 多 项 式 安 装 = zero?， 这 将 使 adjoin-term 人 也 能 对 系数 
本 身 也 是 多 项 式 的 多 项 式 使 用 。 

练习 2.88 ”请 扩充 多 项 式 系统 ， 加 上 多 项 式 的 减法 。( 提 示 你 可 能 发 现 定义 一 个 通用 的 
求 负 操作 非常 有 用 。) 

练习 2.89 请 定义 一 些 过 程 ， 实 现 上 面 讨 论 的 适宜 稠密 多 项 式 的 项 表 表 示 。 

练习 2.90 假定 我 们 希望 有 一 个 多 项 式 系统 ， 它 应 该 对 稠密 多 项 式 和 稀疏 多 项 式 都 非常 有 
效 。 一 种 途径 就 是 在 我 们 的 系统 里 同时 允许 两 种 表示 形式 。 这 时 的 情况 类 似 于 2.4 节 复数 的 例 
子 ， 那 里 同时 允许 采用 直角 坐标 表示 和 极 坐 标 表 示 。 为 了 完成 这 一 工作 ， 我 们 必须 区 分 不 同 
的 项 表 类 型 ， 并 将 针对 项 表 的 操作 通用 化 。 请 重新 设计 这 个 多 项 式 系 统 ， 实 现 这 种 推广 。 这 
将 是 一 项 需要 付出 很 多 努力 的 工作 ， 而 不 是 一 个 局 部 修改 。 
练习 2.91 ”一 个 单 变 元 多 项 式 可 以 除 以 另 一 个 多 项 式 ， 产 生出 一 个 商 式 和 一 个 余 式 。 例 
an. ` 


x -1 


a =X +X ， 余 式 x=-1 





Xx 


除法 可 以 通过 长 除 完成 。 也 就 是 说 ， 用 被 除 式 的 最 高 次 项 除 以 除 式 的 最 高 次 项 ， 得 到 商 式 的 
第 一 项 ， 而 后 用 这 个 结果 乘 以 除 式 ， 并 从 被 除 式 中 减 去 这 个 乘积 。 剩 下 的 工作 就 是 用 减 后 得 
到 的 差 作 为 新 的 被 除 式 ， 以 便 产 生出 随后 的 结果 。 当 除 式 的 次 数 超过 被 除 式 的 次 数 时 结束 ， 
将 此 时 的 被 除 式 作为 余 式 。 还 有 ， 如 果 被 除 式 就 是 0， 那 么 就 返回 0 作为 商 和 余 式 。 

我 们 可 以 基于 add-poly 和 mul~poly 的 模型 ， 设 计 出 一 个 除法 过 程 Qiv-poly 。 这 一 过 
程 首先 检查 两 个 多 项 式 是 否 具有 相同 的 变 元 ， 如 果 是 的 话 就 剥 去 这 一 变 元 ， 将 问题 送 给 过 程 
div-terms ， 它 执行 项 表 上 的 除法 运算 。div-poly 最 后 将 变 元 重新 附加 到 QiV-terms 返 
回 的 结果 上 。 将 Giv-terms 设 计 为 同时 计算 出 除法 的 商 式 和 余 式 是 比较 方便 的 。div- 
terms 可 以 以 两 个 表 为 参数 ， 返 回 一 个 商 式 的 表 和 一 个 余 式 的 表 。 

请 完成 下 面 div-terms 的 定义 ,填充 其 中 空缺 的 表达 式 ， 并 基于 它 实 现 div-poly。 该 
过 程 应 该 以 两 个 多 项 式 为 参数 ， 返 回 一 FES ARRAS RANA. . 


(define (div-terms L1 L2) 
(if (empty-termlist? L1) 
(list (the-empty-termlist) (the-empty-termlist) ) 
(let ((t1 (£irst-term L1)) 
(t2 (first-term L2))) 
(if (> (order t2) (order t1)) 
(list (the-empty~-termlist) L1) 
(let ((new-c (div (coeff tl) (coeff t2))) 


(new-o (- (order tl) (order £2)))) 
(let ((rest-of- result 
< 递归 地 计算 结果 的 其 余部 分 > 
) ) 
< 形成 完整 的 结果 > . 


)))))) 


符号 代数 中 类 型 的 层次 结构 
我 们 的 多 项 式 系统 显示 出 ， 一 种 类 型 (多项式 ) 的 对 象 事实 上 可 以 是 一 个 复杂 的 对 象 ， 
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又 以 许多 不 同类 型 的 对 象 作 为 其 组 成 部 分 。 这 种 情况 并 不 会 给 定义 通用 型 操作 增加 任何 实际 
困难 。 我 们 需要 做 的 就 是 针对 这 种 复合 对 象 的 各 个 部 分 的 操作 ， 并 安装 好 适当 的 通用 型 过 程 。 
事实 上 ， 我 们 可 以 看 到 多 项 式 形 成 了 一 类 “递归 数据 抽象 ” ， 因 为 多 项 式 的 某 些 部 分 本 身 也 可 

能 是 多项式。 我 们 的 通用 型 操作 和 数据 导向 的 程序 设计 风格 完全 可 以 处 理 这 种 复杂 和 性， 这 里 
并 没有 多 少 困 难 。 

但 在 另 一 方面 ， 多 项 式 代数 也 是 这 样 的 一 个 系统 ， 其 中 的 数据 类 型 不 能 自然 地 安排 到 一 
个 类 型 塔 里 。 例 如 ， 在 这 里 可 能 有 x 的 多 项 式 ， 其 系数 是 y 的 多 项 式 ， 也 完全 可 能 有 y 的 多 项 式 ， 
其 系数 是 x 的 多 项 式 。 这 些 类 型 中 没有 哪个 类 型 自然 地 位 于 另 一 类 型 的 “上 面 ， 然 而 我 们 却 
常常 需要 去 求 不 同 集合 的 成 员 之 和 。 有 几 种 方式 可 以 完成 这 件 事 情 。 一 个 可 能 性 就 是 将 一 个 
多 项 式 变换 到 另 一 个 多 项 式 的 类 型 ， 这 可 以 通过 展开 并 重新 安排 多 项 式 里 的 项 ， 使 两 个 多 项 
式 都 具有 同样 的 主 变 元 。 也 可 以 通过 对 变 元 的 排序 ， 在 其 中 强行 加 入 一 个 类 型 塔 结构 ， 并 且 
永远 把 所 有 的 多 项 式 都 变换 到 一 种 “规范 形式 ”， 使 具有 最 高 优先 级 的 变 元 成 为 证 变 元 ， 将 优 
先 级 较 低 的 变 元 藏 在 系数 里 面 。 这 种 策略 工作 的 相当 好 ， 但 是 ， 在 做 这 种 变换 时 ， 有 可 能 毫 
无 必要 地 扩大 了 多 项 式 ， 使 它 更 难 读 ， 也 可 能 操作 起 来 的 效率 更 低 。 塔 型 策略 在 这 个 领域 中 
确实 不 大 自然 ， 对 于 另 一 些 领域 也 是 一 样 ， 如 果 在 那里 用 户 可 以 动态 地 通过 已 有 类 型 的 各 种 
组 合 形式 引进 新 类 型 。 这 样 的 例子 如 三 角 函 数 、 才 级 数 和 积分 。 

如 果 说 在 设计 大 型 代数 演算 系统 时 ， 对 于 强制 的 控制 会 变 成 一 个 很 严重 的 问题 ， 那 完全 
不 应 该 感到 奇怪 。 这 种 系统 里 的 大 部 分 复杂 性 都 牵涉 到 多 个 类 型 之 间 的 关系 。 确 实 ， 公 平地 
说 ， 我 们 到 现在 还 没有 完全 理解 强制 。 事 实 上 ， 我 们 还 没有 完全 理解 类 型 的 概念 。 但 无 论 如 
何 ， 已 知 的 东西 已 经 为 我 们 提供 了 支持 大 型 系统 设计 的 强 有 力 的 结构 化 和 模块 化 原理 。 

练习 2.92 通过 加 入 强制 性 的 变量 序 扩充 多 项 式 程序 包 ， 使 多 项 式 的 加 法 和 情 法 和 E 对 具 
有 不 同 变量 的 多 项 式 进行 。( 这 绝 不 简单 ! ) 

扩充 练习 :有理 函数 

我 们 可 以 扩充 前 面 已 经 做 出 的 通用 算术 系统 ， 将 有 理 函 数 也 包含 进来 。 有 理 国 数 也 就 是 
“分 式 ”， 其 分 子 和 分 母 都 是 多 项 式 ， 例 如 ; 

x+1 
x -1 
这 个 系统 应 该 能 做 有 理 函 数 的 加 减 乘除 ， 并 可 以 完成 下 面 的 计算 : 


x+! x x +2x 43x41 





wl x-1 x+ -xl 

(这 里 的 和 已 经 经 过 了 简化 ， 删 除了 公 因 子 。 常 规 的 “交叉 乘法 ” 得 到 的 将 是 一 个 4 次 多 项 式 
的 分 子 和 5 次 多 项 式 的 分 母 。) 

修改 前 面 的 有 理 数 程序 包 ， 使 它 能 使 用 通用 型 操作 ， 就 能 完成 我 们 希望 做 的 事情 ， 除 了 
无 法 将 分 式 化 简 到 最 简 形 式 之 外 。 

练习 2.93 ”请 修改 有 理 数 算术 包 ， 采 用 通用 型 操作 ， 但 在 其 中 改写 make-rat ， 使 它 并 不 
企图 去 将 分 式 化 简 到 最 简 形 式 。 对 下 面 两 个 多 项 式 调用 make-rational 做 出 一 个 有 理 函 数 ， 
以 便 检查 你 的 系统 : 


(define pl (make-polynomial x ((2 1)(0 1)))) 
(define p2 (make-polynomial ’x ((3 1)(0 1)))) 
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{define rf (make-rational p2 pli)) 
现在 用 add 将 zf 与 它 自 己 相 加 。 你 会 看 到 这 个 加 法 过 程 不 能 将 分 式 化 简 到 最 简 形式 。 


我 们 可 以 用 与 前 面 针 对 整数 工作 时 的 同样 想法 ， 将 分 子 和 分 母 都 是 多 项 式 的 分 式 简 化 到 
最 简 形 式 ， 修 改 make-rat ， 将 分 子 和 分 母 都 除 以 它们 的 最 大 公 因 子 。 最 大 公 因 子 “” 的 概念 
对 于 多 项 式 也 是 有 意义 的 。 事 实 上 ， 我 们 也 可 以 用 与 整数 的 欧 儿 里 得 算法 本 质 上 相同 的 算法 
求 出 两 个 多 项 式 的 GCD (RABAT) ”“。 对 于 整数 的 算法 是 : 
(define (gcd a b) 
(if (= b 0) 
(gcd b (remainder a b)))) 


利用 它 ， 再 做 一 点 非常 明显 的 修改 ， 就 可 以 定义 出 一 个 对 项 表 工 作 的 GCD 操 作 : 


(define (gcd-terms a b) 
(if (empty-termlist? b) 
a 
(gcd-terms b (remainder-terms a b)))) 


其 中 的 remainder-terms 提 取出 由 项 表 除 法 操作 div-terms 返回 的 表 里 的 余 式 成 分 ， 该 操 
作 在 练习 2.91 中 实现 。 

练习 2.94 “利用 div-terms 实现 过 程 remainder-terms， 并 用 它 定 义 出 上 面 的 gcd- 
terms。 现 在 写 出 一 个 过 程 9cd-poly ， 它 能 计算 出 两 个 多 项 式 的 多 项 式 GCD (如 果 两 个 多 
项 式 的 变 元 不 同 ， 这 个 过 程 应 该 报告 错误 ) 。 在 系统 中 安装 通用 型 操作 greatest-common- 
divisor ， 使 得 遇 到 多 项 式 时 ， 它 能 归 约 到 gcd-poly ， 对 于 常规 的 数 能 归 约 到 常规 的 gcd， 
作为 试验 ， 请 做 : | 

(define pl (make-polynomial °x °((4 1) (3 -1) (2 -2) (1 2)))) 

(define p2 (make-polynomial x °((3 1) (1 -1)))) 


(greatest-common-divisor pl p2) 


并 用 手工 检查 得 到 的 结果 。 
练习 2.95 请 定义 多 项 式 P1、 P2 和 P;: 
Pi: x —2x+1 
Py: llx+7 
P3: 13x+5 


现在 定义 Q1 为 P11 和 Pi; 的 乘积 ， 定义 Q; 为 P1 和 P; 的 乘积 ， 而 后 用 greatest-common- 
divisor (练习 2.94) 求 出 0, 和 @: 的 GCD 。 请 注意 得 到 的 回答 与 P1 并 不 一 样 。 这 个 例子 将 非 
整数 操作 引进 了 计算 过 程 ， 从 而 引起 了 GCD 算 法 的 困难 ”。 要 理解 这 里 发 生 了 什么 ， 请 试 着 


126 按照 代数 的 说 法 ， 欧 几 里 得 算法 对 于 多 项 式 也 可 以 使 用 的 事实 说 明 多 项 式 构 成 了 一 种 代数 论 域 ， PRA RJL E 
得 环 。 一 个 欧 几 里 得 环 是 一 种 论 域 ， 它 允许 加 、 减 和 可 交换 乘 ， 再 加 上 一 种 方式 为 环 中 每 个 元 素 * 赋 以 一 个 
正 整 数 的 “度量 ”m(x)， 其 性 质 是 ， 对 任何 非 0 的 x- 和 y 都 有 m(xy) Sm), 而 且 对 于 任何 给 定 的 和 y ， 存 在 一 
个 9 使 得 y=9x +r， 这 里 有 有 =0 或 者 m(r) <m(x)。 从 一 种 抽象 的 观点 看 ， 这 些 也 就 是 证 明 欧 几 里 得 算法 能 够 使 
用 所 需要 的 所 有 性 质 。 对 于 整数 论 域 而 言 ， 一 个 整数 的 度量 m 就 是 这 个 整数 的 绝对 值 。 对 多 项 式 论 域 ， 这 一 
度量 就 是 多 项 式 的 次 数 。 

27 在 类 亿 MIT Scheme 的 实现 中 ， 这 将 产生 一 个 多 项 式 ， 它 确实 是 C, MHA FT, 但 却 有 着 有 理 数 系数 。 许 多 
其 他 Scheme 系统 中 的 整数 除法 可 以 产生 有 限 精 度 的 十 进 制 数 ， 这 时 可 能 就 无 法 得 到 合法 的 因子 了 。 
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手工 追踪 gcd-terms 在 计算 GCD 或 者 做 除法 时 的 情况 。 


如 果 我 们 对 于 GCD 算 法 采用 下 面 的 修改 ， 就 可 以 解决 练习 2.95 揭 示 出 的 问题 (这 只 能 对 
整数 系数 的 多 项 式 使 用 ) 。 在 SGCD 计 算 中 执行 任何 多 项 式 除 法 之 前 ， 我 们 先 将 被 除 式 乘 以 一 个 
整数 的 常数 因子 ， 选 择 的 方式 是 保证 在 除 的 过 程 中 不 出 现 分 数 。 这 样 得 到 的 回答 将 比 实际 的 
GCD 多 出 一 个 整 的 常数 因子 ， 但 它 不 会 在 将 有 理沙 数 化 简 到 最 简 形 式 的 过 程 中 造成 任何 问题 。 
由 于 将 用 这 个 GCD 去 除 分 子 和 分 母 ， 所 以 这 个 常数 因子 会 被 消除 掉 。 

说 得 更 精确 些 ， 如 果 P PO Me SAK, 令 01 是 P 的 次 数 (P 的 最 高 次 项 的 次 数 )， 令 0; 是 
的 次 数 ， 令 c 是 8 的 首 项 系数 。 可 以 证 明 ， 如 果 我 们 给 P 乘 上 一 个 整数 化 因子 c' +0'-%， 得 到 
的 多 项 式 用 div-terms 算 法 除 以 0 将 不 会 引进 任何 分 数 。 将 被 除 式 乘 上 这 样 的 常数 后 除 以 除 
式 ， 这 种 操作 在 某 些 地 方 称 为 P 对 于 Q 的 伪 除 ， 这 样 除 后 得 到 的 余 式 也 被 称 为 伪 余 。 

练习 2.96 

a) 请 实现 过 程 pseudoremainder-~-terms ， 它 就 像 是 zemaindaer-terms ， 但 是 像 上 
面 所 描述 的 那样 ， 在 调用 daiv-terms 之 前 ， 先 将 被 除 式 乘 了 整数 化 因子 。 请 修改 gcd- 
terms 合 之 能 使 用 pseudoremainder-terms， 并 检验 现在 9reatest-common- 
divisor 能 否 对 练习 2.95 的 例子 产生 出 一 个 整 系数 的 答案 。 | 

b) 现在 的 GCD 保证 能 得 到 整 系数 ， 但 它们 将 比 P 的 系数 大 ， 请 修改 gcd-terms 使 它 能 从 
答案 的 所 有 系数 中 删除 公 因子 ， 方 法 是 将 这 些 系数 都 除 以 它们 的 (整数) 最 大 公约 数 。 

至 此 我 们 已 经 弄 清 了 如 何 将 一 个 有 理 函 数 化 简 到 最 简 形 式 : 

* 用 到 自 练习 2.96 的 gcda-terms 版 本 计算 出 分 子 和 分 母 的 GCD , 

。 在 你 得 到 了 这 个 GCD 后 ， 在 用 GCD 去 除 分 子 和 分 母 之 前 ， 先 将 它们 都 乘 以 同一 个 整数 

化 因子 ， 以 使 除 以 这 个 GCD 不 会 引进 任何 非 整 数 系数 。 作 为 这 个 因子 ， 你 可 以 使 用 得 到 
的 GCD 的 首 项 系数 的 1 + O01 一 0O; 次 备 。 其 中 0; 是 这 个 GCD 的 次 数 ，01 是 分 子 与 分 母 的 次 
数 中 大 的 那 一 个 。 这 将 保证 用 这 个 GCD 去 除 分 子 和 分 母 不 会 引进 任何 分 数 。 

。 这 一 操作 得 到 的 结果 将 是 具有 整 系数 的 分 子 和 分 母 。 它 们 的 系数 通常 会 由 于 整数 化 因子 

而 变 得 非常 大 。 所 以 最 后 一 步 是 去 除 这 个 多 余 的 因子 ， 为 此 需要 首先 计算 出 分 子 和 分 母 
中 所 有 系数 的 (BR) 最 大 公约 数 ， 而 后 除去 这 个 公约 数 。 

练习 2.97 

a) 请 将 这 一 算法 实现 为 过 程 rxeduce-terms ， 它 以 两 个 项 表 n 和 Q 为 参数 ， 返 回 一 个 包含 
nn 和 dd 的 表 ， 它 们 分 别 是 由 n 和 d 通 过 上 面 描述 的 算法 简化 而 得 到 的 最 简 形式 。 男 请 写 出 一 个 
Sadd-poly 类 似 的 过 程 seduce-poly , 它 检查 两 个 多 项 式 是 否 具有 同样 变 元 。 如 果 是 的 话 ， 
reduce-Ppoly 就 剥 去 其 中 变 元 ， 并 将 问题 交 给 reduce-terms ， 最 后 为 educe-teIrms 返 
回 的 表 里 的 两 个 项 表 重 新 附加 上 变 元 。 | 

b) 请 定义 一 个 类 似 于 reduce-terms 的 过 程 ， 它 完成 的 工作 就 像 是 make-Iat 对 整数 做 
的 事情 : 

(define (reduce-integers n d) 


(let ((g (gcd n d))) 
(list (/ n g) (/ å g)))) 


再 将 reduce 定 义 为 一 个 通用 型 操作 ， 它 调用 apply-9generic 完 成 到 reduce-poly (对 于 
polynomial 参 数 ) 或 者 到 reduce-integers (对 scheme-number 参数 ) 的 分 派 。 你 可 
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以 很 容易 让 有 理 数 算术 包 将 分 式 简化 到 最 简 形 式 ， 采 用 的 方式 就 是 让 make-Iat 在 组 合 给 定 
分 子 和 分 母 ， 做 出 有 理 数 之 前 也 调用 reduce。 这 一 系统 现在 就 能 处 理 整 数 或 者 多 项 式 的 有 理 
表达 式 了 。 为 测试 你 的 程序 ， 请 首先 试验 下 面 的 扩充 练习 : 

(define pl (make-polynomial ‘x ((1 1)(0 1)))) 

(define p2 (make-polynomial ‘x ((3 1)(0 -1)))) 

(define p3 (make-polynomial ‘x °(¢1 1)))) 

(define p4 (make-polynomial ‘x ((2 1)(0 -1)))) 


(define rfl (make-rational pl p2)) 
(define rf2 (make-rational p3 p4)} 


(add rfl rf2) 
看 看 能 否 得 到 正确 结果 ， 结 果 是 否 正确 地 化 简 为 最 向 形式 。 


GCD 计 算是 所 有 需要 完成 有 理 函 数 操作 的 系统 的 核心 。 上 面 所 使 用 的 算法 虽然 在 数学 上 
直截了当 ,但 却 异 常 低 效 。 低 效 的 部 分 原因 在 于 大 量 的 除法 操作 ， 部 分 在 于 由 伪 队 产生 的 巨 
大 的 中 间 系 数 。 在 开发 代数 演算 系统 的 领域 中 ， 一 个 很 活跃 问题 就 是 设计 计算 多 项 式 GCD 的 
更 好 算法 “。 


28 一 个 特别 高 效 而 优美 的 计算 多 项 式 GCD 的 方法 由 Richard Zippel 发 明 (1979)。 这 是 一 个 概率 算法 ， 就 像 我 们 
在 第 1 章 讨论 过 的 素数 快速 检查 算法 。Zippel 的 书 (1993) 里 讨论 了 这 个 算法 ， 还 介绍 了 计算 多 项 式 GCD 的 
其 他 一 些 方法 。 . 





第 3 章 模块 化 、 对 象 和 状态 


即使 在 变化 中 ， 它 也 丝毫 未 变 。 
— Ff $e Se, ILI ( Heraclitus ) 
变 得 赵 多 ， 它 就 赵 是 原来 的 样子 。 | 


Py RS HR - ER (Alphonse Karr ) 





前 面 两 章 介绍 了 组 成 程序 的 各 种 基本 元 素 ， 我 们 看 到 了 如 何 把 基本 过 程 和 基本 数据 组 合 
起 来 ， 构 造 出 复合 的 实体 ， 也 从 中 认识 到 ， 在 克服 大 型 系统 的 复杂 性 的 问题 上 ， 抽 象 起 着 至 
关 重 要 的 作用 。 但 是 对 于 设计 程序 而 言 ， 这 些 手 段 还 不 够 用 ， 有 效 的 程序 综合 还 需要 一 些 组 
织 原 则 ， 它 们 应 能 指导 我 们 系统 化 地 完成 系统 的 整体 设计 。 特 别 是 需要 一 些 能 够 帮助 我 们 构 
造 起 模块 化 的 大 型 系统 的 策略 ， 也 就 是 说 ， 使 这 些 系 统 能 够 “ 自然 地 ” 划分 为 一 些 具 有 内 聚 
力 的 部 分 ， 使 这 些 部 分 可 以 分 别 进 行 开发 和 维护 。 

有 一 种 非常 强 有 力 的 设计 策略 ， 特 别 适合 用 于 构造 那 类 模拟 真实 物理 系统 的 程序 ， 那 就 
是 基于 被 模拟 系统 的 结构 去 设计 程序 的 结构 。 对 于 有 关 的 物理 系统 里 的 每 个 对 象 ， 我 们 构造 
起 一 个 与 之 对 应 的 计算 对 象 ， 对 该 系统 里 的 每 种 活动 ， 我 们 在 自己 的 计算 系统 里 定义 一 种 符 
号 操作 。 采 用 这 一 策略 时 的 希望 是 ， 在 需要 针对 系统 中 的 新 对 象 或 者 新 活动 扩充 对 应 的 计算 
模型 时 ， 我 们 能 够 不 必 对 程序 做 全 面 的 修改 ， 而 只 需要 加 入 与 这 些 对 象 或 者 动作 相对 应 的 新 
的 符号 对 象 。 RE ERROR R 方 面 做 得 很 成 功 ， 那么 在 需要 添加 新 特征 或 者 排除 旧 东 
西里 的 错误 时 ， 就 只 需 在 系统 里 的 一 些小 局 部 中 工作 。 

AH. RAE KREMER RA 受到 我 们 对 于 被 模拟 系统 的 认识 的 支配 。 
在 这 一 章 里 ， 我 们 要 研究 两 种 特点 很 鲜明 的 组 织 策略 ， 它 们 源 自 对 于 系统 结构 的 两 种 非常 不 
同 的 “世界 观 ”。 第 一 种 策略 将 注意 力 集中 在 对 象 上， 将 一 个 大 型 系统 看 成 一 大 批 对 象 ， 它 们 

的 行为 可 能 随 着 时 间 的 进展 而 不 断 变化 。 另 一 种 组 织 策略 将 注意 力 集中 在 流 过 系统 的 信息 流 

上 ， 非 常 像 电 子 工程 师 观 察 一 个 信号 处 理 系统 。 

基于 对 象 的 途径 和 基于 流 处 理 的 途径 ， 都 对 程序 设计 提出 了 具有 重要 意义 的 语言 要 求 。 
对 于 对 象 途径 而 言 ， 我 们 必须 关注 计算 对 象 可 以 怎样 变化 而 又 同时 保持 其 标识 。 这 将 迫使 我 
们 抛弃 老 的 计算 的 代 换 模型 ( 见 1.1.$ 节 )， 转 向 更 机 械 式 的 ， 理 论 上 也 更 不 容易 把 握 的 计算 的 
环境 模型 。 在 处 理 对 象 、 变 化 和 标识 时 ， 各 种 困难 的 基本 根源 在 于 我 们 需要 在 这 一 计算 模型 
中 与 时 间 搏 斗 。 如 果 人 允许 程序 并 发 执行 的 可 能 性 ， 事 情 就 会 变 得 更 困难 许多 。 流 方式 特别 能 
够 用 于 松 解 在 我 们 的 模型 中 对 时 间 的 模拟 与 计算 机 求 值 过 程 中 的 各 种 事件 发 生 的 顺序 。 我 们 
将 通过 一 种 称 为 迁 时 求 值 的 技术 做 到 这 一 点 。 


3.1 赋值 和 局 部 状态 
我 们 关于 世界 的 常规 观点 之 一 ， 就 是 将 它 看 作 认 集 在 一 起 的 许多 独立 对 象 ， 每 个 对 象 
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都 有 自己 的 随 着 时 间 变 化 的 状态 。 所 谓 一 个 对 象 “ 有 状态 ” ， 也 就 是 说 它 的 行为 受到 它 的 历 
史 的 影响 。 例 如 一 个 银行 账户 就 具有 状态 ， 对 问题 “我 能 取出 100 元 钱 吗 ? ”的 回答 依赖 于 
它 的 存 入 和 支取 的 交易 历史 。 我 们 可 以 用 一 个 或 几 个 状态 变量 刻画 一 个 对 象 的 状态 ， 在 它 
们 之 中 维持 着 有 关 这 一 对 象 的 历史 ， 即 能 够 确定 该 对 象 当 前 行为 的 充分 的 信息 。 在 一 个 简 
单 的 银行 系统 里 ， 我 们 可 以 用 当前 余额 刻画 一 个 账户 的 状态 ， 而 不 必 记 住 这 个 账户 的 全 部 
交易 历史 。 

在 一 个 由 许多 对 象 组 成 的 系统 里 ， 其 中 的 这 些 对 象 极 少 会 是 完全 独立 的 。 每 个 对 象 都 可 
能 通过 交互 作用 ， 影 响 其 他 对 象 的 状态 ， 所 谓 交 互 就 是 建立 起 一 个 对 象 的 状态 变量 与 其 他 对 
象 的 状态 变量 之 间 的 联系 。 确 实 ， 如 果 一 个 系统 中 的 状态 变量 可 以 分 组 ， 形 成 一 些 内 部 紧密 
结合 的 子 系统 ， 每 个 子 系统 与 其 他 子 系统 之 间 只 存在 松散 联系 ， 此 时 将 这 个 系统 看 作 是 由 一 
些 独 立 对 象 组 成 的 观点 就 会 特别 有 用 。 

对 于 一 个 系统 的 这 种 观点 ， 有 可 能 成 为 组 织 这 一 系统 的 计算 模型 的 有 力 框架 。 要 使 这 样 
的 一 个 模型 成 为 模块 化 的 ， 就 要 求 它 能 分 解 为 一 批 计算 对 象 ， 使 它们 能 够 模拟 系统 里 的 实际 
对 象 。 每 一 个 计算 对 象 必须 有 它 自 己 的 一 些 局 部 状态 变量 ， 用 于 描述 实际 对 象 的 状态 。 由 于 
被 模拟 系统 里 的 对 象 的 状态 是 随 着 时 间 变化 的 ， 与 它们 相对 应 的 计算 对 象 的 状态 也 必须 变化 。 
如 果 我 们 确定 了 要 通过 计算 机 里 的 时 间 顺 序 去 模拟 实际 系统 里 时 间 的 流逝 ， 那 么 我 们 就 必须 
构造 起 一 些 计算 对 象 ， 使 它们 的 行为 随 着 程序 的 运行 而 改变 。 特 别 是 ， 如 果 我 们 希望 通过 程 
序 设计 语言 里 常规 的 符号 名 字 去 模拟 状态 变量 ， 那 么 语言 里 就 必须 提供 一 个 赋值 运算 符 ， 使 
我 们 能 用 它 去 改变 与 一 个 名 字 相 关联 的 值 。 | | 


3.1.1 局 部 状态 变量 


为 了 说 清楚 这 里 所 说 的 让 一 个 计算 对 象 具 有 随 着 时 间 变化 的 状态 的 意思 ， 现 在 让 我 们 来 
对 从 一 个 银行 账户 支取 现金 的 情况 做 一 个 模拟 。 我 们 将 用 一 个 过 程 withdraw 完 成 此 事 ， 它 
有 一 个 参数 amcunt 表 示 支 取 的 现金 量 。 如 果 对 应 于 给 定 的 支取 额 ， 在 相应 的 账户 里 尚 有 足够 
的 余额 ， 那 么 withdraw 就 返回 支取 之 后 账户 里 剩余 的 款额 ， 否 则 withdraw 将 返回 消息 
Insufficient funds (金额 不 足 )。 举 例 说 ,假定 开始 时 账户 里 有 100 元 钱 ， 在 不 断 使 用 
withdraw 的 过 程 中 我 们 可 能 得 到 下 面 的 响应 序列 : 


(withdraw 25) 
75 


(withdraw 25) 
50 


(withdraw 60) 
"Insufficient funds" 


(withdraw 15) 
35 
在 这 里 可 以 看 到 表达 式 (withdraw 25) 求 值 了 两 次 ,但 它 产 生 的 值 却 不 同 。 这 是 过 程 的 
一 种 新 的 行为 方式 。 到 现在 为 止 ， 我 们 看 到 的 所 有 过 程 都 可 以 看 作 一 些 可 计算 的 数学 函数 的 
描述 ， 对 一 个 过 程 的 调用 将 计算 出 相应 函数 作用 于 给 定 参数 应 得 到 的 值 ， 用 同样 的 实际 参数 





两 次 调用 同一 个 过 程 ， 总 会 产生 出 相同 的 结果 “。 

为 了 实 wltharaw, 我 们 可 以 用 一 个 变量 balance 表 示 账 户 里 的 现 de Se Bh, 并 将 
withdraw 定 义 为 一 个 访问 balance 的 过 程 。 过 程 withdraw 检 查 是 否 balance 的 值 至 少 如 
amount 所 需 的 那么 多 ， 如 果 是 ，withdraw 就 从 balance 里 减 去 amount 并 返回 balance 
的 新 值 ， 否则 withqdraw 就 返回 消息 Insufficient funds,。, 下 和 面 是 balance 和 
withdraw 的 定义 : 

(define balance 100) 


(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (~ balance amount) ) 
balance) 
"Insufficient funds") ) 


减少 balance 的 工作 由 下 面 表 达 式 完成 : 


(set! balance (- balance amount) ) 


其 中 使 用 了 特殊 形式 set! ， 其 语法 是 : 

(set! <name> <new-value>) 
这 里 的 <name> 应 是 一 个 符号 ， <new-value> 是 任何 表达 式 。set! 将 修改 <name>， 使 它 的 值 变 
成 求 值 <new-value> 得 到 的 结果 。 在 上 面 例子 里 ， 我 们 改变 了 balance 的 值 ， 使 它 的 新 值 等 于 
从 balance 的 原 有 值 中 减 去 amount 后 的 结果 '”?。 

在 过 程 withdraw 里 还 使 用 了 begin 特 殊 形 式 ， 用 于 描述 对 两 个 表达 式 的 求 值 ， 在 it 的 
检测 为 真 时 首先 减少 Dalance 的 值 ， 最 后 又 返回 Dalance 的 值 。 一 般 而 言 ， 对 下 面 表达 式 的 
求 值 : 


(begin <exp,> <expz> ... <expi>) 
1 & Bh Fe 5k ge <exp\>Fll<exp,> 2 FRR, ela —P 2K expe MA 又 将 作为 整个 pegin 形 
式 的 值 返 回 ”。 


虽然 withdraw 能 像 我 们 期 望 的 那样 工作 ， 变 量 balance 却 表现 出 一 个 问题 。 按 时 上面 
的 描述 ，balance 是 定义 在 全 局 环境 里 的 一 个 名 字 ， 因 此 完全 可 以 自由 地 被 任何 过 程 检查 或 
者 修改 。 如 果 我 们 能 将 balance 做 成 为 withdraw 内 部 的 东西 ， 情 况 就 会 好 得 多 ， 因 为 这 将 
使 withdraw 成 为 唯一 能 直接 访问 balance 的 过 程 ， 任 何其 他 过 程 都 只 能 间接 地 (通过 对 
withdraw 的 调用 ) 访问 balance。 这 样 才能 更 准确 地 模拟 有 关 的 概念 ， balance 是 一 个 公 
由 withdraw 使 用 的 局 部 状态 变量 ， 用 于 保存 账户 状态 的 变化 轨迹 。 


D 实际 上 这 话 并 不 完全 对 。 一 个 例外 是 1.2.6 节 的 随机 数 生 成 器 。 另 一 个 例外 涉及 到 我 们 在 2.4.3 节 引进 的 操作 / 
类 型 表格 ， 其 中 用 同样 参数 两 次 调用 get 得 到 的 值 依赖 于 其 闻 对 put 的 调用。 当然 ， 在 另 一 方面 ， 在 没有 介 
绍 赋值 之 前 ， 我 们 将 无 法 自己 创建 起 这 种 过 程 。 

30 set I 表达 式 的 值 由 具体 实现 确定 。 通 常 只 应 该 利用 set ! 的 影响 而 不 用 它 的 值 。 名 字 set ! 也 反应 了 >cheme 
所 用 的 一 种 命名 约定 ， 改 变 变量 值 (或 者 改变 数据 结构 ， 在 3.3 节 中 将 会 看 到 ) 的 操作 都 被 给 了 一 个 以 惊叹 与 
结尾 的 名 字 。 这 类 似 于 用 以 问号 结 是 的 名 字 表 示 谓 词 的 习惯 。 

31 我 们 早已 在 程序 里 使 用 过 begin， 因 为 Scheme 里 的 过 程 体 本 身 就 可 以 是 表达 式 序列 。 还 有 ， 在 cond 表 达 式 
里 每 个 子 句 中 的 <consequent> 部 分 不 仅 可 以 是 一 个 表达 式 ， 也 可 以 是 表达 式 的 序列 。 





我 们 可 以 通过 下 面 方式 重 写 出 withdqraw， 使 balance 成 为 它 内 部 的 东西 : 


(define new-withdraw 
(let ({(balance 100)) 
(lambda (amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds")))) 


这 里 的 做 法 是 用 1et 创 建 起 一 个 包含 局 部 变量 balance 的 环境 ， 并 使 它 约 束 到 初始 值 100 。 在 
这 个 局 部 环境 里 ， 我 们 用 Lambda 创建 了 一 个 过 程 ， 它 以 amount 作 为 一 个 参数 ， 其 行为 就 像 
是 前 面 withdraw 的 过 程 。 通 过 对 表达 式 的 求 值 结 果 返 回 的 过 程 就 是 new~withdraw， 它 的 
行为 方式 就 像 是 withdraw ， 但 其 中 的 变量 却 是 任何 其 他 过 程 都 不 能 访问 的 “。 

将 set ! 与 局 部 变量 相 结 合 ， 形 成 了 一 种 具有 一 般 性 的 程序 设计 技术 ， 我 们 将 一 直 使 用 这 
种 技术 去 构造 带 有 局 部 状态 的 计算 对 象 。 但 是 ， 采 用 这 一 技术 也 引起 了 一 个 严重 的 问题 : 当 
我 们 最 早 介绍 过 程 概念 时 ， 也 同时 介绍 了 求 值 的 代 换 模型 ( 见 1.1.5 节 )， 用 它 为 过 程 调用 的 意 
义 提 供 一 种 解释 。 那 时 我 们 说 ， 应 用 一 个 过 程 应 该 被 解释 为 ， 在 将 过 程 的 形式 参数 用 对 应 的 
值 取代 之 后 求 值 这 一 过 程 的 体 。 现 在 就 出 现 新 的 麻烦 : 一 旦 在 语言 里 引进 了 赋值 ， 代 换 就 不 
再 适合 作为 过 程 应 用 的 模型 了 (我 们 将 在 3.1.3 节 看 到 其 中 的 原因 )。 作 为 这 种 情况 的 一 个 结果 ， 
我 们 现在 还 没有 办 法 在 技术 上 理解 为 什么 过 程 new-withdraw 会 有 上 面 所 说 的 行为 方式 。 为 
了 真正 理解 像 new-withdraw 这 样 的 过 程 ， 我 们 需要 为 过 程 应 用 开发 一 个 新 模型 。 这 一 模型 
将 在 3.2 节 里 介绍 ， 那 里 还 包括 对 set! 和 局 部 变量 的 解释 。 现在 我 们 要 首先 检查 new- 
withdraw 所 提出 的 问题 的 几 种 变形 。 

下 面 过 程 make-withdraw 能 创建 出 一 种 “ 提 款 处 理 器 ”。make-withdraw 的 形式 参数 
balance 描 述 了 有 关 账 户 的 初始 余额 值 ”。 


(define (make-withdraw balance) 
(lambda (amount) | 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds”"))) 


下 面 用 make -withdraw 创 建 了 两 个 对 象 : 


(define W1 (make-withdraw 100)) 
(define W2 (make-withdraw 100)) 


(W1 50) 
50 


(W2 70) 
30 


32 dei EWES A IE, Wikbalance mp HEHR Enew-withdrawit# Em. HBR TRH 
谓 隐 藏 原理 的 一 般 性 系统 设计 原则 : 通过 将 系统 中 不 同 的 部 分 保护 起 来 ， 也 就 是 说 ， 只 为 系统 中 那些 “必须 
知道 ”的 部 分 提供 信息 访问 ， 这 样 就 可 以 使 系统 更 模块 化 ， 更 强健 。 

3 与 上 面 new-withdraw 的 情况 不 同 ， 我 们 不 必 在 这 里 用 let 将 balance 做 成 局 部 变量 ， 因 为 形式 参数 本 身 
就 是 局 部 的 。 在 3.2 节 讨论 了 求 值 的 环境 模型 之 后 ， 这 些 就 会 更 清楚 了 (38 3.10), 
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(W2 40) 
"Insufficient funds" 


(W1 40) 
10 
RUTIER, WAN? 是 相互 完全 独立 的 对 象 ， 每 一 个 都 有 自己 的 局 部 状态 变量 balance， 
从 一 个 对 象 提 款 与 另 一 个 窗 无 藉 系 。. 
我 们 还 可 以 创建 出 除了 提 款 还 能 够 存 和 人 款项 的 对 象 ， 这 样 就 可 以 表示 简单 的 银行 账户 了 。 
下 面 是 一 个 过 程 ， 它 返回 一 个 具有 给 定 初始 余额 的 “银行 账户 对 象 : 
(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds")) 
(dafine (deposit amount) 
` (set! balance (+ balance amount) ) 
balance) 
(define (dispatch m) 
(cond (({eq? m ’withdraw) withdraw) 
((eq? m ’deposit) deposit) 
(else (error "Unknown request -- MAKE-ACCOUNT" 


m)))) 
dispatch) 


对 于 make-account 的 每 次 调用 将 设置 好 一 个 带 有 局 部 状态 变量 balance 的 环境 ， 在 这 个 环 
iH) ，make-account 定 义 了 能 够 访问 baLance 的 过 程 deposit 和 withdraw， 另 外 还 有 
一 个 过 程 dispatch ， 它 以 一 个 “消息 ”作为 输入 ， 返 回 这 两 个 局 部 过 程 之 一 。 过 程 
dispatch 本 身 将 被 返回 ， 作 为 表示 有 关 银 行 账户 对 象 的 值 。 这 正好 就 是 我 们 在 2.4.3 贡 已 经 
看 到 过 的 程序 设计 的 消息 传递 风格 ， 当 然 ， 这 里 将 它 与 修改 局 部 变量 的 功能 一 起 使 用 。 

过 程 make-account 可 以 像 下 面 这 样 使 用 : 

(define acc (make-account 100)) 

(({acc withdraw) 50) 

50 


((acc withdraw) 60) 
"Insufficient funds" 


((acc ’deposit) 40) 
90 


((acc ‘withdraw) 60) 
30 


对 acc 的 每 次 调用 将 返回 局 部 定义 的 deposit 或 者 withdraw 过 程 ， 这 个 过 程 随后 被 应 用 于 
给 定 的 amount 。 就 像 nake-withdraw 一 样 ， 对 make-account 的 另 一 次 调用 


(define acc2 (make-account 100)) 


将 产生 出 另 一 个 完全 独立 的 账户 对 象 ， 维 持 着 它 自 己 的 局 部 balLance 。 
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练习 3.1 ”一 个 累加 器 是 一 个 过 程 ， 反 复 用 数值 参数 调用 它 ， 就 会 使 它 的 各 个 参数 累加 到 
一 个 和 数 中 。 每 次 调用 时 累加 器 将 返回 当前 的 累加 和 。 请 写 出 一 个 生成 票 加 器 的 过 程 nake- 
accumulator， 它 所 生成 的 每 个 累加 器 维持 着 一 个 独立 的 和 。 送 给 make-~accumulator 的 
输入 描述 了 有 关 和 数 的 初始 值 ， 例 如 : 

(define A {make-accumulator 5)) 

(A 10) 

15 


(A 10) 
25 


练习 3.2 ”在 对 应 用 程序 做 软件 测试 时 ， 能 够 统计 出 在 计算 过 程 中 某 个 给 定 过 程 被 调用 的 
次 数 常常 很 有 用 处 。 请 写 出 一 个 过 程 make-monitored ， 它 以 一 个 过 程 f 作 为 输入 ， 该 过 程 
本 身 有 一 个 输入 。make-monitored 返 回 的 结果 是 第 三 个 过 程 ， 比 如 说 mf ， 它 将 用 一 个 内 
部 计数 器 维持 着 自己 被 调用 的 次 数 。 如 果 mf 的 输入 是 特殊 符 写 how-many~calls?。， 那 么 mf 
就 返回 内 部 计数 器 的 值 ， 如 果 输 入 是 特殊 符号 reset-count， 那 么 mf 就 将 计数 器 重新 设置 
为 0 ， 对 于 任何 其 他 输入 ，mf 将 返回 过 程 f 应 用 于 这 一 输入 的 结果 ， 并 将 内 部 计数 器 加 一 。 例 
如 ， 我 们 可 能 以 下 面 方式 做 出 过 程 sqrt 的 一 个 受 监视 的 版 本 : 

(define s (make-monitored sqrt)) 

(s 100) 

10 


(s “*how-many~calls?) 
1 


练习 3.3 ”请 修改 make-account 过 程 ， 使 它 能 创建 一 种 带 密码 保护 的 账户 。 也 就 是 说 ， 
应 该 让 make~account 以 一 个 符号 作为 附加 的 参数 ， 就 像 : 

(define acc (make-account 100 ’secret-password) ) 
这 样 产 生 的 账户 对 象 在 接 到 一 个 请 求 时 ， 只 有 同时 提供 了 账户 创建 时 给 定 的 密码 ， 它 才 处 理 
这 一 请 求 ， 否 则 就 发 出 一 个 抱怨 信息 : 

((acc ’secret-password ’withdraw) 40) 

60 


((acc ’some-other-password ‘deposit) 50) 
"Incorrect password” 


练习 3.4 ”请 修改 练习 3.3 中 的 make-~account 过 程 ， 加 上 另 一 个 局 部 状态 变量 ,使 得 如 
果 一 个 账户 被 用 不 正确 的 密码 连续 访问 了 7 次 ， 它 就 将 去 调用 过 程 cal1-the~cops U% 
z). 


3.1.2 引进 赋值 带 来 的 利益 


正如 下 面 将 要 看 到 的 ， 将 赋值 引进 所 用 的 程序 设计 语言 ， 将 会 使 我 们 陷入 许多 困难 的 概 
念 问题 的 从 林 之 中 。 但 无 论 如 何 ， 将 系统 看 作 是 一 集 带 有 局 部 状态 的 对 象 ， 也 是 一 种 维护 模 
块 化 设计 的 强 有 力 技 术 。 作 为 一 个 简单 实例 ,现在 考虑 如 何 没 计 出 一 个 过 程 rand ， 每 次 它 补 
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调用 时 就 会 返回 一 个 随机 选 出 的 整数 。 

“随机 选择 ”的 意思 并 不 清楚 。 其 实 ， 我 们 实际 希望 的 就 是 ， 对 rand 的 反复 调用 将 产生 
出 一 系列 的 数 ， 这 一 序列 具有 均匀 分 布 的 统计 性 质 。 我 们 不 准备 去 讨论 生成 合适 序列 的 方法 ， 
相反 ， 现 在 假定 我 们 已 经 有 一 个 过 程 rand-~update ， 它 的 性 质 就 是 ， 如 果 从 一 个 给 定 的 数 z 
开始 ， 执 行 下 面 操作 


Xe (rand-update x) 


X3 (rand-update x.) 


SBE AEX), 2,205, = RHA RRA BE, 

我 们 可 以 将 rand 实 现 为 一 个 带 有 局 部 状态 变量 x 的 过 程 ， 其 中 将 这 个 变量 初始 化 为 某 个 
固定 值 random-init。 对 rand 的 每 次 调用 算出 当前 x 值 的 rand-update 值 ， 将 这 个 值 运 回 
作为 随机 数 ， 并 将 它 存 人 作为 x 的 新 值 。 


(define rand 
(let ((x random-init) ) 
(lambda () 
(set! x (rand-update x)) 
X))) 

当然 ， 即 使 不 用 赋值 ， 我 们 也 可 以 通过 简单 地 直接 调用 rand-update ， 生 成 同样 的 随机 
数 序列 。 但 是 ， 这 也 就 意味 着 程序 中 任何 使 用 随机 数 的 部 分 都 必须 显 式 地 记 住 ， 需 要 将 x 的 当 
前 值 送 给 rand-update 作 为 参数 。 要 想 看 看 这 样 做 会 造成 多 少 烦恼 ， 现 在 考虑 一 下 用 随机 
数 实现 一 种 称 为 蒙特 卡 罗 模 拟 的 技术 。 

蒙特 卡 罗 方 法 包括 从 一 个 大 集合 里 随机 选择 试验 样本 ， 并 在 对 这 些 试验 结果 的 统计 估计 
的 基础 上 做 出 推断 。 举 例 来 说 ，6/m“* 是 随机 选取 的 两 个 整数 之 间 没 有 公共 因子 (也 就 是 说 ， 它 
们 的 最 大 公 因 子 是 1) 的 概率 。 我 们 可 以 利用 这 一 事实 做 出 r 的 近似 估 。 为 了 逼 进 r 的 值 ， 我 
们 需要 进行 大 量 的 试验 。 在 每 次 试验 中 随机 选择 两 个 整数 并 检查 它们 的 GCD 是 否 为 。 通 过 这 
一 检查 的 次 数 比 率 将 给 出 我 们 对 6/m2 的 估计 值 ， 由 它 就 可 以 得 到 r 的 近似 值 。 

这 一 程序 的 核心 是 过 程 monte-~carlo， 它 以 做 某 个 试验 的 次 数 ， 以 及 这 个 试验 本 身 作为 
参数 。 有 关 试 验 用 一 个 无 参 过 程 表示 ， 返 回 的 是 每 次 运行 的 结果 为 真 或 假 。monte-carlo 
运行 这 个 试验 指定 的 次 数 ， 它 返回 一 个 值 ， 告 知 在 所 做 的 这 些 次 试验 中 得 到 真 的 比例 。 

(define (estimate-pi trials) 


(sqrt (/ 6 (monte-carlo trials cesaro-test)))) 


(define (cesaro-test) 
(= (gcd (rand) (rand)) 1)) 


(define (monte-carlo trials experiment) 


34 实现 rand-update 的 一 种 常见 方法 就 是 采用 将 * 更 新 为 ax +b 取 模 m 的 规则 ， 其 中 的 a 、5 和 m 都 是 适 当选 出 的 
整数 。Knuth 1981 的 第 3 章 里 包含 了 有 关 随 机 数 序 列 生成 和 建立 其 统计 性 质 的 深入 讨论 。 请 注意 ,rand- 
update 是 计算 一 个 数学 函数 ， 两 次 给 它 同一 个 输入 ， 它 将 产生 出 同一 个 输出 。 这 样 ， 如 果 “ 随 机 ”强调 的 
是 序列 中 每 个 数 与 其 前 面 的 数 无 关 的 话 ， 由 zand-~update 生 成 的 数 序列 肯定 不 是 “随机 的 "。 在 “真正 的 随 
机 性 ”与 所 谓 伪 随 机 序列 (由 定义 良好 的 确定 性 计算 产生 出 的 但 又 具有 适当 统计 性 质 的 序列 ) 之 间 的 关系 是 
一 个 非常 复杂 的 问题 ， 涉 及 到 数学 和 哲学 中 的 一 些 困难 问题 。Kolmogorov 、Solomonoff 和 Chaitin 为 这 些 问题 
做 出 了 很 多 贡献 ， 从 Chaitin 1975 可 以 找到 有 关 的 讨论 。 

135 这 个 定理 出 自 E. Cesaro ， 见 Knuth 1981 4.5.2 节 的 讨论 和 证 明 。 





(define (iter trials-remaining trials-passed) 
(cond ((= trials-remaining 0) 
| (/ trials-passed trials)) 
( (experiment) 


{iter (- trials-remaining 1) (+ trials-passed 1))) 
(else 
(iter (- trials-remaining 1) trials-passed)))) 


(iter trials 0)) 
现在 让 我 们 试 一 试 不 用 rand ， 直 接 用 rand-update 完 成 同一 个 计算 。 如 采 我 们 不 使 用 
赋值 去 模拟 局 部 状态 ， 那 么 将 不 得 不 采取 下 面 的 做 法 : 
(define (estimate-pi trials) | 
(sqrt (/ 6 (random-gcd-test trials random-init)))) 


(define (random-gcd-test trials initial-x) 
(define (iter trials-remaining trials~-passed x) 
(let ((xl (rand-update x))) 
(let ((x2 (rand-update x1))) 
(cond ((= trials-remaining 0) 
(/ trials-passed trials)) 
((= (ged xl x2) 1) 
(iter (- trials-remaining 1) 
(+ trials-passed 1) 
x2) ) | 
(else 
{iter (- trials-remaining 1) 
trials~passed 


K2)))))) . 
(iter trials 0 initial-x)) . 
虽然 这 个 程序 还 是 比较 简单 的 ， 但 它 却 在 模块 化 上 打开 了 一 些 令 人 感到 很 痛苦 的 缺口 。 
在 上 面 的 第 一 个 使 用 rand 的 程序 里 ,我 们 可 以 将 蒙特 卡 罗 方 法 直接 表述 为 一 个 通用 过 程 
monte-carlo， 它 以 一 个 任意 的 experiment 过 程 为 参数 。 而 在 同一 程序 的 第 二 个 版 本 中 ， 
由 于 没有 随机 数 生成 器 的 局 部 状态 ,zandom-gcd-test 就 必须 显 式 地 去 操作 随机 数 x1 和 x2 , 
并 通过 一 个 迭代 过 程 将 x2 送 给 rand-update 作 为 新 的 输入 。 这 种 对 于 随机 数 的 显 式 处 理 动 
作 与 积累 检查 结果 的 结构 交织 在 一 起 。 在 这 里 ， 我 们 在 当前 的 特定 试验 中 使 用 了 两 个 随机 数 ， 
而 其 他 蒙特 卡 罗 试 验 里 完全 可 能 使 用 一 个 或 者 三 个 随机 数 。 甚 至 在 过 程 estimate-Ppi 的 最 
上 层 ， 也 必须 关心 提供 初始 随机 数 的 问题 。 由 于 内 部 的 随机 数 生 成 器 被 暴露 出 来 ， 进 入 了 程 
序 的 其 他 部 分 ， 这 就 使 我 们 很 难 将 蒙特 卡 罗 方 法 的 思想 孤立 出 来 ， 使 之 可 以 应 用 于 其 他 工作 ，。 
在 程序 的 第 一 个 版 本 里 ， 由 于 通过 赋值 将 随机 数 生成 器 的 状态 隔离 在 过 程 rcand 的 内 部 ， 因 此 
就 使 随机 数 生成 的 细节 完全 独立 于 程序 的 其 他 部 分 了 。 
由 上 面 蒙 特 卡 罗 方 法 实例 展示 出 的 一 种 具有 普遍 性 的 现象 是 : 从 一 个 复杂 计算 过 程 中 一 
部 分 的 观点 看 ， 其 他 部 分 都 像 是 在 随 着 时 间 不 断 变化 ， 它 们 隐藏 起 自己 的 随时 间 变 化 的 内 部 
状态 。 假 设 我 们 希望 写 出 一 个 计算 机 程序 ， 反 应 这 种 系统 分 解 ， 那 么 就 需要 让 计算 对 象 (hl 
如 银行 账户 和 随机 数 生成 器 ) 的 行为 随 着 时 间 变 化 ， 用 局 部 状态 变量 去 模拟 系统 的 状态 ， 用 
对 这 些 变量 的 赋值 去 模拟 状态 的 变化 。 
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目前 我 们 可 能 很 想 用 下 面 的 话 作为 这 段 讨 论 的 总 结 : 与 所 有 状态 都 必须 显 式 地 操作 和 传 
递 额外 参数 的 方式 相 比 ， 通 过 引进 赋值 和 将 状态 隐藏 在 局 部 变量 中 的 技术 ， 我 们 能 以 一 种 更 
模块 化 的 方式 构造 系统 。 可 惜 的 是 事情 并 不 是 这 么 简单 ， 我 们 很 快 就 会 看 到 这 一 扩 。 

练习 3.5 莹 特 卡 罗 积 分 是 一 种 通过 蒙特 卡 罗 模 拟 估 计 定 积分 值 的 方法 。 考 虑 由 谓词 P(x, y) 
描述 的 一 个 区 域 的 面积 计算 问题 ， 该 谓词 对 于 此 区 域内 部 的 点 (x, 》) 为 真 ， 对 于 不 在 区 域内 的 
点 为 假 。 举 例 来 说 ,包含 在 以 (5, 7) 为 圆心 半径 为 3 的 贺 圈 所 围 成 的 区 域 ， 可 以 用 检查 公式 
(x 一 5 40-7 <V 是否 成 立 的 谓词 描述 。 要 估计 这 样 一 个 谓词 所 描述 的 区 域 的 面积 Ri 
应 首先 选取 一 个 包含 该 区 域 的 矩形 。 例 如 ， 以 (2, 4) 和 (8, 10) 作为 对 角 点 的 矩形 包含 着 上 
面 的 圆 。 需 要 确定 的 积分 也 就 是 这 一 和 矩形 中 位 于 所 类 注 区 域内 的 那个 部 分 。 我 们 可 以 这 样 估 
计 积 分 值 ， 随机 选取 位 于 矩形 中 的 点 (x, y)， 对 每 个 点 检查 P(x, y)， 确 定 该 点 是 否 位 于 所 考 
虑 的 区 域内 。 如 果 试 了 足够 多 的 点 ， 那 么 落 在 区 域内 的 点 的 比率 将 能 给 出 矩形 中 有 关 区 域 的 
比率 KEE, ， 用 这 一 比率 去 乘 整个 矩形 的 面积 ， 就 能 得 到 相应 积分 的 一 个 估计 值 。 

将 蒙特 卡 罗 积 分 实现 为 一 个 过 程 estimate~integral， 它 以 一 个 谓词 P ， 和 矩形 的 上 下 
边界 Xl1、x2 、y1 和 Y2 ， 以 及 为 产生 估计 值 而 要 求 试 验 的 次 数 作 为 参数 。 你 的 过 程 应 该 使 用 
上 面 用 于 估计 nw 值 的 同一 个 nonte-carlo 过 程 。 请 用 你 的 estimate-integral， 通 过 对 
单位 加 面积 的 度量 产生 出 x 的 一 个 估计 值 。 

你 可 能 发 现 ， 有 一 个 从 给 定 区 域 中 选取 随机 数 的 过 程 非常 有 用 。 下 面 的 random-1in- 
range 过 程 利用 1.2.6 节 里 使 用 的 random 实 现 这 一 工作 ， 它 返回 一 个 小 于 其 输入 的 非 负 数 …。 

(define (random-in-range low high) 

(let ({range (- high low))) 
(+ low (random range)))) 

练习 3.6 ”有 时 也 需要 能 重 置 随机 数 生 成 器 ， 以 便 从 某 个 给 定 值 开始 生成 随机 数 序列 。 请 重 
新 设计 一 个 rand 过 程 ， 使 得 我 们 可 以 用 符号 generate 或 者 符号 reset 作 为 参数 去 调用 它 。 其 
行为 是 ，(rand ' generate) 将 产生 出 一 个 新 随机 数 ，((rand ' reset) <new-value>) 
将 内 部 状态 变量 重新 设置 为 指定 的 值 <new-value> 。 通 过 这 样 重 置 状 态 ， 我们 就 可 以 重复 生成 同 
样 的 序列 。 在 使 用 随机 数 测试 程序 ， 排 除 其 中 错误 时 ， 这 种 功能 非常 有 用 。 


3.1.3 引进 赋值 的 代价 


正如 在 上 面 已 经 看 到 的 ，set! 操 作 使 我 们 可 以 去 模拟 带 有 局 部 状态 的 对 象 。 然 而 ， 这 一 
获 益 也 有 一 个 代价 ， 它 使 得 我 们 的 程序 设计 语言 不 能 再 用 1.1.5 节 介绍 的 过 程 应 用 的 代 换 模型 
解释 了 。 进 一 步 说 ,任何 具有 “漂亮 ”数学 性 质 的 简单 模型 ， 都 不 可 能 继续 适合 作为 处 理 程 
序 设计 语言 里 的 对 象 和 赋值 的 框架 

只 要 我 们 不 使 用 赋值 ， RRS Heat 过 程 的 两 次 求 值 一 定 产生 出 同样 的 结果 ， 因 此 
就 可 以 认为 过 程 是 在 计算 数学 函数 。 像 我 们 在 本 书 的 前 两 章 中 所 做 的 那样 ， 不 用 任何 赋值 的 
程序 设计 称 为 函数 式 程序 设计 。 

要 理解 赋值 将 怎样 使 事情 复杂 化 了 ， 现 在 考虑 3.1.1 节 中 make-withdraw 过 程 的 一 个 简 
化 版 本 ， 其 中 不 再 关注 是 否 有 足够 余额 的 问题 : 


36 MIT Scheme 提供 了 这 个 过 程 。 如 果 给 的 是 精确 整数 (就 像 1.2.6 中 那样 )， 它 返回 一 个 精确 整数 ， 而 如 果 给 它 
一 个 十 进 制 数 值 (就 像 在 这 个 练习 里 )， 它 就 返 回 一 个 十 进 制 数值 。 
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(define (make~-simplified-withdraw balance) 
(lambda (amount) 
(set! balance (- balance amount) } 
balance) ) 


(define W (make-simplified-withdraw 25) ) 


(W 20) 
5 


(W 10) 
-5 


请 将 这 一 过 程 与 下 面 make~decr enentde 过 程 做 一 个 比较 ， 该 过 程 里 没有 用 Set ! ; 


(define (make-decrementer balance) 
(lambda (amount) 
(~ balance amount))) 


make-~decrementezr 返 回 的 是 一 个 过 程 ， 该 过 程 从 指定 的 量 balance 中 减 去 其 输入 ， 但 顺 
序 调用 时 却 不 会 像 nake-simplified-withdraw 那样 产生 累积 的 结果 
(define D (make-decrementer 25)) 


(D 20) 
5 


(D 10) 
15 


我 们 可 以 用 代 换 模型 解释 make-decrementer 如 何 工作 。 举 例 来 说 ， 让 我 们 分 析 一 下 下 面 
表达 式 的 求 值 过 程 : 

{(make-decrementer 25) 20) | 
首先 简化 组 合式 中 的 操作 符 ， 用 25 代 换 make-decrementer 的 体 里 的 balance 。 这 样 就 归 
约 出 了 下 面 的 表达 式 : 

((Lambda (amount) (~ 25 amount)) 20) 
随后 应 用 运算 符 ， 用 20 代 换 Jambda 表 达 式 体 里 的 amount : 

(~ 25 20) 
最 后 结果 是 5 。 

现在 看 看 ， 如 果 将 类 似 的 代 换 分 析 用 于 make-simplified-withdraw， 会 出 现 什么 情 
况 : 


((make-simplified-withdraw 25) 20) 
先 简 化 其 中 的 运算 符 ， 用 25 代 换 make-simplified~withdraw 体 里 的 balance ， 这 样 就 
归 约 出 了 下 面 的 表达 式 ”: 


((lambda (amount) (set! balance (- 25 amount)) 25) 20) 


现在 应 用 其 中 的 运算 符 ， 用 20 代 换 lambda 表 达 式 体 里 的 amount : 


37 我 们 没有 代 换 set 1! 表达 式 里 的 balance 出现 ， 因 为 在 set 1 里 的 <name> 并 不 求 值 。 如 果 代 换 掉 它 ， 得 到 的 
(set! 25 (- 25 amount)) 根本 就 没有 意义 。 





(set! balance (- 25 20)) 25 
如 果 我 们 坚持 使 用 代 换 模型 ， 那 么 就 必须 说 ， 这 个 过 程 应 用 的 结果 是 首先 将 balance 设置 为 
5， 而 后 返回 25 作为 表达 式 的 值 。 这 样 得 到 的 结果 当然 是 错误 的 。 为 了 得 到 正 确 答案 ， 我 们 将 
不 得 不 对 balance 的 第 一 个 出 现 (Eset! AZA) 和 它 的 第 二 个 出 现 (在 set! 作 用 之 后 ) 
加 以 区 分 ， 而 代 换 模型 根本 无 法 完成 这 件 事 情 。 

这 里 的 麻烦 在 于 ， 从 本 质 上 说 ， 代 换 的 最 终 基 础 就 是 ， 这 一 语言 里 的 符号 不 过 是 作为 值 
的 名 字 。 而 一 旦 引进 了 set! 和 变量 的 值 可 以 变化 的 想法 ， 一 个 变量 就 不 再 是 一 个 简单 的 名 字 
了 。 现 在 的 一 个 变量 索引 着 一 个 可 以 保存 值 的 位 置 ， 而 存储 在 那里 的 值 也 是 可 以 改变 的 。 在 
3.2 节 里 将 会 看 到 ， 在 我 们 的 计算 模型 里 ， 环 境 将 怎样 扮演 着 “位 置 ”的 角色 。 

同一 和 变化 

从 这 里 暴露 出 的 问题 ， 远 远 不 是 简单 地 打破 了 一 个 特定 计算 模型 ， 其 意义 要 更 深 和 远 得 多 。 
-- 旦 将 变化 引进 了 我 们 的 计算 模型 ， 许 多 以 前 非常 简单 明了 的 概念 现在 都 变 得 有 问题 了 。 首 
先 考 虚 两 个 物体 实际 上 “同一 ”的 概念 。 

假定 我 们 用 同样 的 参数 调用 make-decrementer 两 次 ， 就 会 创建 出 两 个 过 程 : 


(define Dl (make-decrementer 25)) 





(define D2 (make-decrementer 25)) 

D1 和 D2 是 同一 的 吗 ? “是 ”是 一 个 可 以 接受 的 回答 ， 因 为 D1 和 D2 具有 同样 的 计算 行为 一 
都 是 同样 的 将 会 从 其 输入 里 减 去 5 的 过 程 。 事 实 上 ， 我 们 确实 可 以 在 任何 计算 中 用 D1 代 赫 Dz 而 
不 会 改变 结果 。 

与 此 相对 应 的 是 调用 make-simplified-~withdraw 两 人 次: 

(define W1 (make-simplified-withdraw 25)) 

(define W2 (make-simplified-withdraw 25)) 
W1 和 W2 是 同一 的 吗 ? 显然 不 是 ， 因 为 对 WL 和 Wz2 的 调用 会 有 不 同 的 效果 ， 下 面 的 交互 显示 出 
这 方面 的 情况 ; 


(W1 20) 
5 


(W1 20) 
-15 


(W2 20) 
5 


虽然 Wl 和 W2 都 是 通过 对 同样 表达 式 (make-simplified-withdraw 25) 的 求 值 创建 起 
来 的 东西 ， 从 这 个 角度 可 以 说 它们 “同一 ”。 但 如 果 说 在 任何 表达 式 里 都 可 以 用 W1 代 替 W2 ， 
而 不 会 改变 表达 式 的 求 值 结果 ， 那 就 不 对 了 ，。 

如 果 一 个 语言 支持 在 表达 式 里 “同一 的 东西 可 以 相互 替换 ”的 观念 ， 这 样 替换 不 会 改变 
有 关 表 达 式 的 值 ， 这 个 语言 就 称 为 是 具有 引用 延明 性 。 在 我 们 的 计算 机 语言 里 包含 了 set! 之 
后 ， 也 就 打破 了 引用 透明 性 ， 就 使 确定 能 否 通 过 等 价 的 表达 式 代 换 去 简化 表达 式 变 成 了 一 个 
异常 错综复杂 的 问题 了 。 由 于 这 种 情况 ， 对 使 用 赋值 的 程序 做 推理 也 将 变 得 极其 困难 。 

一 日 我 们 抛弃 了 引用 透明 性 ， 有 关 计 算 对 象 “同一 ”的 意义 问题 就 很 难 形 式 地 定义 清楚 
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了 。 实 际 上 ， 在 我 们 企图 用 计算 机 程序 去 模拟 的 现实 世界 里 ,“ 同 一 ”的 意义 本 身 就 是 很 难 搞 
清楚 的 。 一 般 而 言 ， 我 们 只 能 用 如 下 方式 确定 两 个 看 起 来 同一 的 事物 是 否 确实 是 “同一 个 东 
H: 改变 其 中 的 一 个 对 象 ， 去 看 另 一 个 对 象 是 否 也 同样 改变 了 。 但 是 ， 如 果 不 能 通过 观察 
“同一 个 "对象 两 次 ， 看 看 一 次 观察 中 看 到 的 某 些 对 象 性 质 与 另 一 次 不 同 ， 我 们 又 怎么 能 说 清 
楚 一 个 对 象 是 否 “ 变 化 ”了 呢 ? 所 以 ， 如 果 没 有 有 关 “ 同 一 ”的 某 些 先 验 观念 ， 我 们 也 就 不 
可 能 确定 “变化 ”， 而 不 能 看 到 变化 的 影响 又 无 法 确定 同一 性 。 | 

现在 举例 说 明 这 一 问题 会 如 何 出 现在 程序 设计 里 。 现 在 考虑 一 种 新 情况 ， 假 定 Peter 和 
Paul 有 银行 账户 ， 其 中 有 100 块 钱 。 关 于 这 一 事实 的 如 下 模拟 : 


(define peter-acc (make-account 100)) 
(define paul-acc (make-account 100)) 


和 如 下 模拟 之 间 有 着 实质 性 的 不 同 : 
(define peter-~acc (make~account 100)) 
(define paul-acc peter-acc) 


在 前 一 个 情况 里 ， 有 关 的 两 个 银行 账户 互 不 相同 。Peter 所 做 的 交易 将 不 会 影响 Paul 的 账户 ， 
反 过 来 也 一 样 。 而 对 于 后 一 种 情况 ， 显 然 ， 由 于 这 里 把 pau1-acc 定 义 为 与 Peter-acc 是 同 
一 个 东西 ， 结 果 就 使 现在 Peter 和 Paul 共 有 一 个 共用 的 账户 ， 如 果 Peter 从 peter-acc 支 取 了 一 
笔 款 ，Paul 就 会 看 到 在 paul-acc 里 少 了 钱 。 在 构造 计算 模型 时 ， 这 两 种 相近 但 又 不 同 的 情况 
就 可 能 造成 混乱 。 特 别 是 其 中 共享 账户 的 情形 特别 容易 造成 混乱 ， 因 为 在 这 里 ， 同 一 个 对 象 
(那个 银行 账户 ) 具有 两 个 不 同 的 名 字 (peter-acc 和 paul-acc)， 如 果 我 们 想 在 程序 里 搜 
索 出 paul-acc 可 能 被 修改 的 所 有 位 置 ， 我 们 还 必须 记 住 ， 也 需要 检查 那些 修改 peter-acc 
的 地 方 ”。 

有 了 前 面 有 关 “ 同 一 ”和 “变化 ”的 论述 ， 如 果 Peter 和 Paul 只 能 检查 他 们 的 银行 账户 ， 
而 不 能 执行 修改 余额 的 操作 ， 那 么 看 清 这 两 个 账户 是 否 不 同 的 问题 就 需要 仔细 讨论 了 。 一 般 
而 言 ， 如 果 我 们 绝 不 修改 数据 对 象 ， 那 么 就 可 以 将 一 个 复合 数据 对 象 完全 看 作 是 由 其 片段 组 
成 的 一 个 整体 。 例 如 ， 一 个 有 理 数 是 完全 由 它 的 分 子 和 分 母 确定 的 。 如 果 出 现 了 修改 ， 这 一 
观点 也 就 不 再 合法 了 ， 此 时 复合 数据 对 象 有 了 一 个 “标识 ”， 而 它 又 是 与 组 成 这 一 对 象 的 各 片 
段 都 不 同 的 东西 。 即 使 我 们 通过 提 款 修改 了 一 个 账户 的 余额 ， 这 个 账户 仍然 是 “同一 个 ” 账 
户 。 与 此 相反 ， 我 们 也 可 能 有 两 个 银行 账户 ， 它 们 具有 相同 的 状态 信息 。 这 种 复杂 性 是 将 银 
行 账户 看 作 一 个 对 象 而 产生 的 结果 ， 而 不 是 程序 设计 语言 的 问题 。 例 如 ， 通 常 我 们 不 将 一 个 
有 理 数 看 作 具 有 标识 的 可 修改 对 象 ， 并 不 想 修改 其 分 子 并 保持 “同一 个 ”有 理 数 。 


命令 式 程序 设计 的 缺陷 
与 函数 式 程序 设计 相对 应 的 ， 广 泛 采 用 赋值 的 程序 设计 被 称 为 命令 式 程序 设计 。 除了 会 


38 -个 计算 对 象 可 以 通过 多 于 一 个 名 字 访 问 的 现象 称 为 别名 。 共 有 银行 账户 的 例子 里 展示 的 是 别名 的 一 种 最 简 
单 情况 。 在 3.3 节 里 ， 我 们 还 将 看 到 一 些 更 复杂 的 例子 ， 例如“ 不同” 数据 结构 共享 某 些 部 分 。 如 果 对 一 个 对 
象 的 修改 可 能 由 于 “副作用 ”而 修改 了 另 一 “不 同 的 ”对 象 ， 因 为 这 两 个 “不 同 ” 对 象 实 际 上 只 是 同一 个 对 
象 的 不 同 别名 ， 当 我 们 忘记 这 一 情况 ， 程 序 里 就 可 能 出 现 错误 。 这 种 错误 被 称 作 副 作用 错误 ， 是 特别 难以 定 
位 和 分 析 的 ， 因 此 某 些 人 建议 说 ， 程 序 设计 语言 的 设计 应 该 不 允许 副作用 或 者 别名 (Lampson et al. 1981, 
Morris, Schmidt, and Wadler 1980) , 





导致 计算 模型 的 复杂 性 之 外 ， 以 命令 式 风 格 写 出 的 程序 还 很 容易 出 现 一 些 不 会 在 国 数 式 程序 
中 出 现 的 错误 。 举 例 来 说 ， 现 在 重 看 一 下 1.2.1 节 里 的 迭代 式 求 阶乘 程序 ， 
(define (factorial n) 
(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 
(iter 1 1)) 


RETARA ABBR RGR MS BS Re, MA RA Bee Se, ， 显 式 地 通过 赋值 去 更 
新 变量 Product 和 counteL 的 值 : 


(define (factorial n) 
(let ((product 1) 
(counter 1)) 
(define (iter) 
(if (> counter n) 
product 
(begin (set! product (* counter product) ) 
(set! counter (+ counter 1)) 
{iter)))) 
(iter))) 


这 样 做 不 会 改变 程序 产生 的 结果 ， 但 却 会 引进 一 个 很 微妙 的 陷阱 。 我 们 应 该 如 何 确定 两 个 赋 
值 的 顺序 呢 ? 像 上 面 那样 写 出 的 程序 是 正确 的 ， 但 如 果 以 相反 顺序 写 这 两 个 赋值 ; 


(set! counter (+ counter 1)) 
(set! product (* counter product) ) 


就 会 产生 出 与 上 面 不 同 的 错误 结果 。 一 般 而 言 ， 带 有 赋值 的 程序 将 强迫 人 们 去 考虑 赋值 的 相 
对 顺序 ， 以 保证 每 个 语句 所 用 的 是 被 修改 变量 的 正确 版 本 。 在 函数 式 程序 设计 中 ， 这 类 问题 
根本 就 不 会 出 现 2??。 

如 果 考 虑 有 着 多 个 并 发 执行 的 进程 的 应 用 程序 ， 命 令 式 程序 设计 的 复杂 性 还 会 变 得 更 粳 
粒 。 我 们 将 在 3.4 节 回 到 这 个 问题 。 现 在 首先 需要 解决 的 问题 ， 当 然 是 为 涉及 赋值 的 表达 式 提 
供 一 种 计算 模型 ， 以 便 考 察 在 模拟 的 设计 中 如 何 使 用 具有 局 部 状态 的 对 象 。 

练习 3.7 ”考虑 如 练习 3.3 所 描述 的 ， 由 make-account 创 建 的 带 有 密码 的 银行 账户 对 象 。 
假定 我 们 的 银行 系统 中 需要 一 种 提供 共用 账户 的 能 力 。 请 定义 过 程 make-joint 创 建 这 种 账 
户 。make-joint 应 该 有 三 个 参数 : 第 一 个 是 有 密码 保护 的 账户 ， 第 二 个 参数 是 一 个 密码 ， 
它 必须 与 那个 已 经 定义 的 账户 的 密码 匹配 ， 以 使 nake-joint 操 作 能 够 继续 下 去 ， 第 三 个 参 
数 是 新 密码 。make- joint 用 这 一 新 密码 创建 起 对 那个 原 有 账户 的 另 一 访问 途径 。 例 如 ， 如 


139 这 种 看 法 也 说 明 ， 大 部 分 的 引 论 性 程序 设计 课程 采用 高 度 命 令 式 风格 教授 ， 这 确实 是 一 件 令 人 啼笑 省 非 的 事 

、 情 。 这 一 情况 可 能 源 自 20 世纪 60 年 代 到 70 年 代 中 流行 的 一 种 常见 看 法 的 残存 遗迹 ， 那 种 看 法 说 调用 过 程 的 程 
序 一 定 比 执行 赋值 的 程序 效率 更 低 (Steele (1977) 批驳 了 这 一 论断 )。 还 有 ， 这 种 情况 也 可 能 反应 了 另 一 种 
观点 ， 认 为 让 初学 者 一 步 步 地 看 赋值 比 观 察 过 程 调用 更 容易 。 无 论 出 于 什么 原因 ， 它 总 是 给 初学 程序 设计 的 
大 们 增加 了 关注 “我 应 该 把 给 这 个 变量 的 赋值 放 在 另 一 个 之 前 呢 还 是 之 后 ”的 负担 ， 这 会 使 程序 设计 复 杂 化 ， 
也 使 其 中 的 主要 思想 变 模糊 了 。 
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果 peter-acc 是 一 个 具有 密码 open-~sesame 的 银行 账户 ， 那 么 


(define paul-acc 
(make-joint peter-acc ’open~sesame ‘rosebud) ) 


将 使 我 们 可 以 通过 名 字 paul1-acc 和 密码 rosebud 对 账户 peter~acc 做 现金 交易 。 你 可 能 希 
望 修改 自己 对 练习 3.3 的 解 ， 加 入 这 一 新 功能 。 

练习 3.8 ”在 1.1.3 节 定义 求 值 模型 时 我 们 说 过 ， 求 值 一 个 表达 式 的 第 一 步 就 是 求 值 其 中 的 
子 表 达 式 。 但 那 时 并 没有 说 明 应 该 按 怎 样 的 顺序 对 这 些 子 表达 式 求 值 (例如 ， 是 从 左 到 右 还 
是 从 右 到 左 )。 当 我 们 引进 了 赋值 之 后 ， 对 一 个 过 程 的 各 个 参数 的 求 值 顺序 不 同 就 可 能 导致 不 
同 的 结果 。 请 定义 一 个 简单 的 过 程 E ， 使 得 对 于 (+ (E£ 0) (E 1)) 的 求 值 在 对 实际 参数 采 
用 从 左 到 右 的 求 值 顺序 时 返回 0， 而 对 实际 参数 采用 从 右 到 左 的 求 值 顺序 时 返回 1 。 


3.2 求 值 的 环境 模型 


我 们 在 第 1 章 引 进 复合 过 程 时 ， 采 用 求 值 的 代 换 模型 ( 见 1.1.5 节 ) 定义 了 将 过 程 应 用 于 实 
际 参数 的 意义 。 | 

。 将 一 个 复合 过 程 应 用 于 一 些 实际 参数 ， 就 是 在 用 各 个 实际 参数 代 换 过 程 体 里 对 应 的 形式 

参数 之 后 ， 求 值 这 个 过 程 体 。 

一 日 我 们 把 赋值 引进 程序 设计 语言 之 后 ， 这 一 定义 就 不 再 合适 了 。 特 别 是 在 3.1.3 节 我 们 
已 经 论证 了 ， 由 于 赋值 的 存在 ， 变 量 已 经 不 能 再 看 作 仅 仅 是 某 个 值 的 名 字 。 此 时 的 一 个 变量 
必须 以 某 种 方式 指定 了 一 个 “位 置 "， 相 应 的 值 可 以 存储 在 那里 。 在 我 们 的 新 求 值 模型 里 ， 这 
种 位 置 将 维持 在 称 为 环境 的 结构 中 。 

个 环境 就 是 框架 (frame) 的 一 个 序列 ， 每 个 框架 是 包含 着 一 些 约束 的 一 个 表格 (可 能 
为 空 )， 这 些 约束 将 一 些 变 量 名 字 关 联 于 对 应 的 值 (在 一 个 框架 里 ， 任 何 变量 至 多 只 能 有 一 个 
约束 )。 每 个 框架 还 包含 着 一 个 指针 ， 指 向 这 一 框架 的 外 图 环境 。 如 果 由 于 当前 讨论 的 目的 ， 
将 相应 的 框架 看 作 是 全 局 的 ， 那 么 它 将 没有 外 围 环境 。 一 个 变量 相对 于 某 个 特定 环境 的 值 ， 
也 就 是 在 这 一 环境 中 ， 包 含 着 该 变量 的 第 一 个 框架 里 这 个 变量 的 约束 值 。 如 果 在 序列 中 并 不 
存在 这 一 变量 的 约束 ， 那 么 我 们 就 说 这 个 变量 在 该 特定 环境 中 是 无 约束 的 。 | 

图 3-1 展 示 了 一 个 简单 的 环境 结构 ， 其 中 包含 了 3 个 框架 ， 分 别 用 [、I 和 II 标记 。 在 这 个 
图 里 ，A、B 、C 和 D 都 是 环境 指针 ， 其 中 C 和 D 指 向 同一 个 环境 。 变 量 z 和 x 在 框架 II 里 约束 ， 
而 变量 y 和 x 在 框架 I 里 约束 。x 在 环境 D 里 的 值 是 3，x 相 对 于 环境 B 的 值 也 是 3。 后 一 情况 应 按 
如 下 方式 确定 ; 我 们 首先 检查 序列 中 的 第 一 个 框架 (框架 1) ， 在 这 里 没有 找到 x 的 约束 ， 因 
此 继续 前 进 到 外 围 环境 D 并 在 框架 I 里 找到 了 相应 的 约束 。 在 另 一 方面 ，x 在 环境 A 中 的 值 就 是 
7， 因 为 序列 中 的 第 一 个 框架 ( 柜 架 代 ) 里 包含 x 与 7 的 约束 。 相 对 于 环境 A ， 我 们 说 在 框架 II 
里 x 与 7 的 约束 让 亦 了 框架 I 里 x 与 3 的 约束 。 | 

HT RIM RE XE IY, Hoh CNET ORG EV. REL, RNS 
全 可 以 说 ， 在 一 个 程序 语言 里 的 一 个 表达 式 本 身 根本 没有 任何 意义 。 即 使 像 (+ 1 1) 这 样 
极其 简单 的 表达 式 ， 其 解释 也 要 依赖 于 有 关 的 操作 是 在 某 个 上 下 文 里 进行 的 ， 在 那里 + BR 
示 加 法 的 符号 。 这 样 ， 在 现在 讨论 的 求 值 模型 中 ,我们 将 总 说 某 个 表达 式 相 对 于 某 个 环境 的 
求 值 。 为 了 描述 与 解释 器 的 交互 作用 ， 我 们 将 始终 假定 存在 着 一 个 全 局 环境 ， 它 只 包含 着 一 
个 框架 (没有 外 围 环境 )， 这 个 环境 里 包含 着 所 有 关联 于 基本 过 程 的 符号 的 值 。 例 如 ， 有 关 十 
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图 3-1 一 个 简单 的 环境 结构 


是 表示 加 法 的 符号 这 一 观念 ， 在 这 里 的 表现 就 是 ,符号 + 在 全 局 环境 中 被 约束 到 相应 的 基本 
加 法 过 程 。 | 


3.2.1 求 值 规 则 


关于 解释 器 如 何 求 值 一 个 组 合式 的 问题 ， 其 整体 描述 仍然 与 我 们 在 1.1.3 节 中 第 一 次 介绍 
时 完全 一 样 。 
© 如果 要 对 一 个 组 合 表 达 式 求 值 : 
1) 求 值 这 一 组 合式 里 的 各 个 子 表达 式 “， 
2) 将 运算 符 子 表达 式 的 值 应 用 于 运算 对 象 子 表 达 式 的 值 。 
现在 我 们 要 用 求 值 的 环境 模型 代替 求 值 的 代 换 模型 ， 在 这 一 模型 里 需要 特别 说 明 将 一 个 
复合 过 程 应 用 于 参数 表示 的 是 什么 。 
在 求 值 的 环境 模型 里 ， 一 个 过 程 总 是 一 个 对 偶 ， 由 一 些 代 码 和 一 个 指向 环境 的 指针 组 成 。 
过 程 只 能 通过 一 种 方式 创建 ， 那 就 是 通过 求 值 一 个 lambda 表 达 式 。 这 样 产生 出 的 过 程 的 代码 
来 自 这 一 lambda 表 达 式 的 正文 ， 其 环境 就 是 求 值 这 个 lambda 表 达 式 ， 产 生出 这 个 过 程 时 的 
那个 环境 。 举 个 例子 ， 考 虑 在 全 局 环境 里 求 值 下 面 的 过 程 定 义 : 
(define (square x} | 
(* x X)) 
TRE MANE, TEAR EME SlambdakkKAWBEMK, HME RR 
是 写成 下 面 等 价 的 表示 : 
(define square 
(lambda (x) (* x X))) 


其 中 求 值 (lambda (x) (* x x)), H Bsquare HRT ik — RE PIAS KR, 这 些 都 


是 在 全 局 环境 中 完成 的 。 
图 3-2 展 示 的 是 求 值 这 一 define 表 达 式 的 结果 ， 这 里 的 过 程 对 象 是 一 个 序 对 ， 其 代码 部 


40 赋值 的 存在 给 求 值 规则 的 步骤 1 引进 一 个 微妙 问题 。 正如 练习 3.8 所 述 ， 赋值 的 存在 使 我 们 可 以 写 出 一 些 表 达 
式 ， 如 果 以 不 同 的 顺序 对 组 合式 中 各 个 子 表达 式 的 求 值 ， 它 们 就 会 产生 出 不 同 的 值 。 这 样 ， 为 了 更 精确 些 ， 
我 们 就 需要 说 明 步 难 1 的 特定 顺序 (例如 从 左 到 右 )}。 然 而 ， 这 种 顺序 应 该 总 看 作 是 一 个 实现 细 市 ， 我 们 永远 
也 不 要 去 写 依赖 于 特定 顺序 的 程序 。 举 例 来 说 ， 如 果 一 个 复杂 的 编译 器 去 做 程序 的 优化 ， 它 完 全 可 能 改变 其 
中 各 子 表达 式 的 求 值 顺 序 。 
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全 局 其 他 变量 


环境 


square: 







(define (Square x) 


(* x x)) 


参数 :x 
过 程 体 : (* x x) 
图 -2 由 在 全 局 环境 中 求 值 (define (square x) 
(* x xX)) 而 产生 的 环境 结构 


分 描述 的 是 一 个 带 有 一 个 形式 参数 x 的 过 程 ， 过 程 体 是 (* x x)。 过 程 对 象 的 环境 部 分 是 一 
个 指向 全 局 环境 的 指针 ， 因 为 产生 这 个 过 程 的 lambda 表 达 式 是 在 全 局 环境 中 求 值 的 。 这 个 定 
义 在 全 局 框架 中 加 入 了 一 个 新 约 东 ， 将 上 述 过 程 对 象 约束 于 符号 s quare。 一 般 而 言 ， 
define 建 立定 义 的 方式 就 是 将 新 的 约束 加 入 框架 里 。 | 

我 们 已 经 看 到 了 创建 过 程 的 有 关 情 况 ， 现 在 就 可 以 描述 过 程 的 应 用 了 。 环 境 模型 说 明 : 
在 将 一 个 过 程 应 用 于 一 组 实际 参数 时 ， 将 会 建立 起 一 个 新 环境 ， 其 中 包含 了 将 所 有 形式 参数 
约束 于 对 应 的 实际 参数 的 框架 ， 该 框架 的 外 围 环境 就 是 所 用 的 那个 过 程 的 环境 。 随 后 就 在 这 
个 新 环境 之 下 求 值 过 程 的 体 。 | 

为 了 演示 这 一 规则 的 实施 情况 ， 图 3-3 展 示 了 通过 在 全 局 环境 里 对 表达 式 (square 5) 
求 值 而 创建 起 来 的 环境 结构 ， 其 中 的 square 是 图 3-2 里 生成 的 过 程 。 这 一 过 程 应 用 的 结果 是 
创建 了 一 个 新 环境 ， 在 图 中 标记 为 El1 。 这 个 环境 从 一 个 框架 开始 ， 框 架 里 包含 着 将 这 个 过 程 
的 形式 参数 x 约束 到 实际 参数 5。 从 这 一 框架 引出 的 指针 说 明 这 个 框架 的 外 围 环境 就 是 全 局 环 
境 。 在 这 个 地 方 之 所 以 应 该 选择 全 局 环境 ， 是 因为 它 就 是 作为 square 过 程 对象 的 一 部 分 的 那 
个 环境 。 现 在 我 们 要 在 E1 里 求 值 过 程 的 体 (* x x)。 因 为 在 El 里 x 的 值 是 5， 所 以 求 值 结果 
是 (* 5 5)， 也 就 是 25。 | 


全 局 其 他 变量 
环境 square: 
(square 5) 





参数 :x (* x X) 
过 程 体 : (* x x) 


图 3-3 在 全 局 环境 里 求 值 (square 5) 创建 出 的 环境 
我 们 可 以 把 过 程 应 用 的 环境 模型 总 结 为 下 面 两 条 规则 : 
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# 


* 将 一 个 过 程 对 象 应 用 于 一 集 实 际 参 数 ， 将 构造 出 一 个 新 框架 ， 其 中 将 过 程 的 形式 参数 约 

束 到 调用 时 的 实际 参数 ， 而 后 在 构造 起 的 这 一 新 环境 的 上 下 文中 求 值 过 程 体 。 这 个 新 框 

架 的 外 围 环境 就 是 作为 被 应 用 的 那个 过 程 对 象 的 一 BOATA. 

“ 相对 于 一 个 给 定 环 境 求 值 一 个 Lambda 表 达 式 ， 将 创建 起 一 个 过 程 对 象 ， 这 个 过 程 对 象 

hit), shigtambaades Atha acm Maman eRO AHH, ek ctyeh eats 

就 是 创建 这 个 过 程 对 象 时 的 环境 。 

我 们 也 已 经 说 明了 ， 用 define 定 义 一 个 符号 ， 也 就 是 在 当前 环境 框架 里 建立 一 个 约束 ， 
并 赋予 这 个 符号 指定 的 值 ''。 最 后 让 我 们 来 说 明 set 1 的 行为 方式 ， 因 为 一 开始 就 是 由 于 这 个 
操作 的 存在 ， 人 迫使 我 们 引进 上 述 的 环境 模型 。 在 某 个 环境 里 求 值 表达 式 (set! <variable> 
<value> )， 要 求 我 们 首先 在 环境 中 确定 有 关 变 量 的 约束 位 置 ， 而 后 再 修改 这 个 约束 ， 使 之 表示 
这 个 新 值 。 这 也 就 是 说 , 首先 需要 找到 包含 这 个 变量 的 约束 的 第 一 个 框架 ,而 后 修改 这 一 框架 。 
如 果 该 变量 在 环境 中 没有 约束 ，set! 将 报告 一 个 错误 。 

这 些 求 值 规则 显然 比 代 换 规则 复杂 了 许多 ， 但 也 还 是 相当 直截了当 的 。 进 一 步 说 ， 虽 然 
这 一 求 值 模型 比较 抽象 ， 但 它 却 为 解释 器 对 于 表达 式 求 值 的 过 程 提供 了 一 个 正确 的 描述 。 在 
第 4 章 里 我 们 将 看 到 ， 这 一 模型 如 何 能 成 为 实现 一 个 可 以 工作 的 解释 器 的 蓝图 。 下 面 几 节 将 要 
分 析 几 个 具有 阐释 意义 的 实例 ， 以 进一步 揭示 这 一 模型 的 各 方面 细节 。 


3.2.2 简单 过 程 的 应 用 


在 1.1.5 节 里 介绍 代 换 模型 时 ,我 们 展示 了 在 有 下 面 的 过 程 定义 之 后 ， 组 合式 (f 5) 怎 
样 求 值得 到 136. | 
(define (square x) 
(* x x)) 
(define (sum-of-squares x y) 
(+ (square x) (square y))) 
(define (f a) 
(sum-of-squares (+ a 1) (* a 2))) | | 
现在 我 们 用 环境 模型 来 分 析 同 一 个 实例 。 图 3-4 展 示 出 在 全 局 环境 里 对 、square 和 sum- 
of-squares 的 定义 求 值 后 创建 起 的 三 个 过 程 对 象 ， 每 个 过 程 对 象 都 由 一 些 代码 和 一 个 指向 
全 局 环境 的 指针 组 成 。 
在 图 3-5 里 ,我们 看 到 的 是 由 对 ( 5) 的 求 值 创建 起 的 环境 结构 。 对 于 f 的 调用 创建 了 
一 个 新 环境 El1， 它 开始 于 一 个 框架 ， 其 中 f 的 形式 参数 a 被 约束 到 实 参 5， 我 们 需要 在 El 里 求 
EERI: 
(sum-of-squares (+ a 1) (* a 2)). 
在 求 值 这 个 组 合式 时 ， 首 先 需要 求 值 其 中 的 子 表达 式 。 第 一 个 子 表达 式 sum-of- Squares 以 
一 个 过 程 对 象 为 值 ( 请 注意 看 这 个 值 是 如 何 找到 的 : 首先 在 El 的 第 一 个 框架 中 找 ， 这 里 没有 
包含 sum-of-squares 的 约束 。 而 后 进入 有 关 的 外 围 环境 ， 即 全 局 环境 ， 并 在 那里 找到 了 图 


M 如 果 在 当前 框架 中 已 经 有 了 对 这 一 变量 的 约束 ， 那 么 该 约束 就 会 改变 。 这 样 做 比较 方便 ， 因 为 它 允 许 符号 的 
重新 定义 ， 这 当然 也 就 意味 着 可 以 用 define 去 修改 符号 的 值 ， 因 此 ， 在 这 里 没有 显 式 使 用 set! 却 带 来 了 同 
样 的 问题 。 正 因为 此 ， 有 些 人 觉得 在 出 现 重 新 定义 时 应 该 发 出 错误 或 者 警告 信息 。 
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sum-Of-squares: 





全 局 square: 
环境 
大 
BR: a 参数 : x 参数 : x, Y 
过 程 体 : (sum-of-squares) 过 程 体 : (* x x) 过 程 体 : (+ (square x) 
(+ a 1) (square y) 
(* a 2)) 


图 3-4 全 局 框架 里 的 几 个 过 程 对 象 





(sum~of-squares (+ (square x) (* X x) (* x X) 
(+ a 1) (square y) 
(* a 2)) 


图 3-5 使 用 图 3-4 里 的 过 程 求 值 (E 5 ) 创建 的 环境 


3-4 所 示 的 约束 )。 对 另外 两 个 表达 式 的 求 值 是 应 用 两 个 基本 运算 符 + 和 * ， 通 过 求 值 组 合式 
(+a 1) fn (* a 2) 分 别 得 到 6 和 10。 

现在 需要 把 过 程 对 象 sum-of-squares 应 用 于 实 参 6 和 10， 这 时 得 到 的 是 一 个 新 环境 E2， 
”形式 参数 x 和 y 在 其 中 约束 于 对 应 的 实际 参数 。 现 在 要 做 的 就 是 在 E2 里 求 值 组 合式 (+ 
(square x) (square y))。 这 进一步 要 求 我 们 求 值 (square x)， 其 中 的 square 从 全 
局 环境 中 找到 ， 而 x 是 6。 我 们 又 需要 设 定 另 一 个 新 环境 E3 ， 其 中 将 x 约束 到 6 ， 并 在 这 里 求 值 
square 的 体 (* x x)。 作 为 sum-of-squares 应 用 的 另 一 部 分 ， 我 们 还 必须 求 值 子 表达 
式 (square y)， 其 中 的 y 是 10。 这 是 对 square 的 第 二 个 调用 ， 它 创建 起 另 一 个 环境 E4， 
其 中 square 的 形式 参数 x 约束 到 10。 我 们 必须 在 E4 里 求 值 (* x x), 

这 里 应 注意 的 要 点 是 ， 对 于 square 的 每 个 调用 都 会 创建 起 一 个 包含 着 x 的 约束 的 新 环境 。 
我 们 可 以 看 到 ， 这 里 就 是 通过 不 同 的 框架 ， 去 维持 所 有 名 字 为 x 的 局 部 变量 互 不 相同 。 还 请 注 
音 ， 由 square 创 建 的 每 个 框架 都 指向 全 局 环境 ， 因 为 这 就 是 对 应 于 square 的 过 程 对 象 所 指 
定 的 环境 。 

各 个 子 表达 式 求 值 后 返回 得 到 的 值 。 对 square 的 两 个 调用 产生 的 值 被 sum~of -squares 
加 起 来 ， 作 为 求 值 的 结果 返回 。 因 为 我 们 在 这 里 关心 的 是 环境 结构 ， 因 此 将 不 详细 考察 这 些 返 
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回 值 如 何在 调用 之 间 传 递 的 问题 。 当 然 ， 这 件 事情 也 是 求 值 过 程 中 的 一 个 重要 方面 ， 我 们 将 在 
第 5 章 回 到 这 一 问题 。 
练习 3.9 在 1.2.1 节 里 ， 我 们 用 代 换 模型 分 析 了 两 个 计算 阶乘 的 函数 ， 递 归 版 本 : 
(define (factorial n) 
(if (=n 1) 
1 
(* n (factorial (= n 1))))) 


和 和 迭代 版 本 : 
(define (factorial n) 
(fact-iter 1 1 n)) 


(define (fact-iter product counter max-count) 
(if (> counter max-count) 
product 
(fact-iter (* counter product) 
(+ counter 1) 
max-count) )) 


请 说 明 采 用 过 程 factorial 的 上 述 版 本 求 值 (factorial 6) 时 所 创建 的 环境 结构 '。 
3.2.3 ”将 框架 看 作 局 部 状态 的 展台 


现在 可 以 从 环境 模型 出 发 ， 看 看 可 以 怎样 用 过 程 和 赋值 表示 带 有 局 部 状态 的 对 象 。 作 为 
一 个 例子 ， 还 是 若 虑 取 自 3.1.1 节 的 由 调用 下 面 过 程 创建 的 “ 提 款 处 理 器 : 
(define (make-withdraw balance) 
(lambda (amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 


balance) 
"Insufficient funds") ) ) 
让 我 们 仔细 看 看 下 式 的 求 值 : 
(define Wl (make-withdraw 100 ) ) 
而 后 做 : 
(W1 50) 
50 


图 3-6 展 示 了 在 全 局 环境 里 定义 make-withdraw 过 程 的 结果 。 这 一 求 值 产生 出 一 个 过 程 对 象 ， 
其 中 包含 着 一 个 指向 全 局 环境 的 指针 。 到 目前 为 此 ， 在 这 个 实例 里 还 没有 出 现任 何 与 前 面 看 
过 的 实例 不 同 的 东西 ， 除 了 过 程 体 本 身 也 是 一 个 lambda 表 达 式 之 外 。 

计算 中 的 有 趣 现 象 出 现在 将 过 程 make-withdraw 应 用 于 一 个 参数 的 时 候 : 

(define Wl (make-withdraw 100)) | 
与 平常 一 样 ， 我 们 在 开始 时 设置 了 环境 El1， 其 中 将 形式 参数 balance 约 束 到 实 参 100 ， 并 在 
这 一 环境 里 求 值 nake-withdraw 的 体 ， 也 就 是 那个 lambda 表 达 式 。 这 一 求 值 构 造 起 一 个 新 


42 这 种 环境 模型 还 不 能 澄清 我 们 在 1.2.1 节 的 断言 ， 那 里 说 解释 器 使 用 了 尾 递 归 ， 只 需要 常量 空间 就 可 以 执行 像 
fact-iter 这 样 的 过 程 。 我 们 将 在 5.4 节 里 讨论 解释 器 的 控制 结构 时 处 理 尾 递 轨 问题 。 
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过 程 对 象 ， 其 代码 由 这 个 lambda 描 述 ， 而 它 的 环境 就 是 E1 ， 也 就 是 求 值 这 个 Lambda 生 成 该 
过 程 对 象 时 的 那个 环境 。 这 样 做 出 的 过 程 对 象 被 作为 调用 make-withdraw 的 返回 值 ， 在 全 
局 环境 里 约束 于 W1 ， 因 为 对 这 个 aefine 本 身 的 求 值 是 在 全 局 环境 里 进行 的 。 图 3-7 显示 出 这 
样 做 的 结果 得 到 的 环境 结构 。 













全 局 make-withdraw: 
环境 
参数 : balance 
过 程 体 : (lambda (amount) 
(if (>=balance amount) 
(begin (set! balance (-balance amount) ) 
balance) . 
"Insufficient funds")) 
图 3-6 在 全 局 环境 里 定义 make-withdraw 的 结果 
make-withdraw: 
全 局 


环境 Wl: 


balance: 100 





参数 : balance 
过 程 体 : 。 。 。 


参数 : amount 
过 程 体 : (if (>=balance amount) 
(begin (set ! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 


图 3-7 kik (define Wl (make-withdraw 100)) 的 结果 


现在 让 我 们 来 分 析 将 W1 应 用 于 一 个 参数 时 所 发 生 的 情况 : 

(W1 50) 

50 

”此 时 首先 要 构造 出 一 个 框架 ，W1 的 形式 参数 amount 在 其 中 约束 到 实 参 50。 需 要 注意 的 最 关 
键 一 点 是 ， 这 个 框架 的 外 围 环境 并 不 是 全 局 环境 ,而 是 环境 E1， 因 为 它 才 是 由 过 程 对 象 W1 所 
指定 的 环境 。 现 在 我 们 需要 在 这 个 新 环境 里 求 值 下 面 的 过 程 体 : 


(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 





balance) 
"Insufficient funds") 


这 样 做 得 到 的 环境 结构 如 图 3-8 所 示 。 在 被 求 值 的 表达 式 里 引用 了 amount balance, Hih 
的 amount 在 环境 里 的 第 一 个 框架 里 找到 ， 而 balance 则 沿 着 外 围 环境 指针 向 前 在 El 里 找 
到 。 











这 里 是 由 set 
改变 的 平衡 


balance: 100 


Eee 
参数 : amount (if (>=balance amount) 
过 程 体 :; ， . - (begin 


(set ! balance 
(- balance amount) ) 
balance) 
"Insufficient funds") ) 


图 3-8 ict A RWI 创建 起 的 环境 


在 执行 set! 时， 位 于 E1 里 palance 的 约束 就 被 修改 了 。 对 W1L 的 调用 完成 时 ，balance 
是 50， 而 包含 着 这 个 balance 的 框架 仍 由 过 程 对 象 W1 指 着 。 约 束 amount 的 那个 框架 (我们 
曾经 在 其 中 执行 了 修改 的 balance 代 码 ) 现在 已 经 无 关 紧 要 了 ， 因 为 构造 它 的 过 程 已 经 结束 ， 
环境 中 的 任何 一 部 分 都 不 再 包含 指向 这 个 框架 的 指针 。 在 下 次 W1 被 调用 时 ， 这 一 过 程 又 会 构 
造 起 另 一 个 新 框架 ， 其 中 建立 起 amount 的 一 个 新 约束 ， 这 一 框架 的 外 围 环 境 还 是 E1 。 根 据 
上 面 的 分 析 ， 我 们 可 以 看 到 El 怎样 起 着 保存 过 程 对 象 的 局 部 状态 变量 的 “位 置 ”的 作用 。 图 
3-9 展 示 的 是 调用 Wil 之 后 的 情景 。 






make-withdraw: ... 


全 局 


一 一 
环境 Wl: 
区 
参数 : amount 


图 3-9 调用 呐 之 后 的 环境 
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现在 来 看 我 们 通过 再 次 调用 make-withdraw， 创 建 起 第 二 个 “ 提 款 ”对 象 的 情况 : 

(define W2 (make-withdraw 100)) 
这 样 做 产生 出 的 环境 结构 如 图 3-10 所 示 ， 其 中 显示 了 W2 是 另 一 个 过 程 对 象 ， 也 就 是 说 ， 是 一 
些 代码 和 一 个 环境 的 序 对 。 通 过 调用 make-withdraw 为 W2 创建 起 的 环境 是 E2， 它 包含 了 一 
个 框架 ， 其 中 包含 着 它 自己 的 对 balance 的 局 部 约束 。 在 另 一 方面 Wl1 和 W2 具有 相同 的 代 
码 ， 也 就 是 在 make-withdraw 体 内 的 那个 lambda 表达 式 所 确定 的 代码 。 我 们 从 这 里 就 可 
以 看 到 ， 为 什么 W1 和 W2 在 行为 上 完全 是 互相 独立 的 对 象 。 对 W1 的 调用 引用 的 是 保存 在 El 里 
的 状态 变量 balance ， 而 对 W2 的 调用 引用 的 是 E2 里 的 balance。 这 样 ， 修 改 一 个 对 象 的 局 
部 状态 当然 不 会 影响 到 另 一 个 对 象 。 


make-withdraw: ... 


全 局 
环境 


W2: 
Wl: 





El E2 balance: 100 


参数 : amount 
过 程 体 : 。。 ， 


图 3-10 使 用 (define W2 (make-withdraw 100)) 创建 第 2 个 对 象 


练习 3.10 “在 make-withdraw 过 程 里 ， 局 部 变量 balance 是 作为 make-withdaraw 的 
参数 创建 的 。 我 们 也 可 以 显 式 地 通过 使 用 let 创建 局 部 状态 变量 ， 就 像 下 面 所 做 的 ; 
(define (make-withdraw initial~amount) 
(let ((balance initial-amount) ) 
(lambda (amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds")))) 


请 重 温 1.3.2 节 ，1let 实 际 上 是 一 个 过 程 调用 的 语法 糖衣 : 
(let ((<var><exp>)) <body>) 
它 将 被 解释 为 
((lambda (<var>) <body>) <exp>) 
的 另 一 种 语法 形式 。 请 用 环境 模型 分 析 make-withdraw 的 这 个 版 本 ， 画 出 像 上 面 那样 的 图 
示 ， 说 明 调 用 : 


43 究竟 Wl1 和 W2 是 共享 计算 机 里 保存 的 同一 段 物理 代码 ， 还 是 各 自 维持 自己 的 一 份 拷 贝 ， 则 完全 是 一 种 实现 细 
节 。 我 们 在 第 4 章 实现 的 解释 器 里 采用 共享 代码 的 方式 。 
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(define W1 (make-withdraw 100)) 
(W1 50) 


(define W2 (make-withdraw 100) ) ] 


时 的 情况 并 阐释 make-withdraw 的 这 两 个 版 本 创建 出 的 对 象 具 有 相同 的 行为 。 两 个 版 本 的 
环境 结构 有 什么 不 同 吗 ? 


3.2.4 内 部 定义 


1.1.8 节 介绍 了 过 程 可 以 有 内 部 定义 的 思想 ， 这 样 就 引入 了 块 结构 ， 就 像 下 面 计算 平方 根 
的 过 程 里 的 情况 : 
(define (sqrt x) 
(define (good-enough? guess) 
(< (abs (- (Square guess) x)) 0.001)) 
(define (improve guess) 
(average guess (/ x guess))) 
(define (sqrt-iter guess) 
(if (good-enough? guess) 
guess 
(sqrt-iter (improve guess)))) 
(sqrt-iter 1.0)) 


现在 我 们 就 可 以 利用 上 面 介 绍 的 环境 模型 ， 去 考察 为 什么 这 些 内 部 定义 具有 所 需要 的 行为 。 
图 3-11 所 示 的 是 在 表达 式 (sqrt 2) 求 值 中 的 一 点 ， 在 那里 ， 内 部 过 程 good~enough? 被 第 
一 次 调用 ， 其 中 的 guess 等 于 1 。 


全 局 sqrt: 


x32 


good-enough? 


El improve: ... 


BM: X sqrt-iter: ... 
过 程 体 : (define good-enough? ...) 
(define improve ...) 


(define sqrt-iter ...) OC 
(sqrt-iter 1.0) 
参数 : guess 


调用 sqrt-iter 过 程 体 : (< (abs...) 


。。) 


调用 good-enough? 





图 3-11 带 有 内 部 定义 的 sqrt 过 程 
请 注意 这 时 的 环境 结构 。sqgzrt 是 全 局 环境 里 的 一 个 符号 ， 它 被 约束 到 一 个 过 程 对 象 ， 与 
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之 关联 的 坏 境 就 是 全 局 环境 。 在 sqrt 被 调用 时 ， 形 成 了 一 个 新 的 环境 El ， 它 将 成 为 全 局 环境 
的 下 属 。 在 这 里 ， 参 数 X 约 束 到 2， 而 后 在 El 里 求 值 sqxrt 的 体 。 由 于 sqrt 体 中 的 第 一 个 表达 
式 是 : 

(define (good-enough? guess) 

(< (abs (- (square guess) x)) 0.001)) 
对 这 一 表达 式 的 求 值 在 环境 E1 里 定义 出 过 程 good-enough? 。 说 得 更 准确 一 些 ， 人 符号 good- 
enough? 被 加 入 El1 的 第 一 个 框架 里 ， 并 被 约束 于 一 个 过 程 对 象 ， 其 关联 环境 是 E1 。 与 此 类 似 ， 
improve 和 sqrt~iter 也 在 El 里 定义 为 过 程 。 为 了 简洁 起 见 ， 在 图 3-11 里 只 显示 了 约束 于 
good-enough? 的 过 程 对 象 。 . 

在 定义 好 各 个 局 部 过 程 之 后 ， 表 达 式 (sqrt-iter 1.0) 被 求 值 ， 还 是 在 环境 El 里 。 
因此 ， 调 用 在 El 里 约束 于 sqrt~iter 的 过 程 对 象 时 ， 我 们 以 1 作为 实际 参数 。 这 一 调用 创建 
了 另 一 个 环境 E2， 在 其 中 sqrt-iter 的 形 参 9uess 被 约束 到 1 。sqrt-iter 转 而 (从 Ez 里) 
以 guess 的 值 作为 实际 参数 调用 good-enough?, 这 就 建立 了 另 一 个 环境 E3 ， 在 这 个 环境 里 ， 
(good-enough? 的 参数 ) guess 被 约束 到 1 。 虽 然 sSqrt-iter 和 good-enough? 里 都 有 名 
字 为 guess 的 形 参 ， 但 它们 是 两 个 不 同 的 局 部 变量 ， 位 于 不 同 的 框架 里 。 还 有 ，B2 和 E3 都 以 
El 作为 其 外 围 环 境 ， 这 是 因为 过 程 sqrt-iter 和 good-enough? 都 以 El 作为 自己 的 环境 部 
分 。 这 种 情况 造成 的 一 个 后 果 就 是 ， 出 现在 900d-enough? 体 内 部 的 符号 x 将 引用 出 现在 El 
里 的 x 约束 ， 也 就 是 原来 sqrt 被 调用 时 的 那个 x 的 值 。 这 样 ， 环 境 模型 已 经 解释 清楚 了 以 局 部 

过 程 定义 作为 程序 模块 化 的 有 用 技术 中 的 两 个 关键 性 质 ， 
。 局 部 过 程 的 名 字 不 会 与 包容 它们 的 过 程 之 外 的 名 字 互 相干 扰 ， 这 是 因为 这 些 局 部 过 程 名 
都 是 在 该 过 程 运行 时 创建 的 框架 里 面 约束 的 ， 而 不 是 在 全 局 环境 里 约束 的 。 

。 局 部 过 程 只 需 将 包含 着 它们 的 过 程 的 形 参 作为 自由 变量 , 就 可 以 访问 该 过 程 的 实际 参数 。 
这 是 因为 对 于 局 部 过 程 体 的 求 值 所 在 的 环境 是 外 围 过 程 求 值 所 在 的 环境 的 下 属 。 

练习 3.11 ”在 3.2.3 节 里 我 们 看 到 ， 环 境 模型 能 如 何 用 于 描述 带 有 局 部 状态 的 过 程 的 行为 ， 
现在 我 们 又 看 到 局 部 定义 如 何 工作 。 一 个 典型 的 消息 传递 过 程 包含 这 两 个 方面 。 现 在 请 芳 虑 
3.1.1 节 的 银行 账户 过 程 : 

(define (make-account balance) 

(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds" ) ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) withdraw) 
( (eq? m ’deposit) ‘deposit ) 
(else (error "Unknown request -- MAKE-ACCOUNT" 


m)))) 
dispatch) 


请 设法 展示 由 下 面 交互 序列 生成 的 环境 结构 : 
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(define acc (make-account 50)) 
( (acc ’deposit) 40) 
90 


((ace ’withdraw) 60) 
30 


acc 的 局 部 状态 保存 在 哪里 ?” 假定 我 们 定义 了 另 一 个 账户 : 


(define acc2 (make-account 100)) 


这 两 个 账户 的 局 部 状态 又 是 如 何 保持 不 同 的 ?环境 结构 中 的 哪些 部 分 被 acc 和 acc2 共 享 ? 
3.3 用 变动 数据 做 模拟 


第 2 章 以 复合 数据 作为 构造 具有 多 个 部 分 的 计算 对 象 的 方法 ， 用 于 模拟 真实 世界 里 具有 大 
干 不 同 侧面 的 对 象 。 在 那 一 章 里 ， 我 们 介绍 了 数据 抽象 的 系统 方法 ， 根 据 这 种 方法 ， 各 种 数 
据 结构 应 该 用 构造 函数 (用 于 创建 数据 对 象 ) 和 选择 函数 (用 于 访问 复合 数据 对 象 中 的 各 个 
部 分 ) 来 描述 。 但 是 ， 我 们 现在 又 了 解 到 了 有 关 数 据 结构 的 另外 一 些 情况 ， 这 是 第 2 章 中 没有 
涉及 到 的 。 为 了 模拟 那些 由 具有 不 断 变化 的 状态 组 成 的 系统 ， 我 们 除了 需要 做 复合 数据 对 象 
的 构造 和 成 分 选择 之 外 ， 还 可 能 需要 修改 它们 。 为 了 模拟 具有 不 断 变 化 的 状态 的 复合 对 象 ， 
我 们 将 设计 出 与 之 对 应 的 数据 抽象 ， 使 其 中 不 但 包含 了 选择 函数 和 构造 函数 ， 还 有 包含 一 些 
称 为 改变 函数 的 操作 ， 这 种 操作 能 够 修改 有 关 的 数据 对 象 。 举 例 来 说 ， 对 银行 系统 的 模拟 就 
需要 修改 账户 的 余额 。 这 样 ， 表 示 银 行 账户 的 数据 结构 可 能 就 需要 接受 下 面 的 操作 : 

(set-balance! <account> <new-value>) 

它 将 根据 给 定 的 新 值 修改 指定 账户 的 余额 。 定 义 了 改变 函数 的 数据 对 象 称 为 变动 数据 对 
象 。 7 

is? Bee SET POM Mey Hai BS BE “REE”. REX — BUST ats EE 
对 于 序 对 的 改变 函数 ， 使 序 对 能 够 作为 构造 变动 数据 对 象 的 基本 构件 。 这 些 改变 函数 能 够 极 
大 地 提升 序 对 的 表达 能 力 ,使 人 能 构造 出 (我 们 在 2.2 节 里 使 用 的 ) 序列 和 树 之 外 的 其 他 数据 
结构 。 我 们 还 要 给 出 一 些 模拟 的 实例 ， 其 中 使 用 了 带 有 局 部 状态 的 对 象 的 集合 ， 以 便 模拟 复 


3.3.1 变动 的 表 结 构 


针对 序 对 的 基本 操作 一 -cons 、car 和 cdzr 一 一 能 用 于 构造 表 结构 ， 或 者 选 出 表 结 构 中 
的 名 个 部 分 ,但 它们 不 能 修改 表 结构 。 我 们 至 今 用 过 的 其 他 表 操 作 (例如 append 和 1l1ist ) 
也 都 是 如 此 ， 因 为 它们 都 可 以 基于 cons 、car 和 cdr 定 义 出 来 。 要 修改 表 结 构 就 需要 新 的 
操作 。 E 
针对 序 对 的 基本 改变 函数 是 set-car! 和 set-cdr!。set-car! 要 求 两 个 参数 ， 其 中 的 
第 一 个 参数 必须 是 一 个 序 对 。set-car1! 修 改 这 个 序 对 ， 将 它 的 ca 指针 替换 为 指 妆 set- 
car! 的 第 二 个 参数 的 指针 ”。 

作为 一 个 例子 ， 我 们 假定 x 约束 到 表 ((a b) c d), y 约 束 到 表 (e 于 )， 如 图 3-12 所 示 。 


44 set-car! 和 set-cdr! 的 返回 值 依 赖 于 具体 实现 。 与 et! 一 样 ， 我 们 只 应 该 利用 它们 的 效果 。 
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对 表达 式 (set-car! x y) 的 求 值 将 修改 x 约束 的 那个 表 ， 将 它 的 car 用 y 的 值 取代 。 这 一 
操作 的 结果 如 图 3-13 所 示 。 从 这 个 图 中 ， 我 们 可 以 看 到 结构 x 被 修改 了 ,现在 它 将 被 打印 为 
((e f) c d)。 原 来 由 被 取代 的 指针 标识 的 那个 表示 表 (a b) 的 序 对 ， 现 在 已 经 从 原来 的 
结构 中 摘除 了 '5。 | 





r—>[ plete |” 
eA E 


图 3-12 Æx: ((a b) c d) My: (e £) 





图 3-13 对 图 3-12 的 表 做 (set-car! x y) 的 效果 


我 们 可 以 对 图 3-13 和 图 3-14 做 一 个 比较 。 图 3-14 展 示 的 是 执行 (define z (cons y 
(cdr x))) 的 结果 ,其 中 x 和 y 约 束 到 图 3-12 表 示 的 那样 的 两 个 表 。 这 一 求 值 使 变量 z 约 束 到 
了 由 操作 创建 的 一 个 新 序 对 ， 而 x 约束 的 表 并 没有 改变 。 

set-cdr1 操 作 与 set-car! 类 似 ， 它 们 之 间 的 差异 就 在 于 这 里 被 取代 的 是 序 对 的 cdr 指 
针 ， 而 不 是 car 指针。 对 图 3-12 中 的 表 执 行 (set-cdr! x y) 的 效果 如 图 3-15 所 示 。 在 这 
里 ，x 的 cdr 指 针 被 指向 (e f) 的 指针 取代 。 还 有 ， 原 来 作为 x 的 cdr 的 表 (c d), MEt 
已 经 从 这 一 结构 里 摘 掉 子 。 


45 从 这 里 可 以 看 出 ， 对 于 表 的 改变 函数 可 能 创建 “废料 "， 也 就 是 一 些 东西 ， 它 们 不 再 是 任何 可 访问 结构 的 部 
分 。 我 们 将 在 5.3.2 节 里 看 到 ，Lisp 的 存储 管理 系统 中 包含 着 一 个 废料 收集 器 ， 它 能 和 弄 清楚 并 回收 由 这 种 不 再 
使 用 的 序 对 所 占据 的 存储 。 
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图 3-15 对 图 3-12 的 表 做 (set-cdr! x y) 的 效果 
cons 通 过 创建 新 序 对 的 方式 构造 新 的 表 ， 而 set-car! 和 set-cdr! 则 是 修改 现存 的 序 
对 。cons 可 以 用 两 个 改变 函数 和 一 个 过 程 get-new-pair 实 现 ， 这 个 过 程 返 回 一 个 新 序 对 ， 
假定 它 不 是 任何 现存 表 结 构 的 组 成 部 分 。 我 们 先 取 得 一 个 序 对 ， 而 后 将 它 car 和 cdr 的 指针 分 
别 设置 到 指定 对 象 ， 最 后 返回 这 个 序 对 作为 cons 的 结果 !4。 


(define (cons x y) 
(let ((new (get-new-pair))) 


(set-car! new x) 
(set-cdr! new y) 
new) ) 


练习 3.12 下面 是 2.2.1 节 介绍 过 的 拼接 表 的 过 程 : 


(define (append x y) 
(if (null? x) 


y 
(cons (car x) (append (cdr x) y)))) 


46 get-new-paiz 必 须 作为 Lisp 系 统 所 需 的 存储 管理 功能 中 的 一 个 操作 ，5.3.1 节 将 讨论 这 一 问题 。 
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append 通 过 顺序 将 x 的 元 素 cons 到 y 上 的 方式 构造 出 一 个 新 表 。 过 程 append ! 与 append 类 似 ， 
但 它 是 一 个 改变 函数 而 不 是 一 个 构造 函数 。 它 将 表 拼 接 起 来 的 方式 是 将 两 个 表 粘 起 来 ， 修 改 X 
的 最 后 一 个 序 对 ， 使 它 的 cdr 现 在 变 成 y (对 空 的 x 调 用 append! 将 是 一 个 错误 ) 。 
(define (append! x y) 
(set-cdr! (last-pair x) y) 
X) 
这 里 的 last-pair 是 一 个 过 程 ， 它 返回 其 参数 中 的 最 后 一 个 序 对 : 
(define {last-pair x) 
(if (null? (cdr x)) 


x 
(last-pair (cdr x)))) 


考虑 下 面 的 交互 


(define x (list ‘a bl)) 
(define y (list ’c ‘d)) 
(define z (append x y)) 


zZ 
(a bc d) 


(cdr x) 
<response> 


(define w (append! x y)) 


Ww 
(a b c d) 


(cdr x) 
<response> 


其 中 缺少 的 那 两 个 <response> 是 什么 ? 请 画 出 盒子 指针 图 形 ， 解 释 你 的 回 谷 。 
练习 3.13 ”考虑 下 面 的 make-cycle 过 程 ， 其 中 使 用 了 练习 3.12 定 义 的 1ast-pPair 过 程 ， 
(define (make-cycle x) 


(set-cdr! (last-pair x) x) 


x) 


画 出 盒子 指针 图 形 ， 说 明 下 面 表达 式 创 建 起 的 z 的 结构 : 
(define z (make-cycle (list ‘a ’b °c) )}) 

如 果 我 们 试 着 去 计算 (last-pair z)， 那 会 出 现 什么 情况 ? 
练习 3.14 ”下 面 过 程 相当 有 用 ,但 也 有 些 费 解 : 
(define (mystery x) 

(define (loop x y) 
(if (null? x) 
Y 
(let ((temp (cdr x))) 
(set-cdr! x y) 
(loop temp x)))) 
(loop x °())) 
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loop 里 用 一 个 “临时 ”变量 temp 保 存 x 的 cdr 原来 的 值 ， 因为 下 一 行 里 的 set-cdr1! 将 破坏 
这 个 cdr。 请 一 般 性 地 解释 mystery 做 些 什么 。 假 定 V 通 过 (define v (list’ a’ b’ c’ 
d)) 定义 , 请 画 出 v 约 束 的 表 对 应 的 盒子 指针 图 形 。 BENER (define w (mystery v)), 
请 画 出 求 值 这 个 表达 式 之 后 结构 V 和 Ww 的 盒子 指针 图 形 。v 和 w 的 值 打 印 出 来 是 什么 ? 

共享 和 相等 

在 3.1.3 节 里 ， 我 们 提出 了 由 于 引入 赋值 而 产生 的 “同一 ”和 “变化 ”的 理论 问题 。 当 不 
同 的 数据 对 象 共 享 某 些 序 对 时 ， 这 些 问 题 就 表现 到 现实 中 来 了 。 例 如 ， 考 虚 由 下 面 求 值 形成 
的 结构 : 

(define x (list ‘a ‘b)) 

(define zl (cons x x)) 
正如 图 3-16 所 示 ， 这 里 的 z1 是 一 个 序 对 ， 其 car 和 cdr 都 指向 同一 个 序 对 Xx 。 这 种 21 的 car 和 
cdr 共 享 x 是 cons 的 简单 实现 方式 的 自然 结果 。 一 般 而 言 ， 用 cons 构 造 出 的 表 结 果 总 是 序 对 
的 一 个 相互 链接 的 结构 ， 其 中 可 能 会 有 许多 独立 的 序 对 被 一 些 不 同 结 构 所 共享 。 





图 3-16 由 (cons x x) 形成 的 表 21 
与 图 3-16 不 同 ， 图 3-17 展 示 的 是 由 下 式 创 建 出 的 结构 : 


(define z2 (cons (list ’a ’b) (list ’a ’b))) 





图 3-17 由 (cons (list ’a ’b) (list ’a "b)) 形成 的 表 z2 


在 这 一 结构 中 NH (a b) 的 各 个 序 对 互 不 相同 ， 虽 然 其 中 的 符号 是 共享 的 ??。 

作为 表 考 虑 ，z1 和 2z2 表 示 是 “同一 个 " 表 (a b) a b), 一般 而 言 ， 如 果 我 们 只 用 
cons, 、cCar 和 cdzr 对 各 种 表 进 行 操 作 ， 其 中 的 共享 就 完全 不 会 被 察觉 。 然 而 ， 如 果 人 允许 改变 
表 结构 的 话 ， 共 享 的 情况 就 会 显现 出 来 了 。 作 为 考察 这 种 共享 会 产生 什么 影响 的 例子 ， 现 在 
考虑 下 面 的 过 程 ， 它 将 修改 被 它 应 用 的 那个 结构 的 car: 

(define (set-to-wow! x) | 

7 这 两 个 序 对 不 同 ， 是 因 为 对 cons 的 每 次 调用 总 返回 一 个 新 序 对 。 符 号 共享 是 因为 在 ycheme 里 对 应 每 个 名 字 


的 符号 是 唯一 的 。 因 为 Scheme 不 提供 改变 符号 的 方式 ， 因 此 这 一 共享 是 不 可 分 辨 的 。 请 注意 ， 正 是 这 种 共享 
使 我 们 能 用 eq? 比较 符号 ， 这 个 过 程 就 是 简单 比较 两 个 指针 是 否 相等 。 





(set-car! (car x) ‘wow) 
X) 
虽然 z1 和 z2 可 以 看 作 是 “同样 的 ”结构 ， 将 set-to-wow! 应 用 于 它们 ， 就 会 产生 不 同 的 结 
果 。 对 于 Zz1 而 言 ， 修 改 其 car 也 就 同时 修改 了 它 的 cdr ， 因 为 在 21 里 的 carz 和 cdr 是 同一 个 
序 对 。 而 对 于 z2 ， 由 于 其 car 和 cdr 是 不 同 的 ， 所 以 set-to-wow! 只 修改 了 它 的 ca : 
zl 
((a b) a b) 
(set-to-wow! z1) 
((wow b) wow b) 
z2 
((a b} a Db) 


(set-to-wow! Z2) 
((wow b) a b) 


检查 表 结 构 是 否 共享 的 一 种 方式 是 使 用 谓词 eq? ， 这 个 谓词 在 2.3.1 市 里 介绍 过 ， 古 作为 
检查 两 个 符号 是 否 相 同 的 手段 。 说 得 更 一 般 些 ,， 实际 上 (eq? x y) 检查 x 和 y 是 否 为 同一 个 
对 象 (也 就 是 说 ，x 和 Y 作 为 指针 是 否 相 等 )。 这 样 ， 对 于 图 3-16 和 图 3-17 所 定义 的 z1 和 2z2 ， 
(eq? (car 21) (cdr z1)) 是 真 而 (eq? (car 22) (cdr 22)) 是 假 。 

”在 下 一 节 里 我 们 可 以 看 到 ， 利 用 共享 结构 可 以 极 大 地 扩展 能 够 用 序 对 表示 的 数据 结构 的 
范围 。 在 另 一 方面 ， 共 享 也 可 能 带 来 危险 ， 因 为 对 这 种 结构 的 修改 将 会 影响 那些 恰好 共享 着 
被 修改 了 的 序 对 的 结构 。 改 变 函 数 set-car! 和 set-cdzr:! 的 使 用 需要 特别 小 心 ， 除 非 我 们 
很 好 地 理解 了 数据 对 象 的 共享 情况 ， 否 则 使 用 改变 函数 就 会 造成 意 想不到 的 结果 ”。 

练习 3.15 ”请 画 出 盒子 指针 图 形 ， 解 释 set-to-wow! 对 于 上 面 结构 21 和 2z2 的 作用 。 
练习 3.16 Ben Bitdiddle 决 定 写 一 个 过 程 ， 统 计 任 何 一 个 表 结 构 中 的 序 对 个 数 。“ 这 太 简 
单 了 ,” 他 说 ,“ 任 何 表 结构 里 序 对 的 个 数 就 是 其 car 部 分 的 统计 值 加 上 其 car 部 分 的 统计 值 ， 
再 加 上 1 ， 以 计 入 当前 这 个 序 对 ”。 所 以 Ben 写 出 了 下 面 过程 : 
(define (count-pairs x) 
(if (not (pair? x)) 
0 
(+ (count-pairs (car x)) 
(count-pairs (cdr x)) 
1))) 


请 说 明 这 一 过 程 并 不 正确 。 请 画 出 几 个 表示 表 结构 的 盒子 指针 图 ， 它 们 都 正好 由 3 个 序 对 构成 ， 
而 Ben 的 过 程 对 它们 将 分 别 返回 3 ，4，7 ， 或 者 根本 就 不 返回 。 

练习 3.17 “请 设计 出 练习 3.16 中 count-pairs 过 程 的 一 个 正确 版 本 ， 使 它 对 任何 结构 都 
能 正确 返回 不 同 序 对 的 个 数 。 (提示 : 遍历 有 关 的 结构 ， 维 护 一 个 辅助 性 数据 结构 ， 用 它 记 录 


s 在 处 理 变动 数据 对 象 的 共享 问题 时 ， 最 微妙 的 地 方正 好 就 反应 了 3.1.3 节 里 提出 的 有 关 “ 同 一 ”和 “变化 ”的 
基本 问题 。 我 们 在 那里 说 过 ， 如 果 希 望 这 个 语言 里 容许 做 修改 ， 那 么 每 个 复合 对 象 就 必须 有 一 个 “标识 ， 
这 应 该 是 某 种 不 同 于 构造 起 它 的 那些 片段 的 东西 。 在 Lisp 里 ， 我 们 所 认为 的 “同一 ”也 就 是 检查 客体 之 则 的 
eq? ， 采 用 指针 相等 表示 。 这 是 因为 在 大 部 分 Lisp 实现 里 ， 一 个 指针 本 质 上 就 是 一 个 存储 地 址 ， 在 这 里 “ 解 
决 ” 对 象 标识 问题 的 方式 ， 是 假设 数据 对 象 “本 身 ” 也 是 一 些 信息 ， 存 储 在 计算 机 中 某 一 些 特定 的 存储 位 置 。 
对 于 简单 的 Lisp 程 序 而 言 ， 这 也 就 足够 了 。 但 是 这 并 不 是 解决 计算 模型 中 “同一 ”问题 的 一 般 性 方法 。 
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已 经 计算 过 的 序 对 的 轨迹 。) 
练习 3.18 请 写 一 个 过 程 检查 一 个 表 ， 确 定 其 中 是 否 包含 环 ， 也 就 是 说 ， 如 果 某 个 程序 
打算 通过 不 断 做 car 去 找到 这 个 表 的 结尾 ， 是 否 会 陷入 无 穷 循 环 。 练习 3.13 构 造 了 这 种 表 ，。 
练习 3.19 重 做 练习 3.18， 采 用 一 种 只 需要 常量 空间 的 算法 (需要 一 种 很 聪明 的 想法 )。 
改变 也 就 是 赋值 
在 介绍 复合 数据 时 ， 我 们 在 2.1.3 节 看 到 ， 序 对 可 以 纯粹 地 用 过 程 来 表示 : 


(define (cons x y) 
(define (dispatch m) 
(cond ((eq? m ’car) x) 
((eq? m ’cdr) y) 
(else (error "Undefined operation ~- CONS" m)))) 
dispatch) 


(define (car 2) (z ’car)) 


(define (cdr z} (z ‘cdr)) 


这 种 认识 对 于 变动 数据 也 是 对 的 ， 我 们 可 以 将 变动 数据 对 象 实现 为 使 用 赋值 和 局 部 状态 的 过 
程 。 举 例 说 ， 我 们 可 以 扩充 上 面 的 序 对 实现 ， 采 用 与 3.1.1 布 类 似 的 方式 ， 用 make-account 
实现 银行 账户 的 方式 处 理 set-car! 和 set-cdr! 的 问题 。 
(define (cons x y) 
(define (set-x! v) (set! x v)) 
(define (set-y! v) (set! y v)) 
(define (dispatch m) | 
(cond ((egq? m Car) x) 
((eq? m cdr) y) 
( (eq? m ’set-car!) set-x!) 
((eq? m Set-cdr!) set-y!) 
(else (error "Undefined operation -- CONS" m)))) 
dispatch) | 


(define (car 2) (z ’car)) 
(define (cdr z) (z ‘cdr)) 


(define (set-car! z new-value) 
((z ’set-car!) new-value) 


2) 
(define (set-cdr! z new-value) 
((z ’set-cdr!) new-value) 
z) 
从 理论 上 说 ， 为 了 表现 变动 数据 的 行为 ， 所 需要 的 全 部 东西 也 就 是 赋值 。 只 要 将 赋值 纳 
入 这 一 语言 ， 我 们 就 引出 了 所 有 的 问题 ， 不 仅 是 赋值 ， 而 且 也 包括 一 般 性 的 变动 对 象 ”。 
练习 3.20 ”请 画 出 显示 下 面 一 系列 表达 式 的 求 值 过 程 的 环境 图 示 : | 


8 而 在 另 一 方面 ， 从 实现 的 观点 看 ， 赋 值 要 求 我 们 去 修改 环境 ， 而 环境 本 身 也 是 一 个 变动 数据 结构 xy, wR 
值 和 变动 就 具有 同等 的 地 位 ， 可 以 相互 实现 。 
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(define x (cons 1 2)) 
(define 2 (cons x x)) 
(set-car! (cdr z) 17) 


(car x) 
17 


其 中 使 用 上 面 给 出 的 序 对 的 过 程 实现 (请 与 练习 3.11 比 较 )。 
3.3.2 队列 的 表示 


利用 改变 函数 set-caz! 和 set-cdzr! ， 我 们 可 以 用 序 对 构造 出 一 些 单 靠 cons、Car 和 
cdr 无 法 构造 的 数据 结构 。 这 一 节 将 展示 如 何 用 序 对 表示 一 种 称 为 队列 的 数据 结构 。3.3.3 节 
将 展示 如 何 表示 称 为 表格 的 数据 结构 。 | 

一 个 队列 是 一 个 序列 ， 数 据 项 只 能 从 一 端 插 入 (这 称 作 队 列 的 末端 )， 只 能 从 另 一 端 删 除 
(队列 的 前 端 )。 图 3-18 显 示 的 是 一 个 初始 为 空 的 队列 ， 而 后 插入 数据 项 a 和 b ， 而 后 删除 a ， 又 
插入 ec 和 d， 再 后 又 删除 b 。 由 于 数据 项 是 按照 它们 插入 的 顺序 删除 ， 因 此 队列 有 时 也 被 称 为 
FIFO (先进 先 出 ) 缓冲 区 。 | 


操作 | 结果 的 队列 
(define q (make-queue) ) | 


(insert-queue! q ’a) 


(insert-queue! q ’b) 


(delete-queue! q) 
(insert-queue! q ’c) 
(insert-queue! q `d) 


(delete-~queue! q) 





图 3-18 队列 操作 


按照 数据 抽象 的 说 法 ， 队 列 可 以 看 作 是 由 下 面 一 组 操作 定义 的 结构 : 
“一 个 构造 也 数 : 

(make-queue ) 

它 返 回 一 个 空 队列 (不 包含 数据 项 的 队列 ) 

。 两 个 选择 函数 : 

(empty-queue? <queue>) 

检查 队列 是 否 为 空 。 

(front-queue <queue>) 

返回 队列 前 端的 对 象 ， 如 果 队 列 为 空 就 报告 一 个 错误 。 它 不 修改 队列 。 
“两 个 改变 函数 ; 

(insert-queue! <queue> <item>) 

将 数据 项 插入 队列 末端 ， 返 回 修改 过 的 队列 作为 值 。 
(delete-queue! <gueue>) 


删除 队列 前 端的 数据 项 ， 并 返回 修改 后 的 队列 作为 值 。 如 果 删 除 之 前 队列 为 空 就 报告 错误 。 
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由 于 队列 就 是 数据 项 的 序列 ， 我 们 当然 可 以 将 它 表示 为 一 个 常规 的 表 。 这 样 ， 队 列 的 前 
端 就 是 表 的 car ， 向 队列 中 插入 数据 项 就 是 将 一 个 项 附加 到 表 的 最 后 ， 而 从 队列 里 删除 一 个 
项 就 是 取 这 个 表 的 cdr 。 但 是 这 种 表示 是 相当 低 效 的 ， 这 是 因为 ， 为 了 插入 一 个 数据 项 ， 我 
们 就 必须 扫描 整个 表 ， 直 至 到 达 表 尾 。 由 于 扫描 一 个 表 的 方法 只 有 通过 执行 一 系列 的 cdr 操 
作 ， 对 于 n 个 项 的 表 ， 这 种 扫描 就 需要 做 B(n) 步 。 简 单 地 修改 一 下 表 的 表示 方式 ， 就 可 以 克服 
这 种 缺点 ， 使 队列 操作 都 只 要 需 8(1) 步 就 能 实现 ， 也 就 是 说 ,使 所 需 的 步 数 完全 与 队列 的 长 
度 无 关 。 | 7 
采用 表 的 表示 形式 ， 引 出 的 一 个 问题 是 为 找到 表 尾 需要 扫描 整个 表 。 这 里 的 原因 就 在 于 ， 
表 的 标准 表示 方式 是 用 一 个 序 对 的 链 ， 虽 然 这 样 可 以 很 方便 地 提供 一 个 表 的 开始 指针 ， 但 却 
不 能 为 我 们 提供 访问 表 尾 的 方便 方法 。 如 果 要 避免 这 一 缺陷 ， 那 就 需要 修改 表示 方式 ,将 队 
列表 示 为 一 个 表 ， 并 带 有 一 个 指向 表 的 最 后 序 对 的 指针 。 采 用 了 这 种 方式 ， 如 果 我 们 需要 插 
入 一 个 数据 项 时 ， 那 就 只 需 考察 这 个 尾 指针 ， 因 此 就 可 以 避免 对 表 的 扫描 《了 。 

这 样 ， 队 列 被 表示 为 一 对 指针 front-ptr 和 rear-ptr， 它 们 分 别 指向 一 个 常规 表 中 的 
第 一 个 序 对 和 最 后 一 个 序 对 。 由 于 我 们 希望 队列 成 为 一 个 可 标识 对 象 ， 为 此 可 以 将 这 两 个 指 
针 cons 起 来 。 这 样 ， 队 列 本 身 也 将 是 两 个 指针 的 cons 。 图 3-19 显 示 了 这 种 表示 的 情况 。 





rear-ptr 


图 3-19 将 队列 实现 为 一 个 带 有 首尾 指针 的 表 


为 了 定义 出 队列 的 各 种 操作 ， 我 们 将 使 用 下 面 几 个 过 程 ， 它 们 可 以 用 于 选择 或 者 修改 队 
列 的 前 端 和 末端 指针 。 


(define (front-ptr queue) (car queue) ) 

(define (rear-ptr queue) (cdr queue) ) 

(define (set-front-ptr! queue item) (set-car! queue item) ) 

(define (set-rear-ptr! queue item) (set-cdr! queue item) ) 

现在 我 们 就 可 以 定义 队列 的 各 个 实际 操作 了 。 如果 一 个 队列 的 前 端 指针 等 于 其 末端 指针 ， 
那么 就 认为 这 个 队列 为 空 : | 
| (define (empty-queue? queue) (null? (front-ptr queue) )) | 
构造 函数 make-queue 返 回 一 个 初始 为 空 的 表 ， 也 就 是 一 个 序 对 ， 其 car 和 cdr PEAK: 

(define (make-queue) (cons °() °())) | | 

在 需要 选取 队列 前 端的 数据 项 时 ， 我 们 就 返回 由 前 端 指针 指向 的 序 对 的 car: 


(define (front-queue queue) 
{if (empty-queue? queue) 
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{error "FRONT called with an empty queue" queue) 
(car (front-ptr queue)))) 


要 向 队列 中 插入 一 个 数据 项 ， 我 们 将 按照 图 3-20 中 表明 的 方式 ， 首 先 创建 起 一 个 新 序 对 ， 其 
car 是 需要 插入 的 数据 项 ， 其 cdr 是 空 表 。 如 果 这 一 队列 原来 是 空 的 ， 那 么 就 让 队列 的 前 端 指 
针 和 后 端 指针 都 指向 这 个 新 序 对 。 否 则 就 修改 队列 中 最 后 一 个 序 对 ， 使 之 指向 这 个 新 序 对 ， 
而 后 让 队列 的 后 端 指针 也 指向 这 个 新 序 对 。 
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图 3-20 对 图 3-19 的 队列 使 用 (insert-queue! q’ d) 的 结果 


(define (insert-queue! queue item) 
(let ((new-pair (cons item °()))) 
(cond ((empty-queue? queue) 
(set-front—-ptr! queue new-pair) 
(set-rear-ptr! queue new-pair) 
queue ) 
(else | 
(set-cdr! (rear-ptr queue) new-pair) 
(set-rear-ptr! queue new-pair) 


queue) ) ) ) 


要 从 队列 的 前 端 删除 一 个 数据 项 ， 我 们 只 需要 修改 队列 的 前 端 指针 ， 使 它 指向 队列 中 的 
第 二 个 数据 项 。 通 过 队列 中 第 一 项 的 cdr 指 针 就 可 以 找到 这 个 项 (参见 图 3-21) |: 
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图 3-21 对 图 3-20 的 队列 使 用 (delete-queue! q) 的 结果 


(define (delete-queue! queue) 
(cond ((empty-queue? queue) 
(error "DELETE! called with an empty queue" queue) ) 


(else 


0 如 果 队 列 的 第 一 个 数据 项 也 是 最 后 一 个 ， 在 删除 之 后 前 端 指针 将 变 成 空 表 ， 这 也 就 会 使 队 列 变 成 空 的 。 此 时 
不 必 去 关心 未 端 指针 ， 虽 然 它 还 指 着 那个 被 删除 的 数据 项 。 因 为 empty-queue? 只 看 前 端 指针 。 
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(set-front-ptr! queue (cdr (front-ptr queue))) 
queue) ) 


练习 Ben 纲 做 一 些 测 试 ， 他 顺序 地 给 LispP 解 释 器 
(define gl (make-queue) ) 

(insert~queue! ql ’a) 

((a) a) 

(insert-queue! ql ’b) 

((a b) b) 

(delete-queue! ql) 

((b) b) 


{delete-queue! ql) 
(() b) 


“不 对 ”， 他 抱怨 说 ， “解释 器 的 响应 说 明 最 后 一个 数据 项 被 插入 了 队列 两 次 ， 因为 我 把 两 个 数 
据 项 都 删除 了 ， 但 是 第 二 个 还 在 那里 。 因此 此 时 这 个 表 不 空 ， 虽 然 它 应 该 已 经 空 了 。 Eva 
Lu Ator 说 是 Ben 错 误 理 解 了 所 出 现 的 情况 。“ 这 里 根本 没有 数据 项 进入 队列 两 次 的 事情 ， 她 
解释 说 , “问题 不 过 是 Lisp 的 标准 输出 函数 不 知道 应 如 何 理 解 队列 的 表示 。 如 果 你 希望 能 看 到 
队列 的 正确 打印 结果 ， 你 就 必须 自己 去 为 队列 定义 一 个 打印 过 程 。” 请 解释 Eva Lu 说 的 是 什么 
意思 ， 特 别 是 说 明 ， 为 什么 Ben 的 例子 产生 出 那样 的 输出 结果 。 请 定义 一 个 过 程 print- 
queue ， 它 以 队列 为 输入 ， 打 印 出 队列 里 的 数据 项 序列 。 

练习 3.22 ”除了 可 以 用 一 对 指针 表示 队列 外 ， 我 们 也 可 以 将 队列 构造 成 一 个 带 有 局 部 状 
态 的 过 程 。 这 里 的 局 部 状态 由 指向 一 个 常规 表 的 开始 和 结束 指针 组 成 。 这 样 ， 过 程 make- 
queue 将 具有 下 面 的 形式 : 


(define (make-queue) 
(let ((front-ptr ...) 
{rear-ptr ...)) 
< 内 部 过 程 定义 > a 
(define (dispatch m) ...) 
dispatch) ) 
请 完成 make-queue 的 定义 ， 进 而 采用 这 一 表示 提供 队列 操作 的 实现 。 
练习 3.23 ” 双 端 队列 (deque) 也 是 一 种 数据 项 的 序列 ， 其 中 的 数据 项 可 以 从 前 in B Fis oi 
插入 和 删除 。 双 端 队 列 的 操作 包括 构造 函数 nake-deque ， 谓 词 empty-deque?， 选 择 函 数 
front-deque, rear-deque, 4%@mwRfront-insert-deque!, rear-insert- 
deque!, front-delete-deque!, rear-delete-deque!, 请 说 明 如 何 用 序 对 表示 双 
端 队列 ， 并 给 出 各 个 操作 的 实现 。 所 有 操作 都 应 该 在 8(1) 步 又 内 完成 ”。 


3.3.3 表格 的 表示 


在 第 2 章 里 研究 集合 表示 的 各 种 方式 时 ， 我 们 曾经 在 2.3.3 节 提 到 过 有 关 维 护 一 个 由 标识 
键 码 索引 的 记录 表格 的 问题 。 在 2.4.3 节 里 实现 数据 导向 的 程序 设计 时 ， 也 大 量 地 使 用 了 两 维 


st 请 当心 ， 不 要 让 解释 器 试图 去 打印 一 个 包含 环 的 结构 (参见 练习 3.13)。 
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的 表格 ， 在 其 中 存储 着 有 关 的 信息 ， 用 两 个 关键 码 去 提取 。 现 在 我 们 要 考察 如 何 用 一 种 变动 
的 表 结 构 来 实现 表格 。 

我 们 首先 考虑 一 维 表格 的 问题 ， 在 这 种 表格 里 ， 每 个 值 保存 在 一 个 关键 码 之 下 。 我 们 要 
将 这 种 表格 实现 为 一 个 记录 的 表 ， 其 中 的 每 个 记录 将 实现 为 由 一 个 关键 码 和 一 个 关联 值 组 成 
的 序 对 。 将 这 种 记录 连接 起 来 构成 一 个 序 对 的 表 ， 让 这 些 序 对 的 car 指 针 顺 序 指向 各 个 记录 。 
这 些 作 为 连接 结构 的 序 对 就 成 为 这 一 表格 的 骨架 。 为 了 在 向 表格 里 加 入 记录 时 能 有 一 个 可 以 
修改 的 位 置 ， 我 们 将 这 种 表格 构造 为 一 种 带 表 头 单元 的 表 。 带 表 头 单元 的 表 在 开始 处 有 一 个 
特殊 的 骨架 序 对 ， 其 中 保存 着 一 个 号“ 记录 ”一 一 目前 在 这 里 存放 一 个 特殊 符号 *tabler*。 
图 3-22 显 示 了 下 面 表格 的 盒子 指针 图 。 


a: 1 
bD: 2 
c: 3 


table 


elle e em Ki l 
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图 3-22 带 表 头 单元 的 表 


为 了 从 表格 里 提取 信息 ,我们 用 了 一 个 LookuPp 过 程 ， 它 以 一 个 关键 码 为 参数 ， 返 回 与 之 
相关 联 的 值 (如 果 在 这 个 关键 码 之 下 没有 值 就 返回 假 ) 。lLookup 是 基于 assoc 操 作 定义 的 ， 
这 一 操作 要 求 一 个 关键 码 和 一 个 记录 的 表 作为 参数 。 请 注意 ，assoc 根 本 不 去 看 那个 哑 记 孙 ， 
它 返 回 以 给 定 关键 码 为 car 的 那个 记录 '”。1lookup 检 查 由 assoc 返 回 的 结果 记录 是 否 为 假 ， 
而 后 返回 该 记录 中 的 值 (edr), 


(define (lookup key table) 
(let ((record (assoc key (cdr table)))) 
(if record 
(cdr record) 
false))) 


(define (assoc key records) 
(cond ((null? records) false) 
((equal? key (caar records)) (car records) ) 
(else (assoc key (cdr records))))) 
要 在 一 个 表格 里 某 个 特定 的 关键 码 之 下 插入 一 个 值 ， 我 们 首先 用 assoc 查 看 该 表格 里 是 
否 已 经 有 以 此 作为 关键 码 的 记录 。 如 果 没 有 就 cons 起 这 个 关键 码 和 相应 的 值 ， 构 造 出 一 个 新 
记录 ， 并 将 它 播 入 到 记录 表 的 最 前 面 ， 位 于 哑 记 录 之 后 。 如 果 表 格 里 已 经 有 了 具有 该 关键 码 


2 由 于 assoc 里 用 的 是 egual? ， 它 能 允许 以 符号 、 数 值 或 考 表 结 构 作 为 关键 码 。 
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的 记录 ， 那 么 就 将 该 记录 的 cdr 设置 为 这 个 新 值 。 表 格 的 头 单元 为 我 们 提供 了 一 个 明确 的 位 
置 ， 使 我 们 在 插入 新 记录 时 能 确定 相应 的 修改 位 置 ”。 


(define (insert! key value table) 
(let ((record (assoc key (cdr table)))) 
(if record 
(set-cdr! record value) 
(set-cdr! table 
(cons (cons key value) (cdr table))))) 
"ok) 


在 构造 一 个 新 表格 时 ， 我 们 只 需要 创建 起 一 个 包含 符号 *table* MWR: 
(define (make-table) 
(list ’*table*)) 


两 维 表格 
两 维 表格 里 的 每 个 值 由 两 个 关键 码 索 引 。 我 们 可 以 将 这 种 表格 构造 为 一 个 一 维 表格 ， 其 
中 的 每 个 关键 码 又 标识 了 一 个 子 表格 。 图 3-23 中 的 盒子 指针 图 表示 的 是 下 面 表格 : 


table 
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图 3-23 ”一 个 两 维 表格 


”这样 ， 第 一 个 骨架 序 对 也 就 成 为 代表 这 个 表 列 “本 身 ” 的 对 象 ， 也 就 是 说 ， 指 向 这 个 表 列 的 指针 就 是 指向 这 
个 序 对 的 指针 。 这 个 骨架 序 对 总 代表 着 表 列 的 开始 。 如 果 我 们 不 采用 这 种 安排 方式 insert! 过 程 每 次 向 表 
列 中 加 入 一 个 新 记录 后 ， 就 需要 返回 表 列 的 新 起 始 位 置 。 
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*: 42 


letters: 
a: 97 
b: 98 


这 其 中 有 两 个 子 表格 。( 子 表格 并 不 需要 特殊 的 头 单元 符号 ， 因 为 标识 子 表格 的 关键 码 就 能 起 
到 这 一 作用 。) 

在 需要 查找 一 个 数据 项 时 ， 我 们 先 用 第 一 个 关键 码 确定 对 应 的 子 表格 ， 而 后 用 第 二 个 关 
键 码 在 这 个 子 表格 里 确定 记录 。 


(define (lookup key-1 key-2 table) 
(let ((subtable (assoc key-1 (cdr table)))) 
(if subtable 
(let ((record (assoc key-2 (cdr subtable)))) 
(if record 

(cdr record) 
false) ) 

false))) 


如 果 需 要 将 一 个 新 数据 项 插入 到 一 对 关键 码 之 下 ， 我 们 首先 用 assoc 去 查看 在 第 一 个 关 
键 码 下 是 否 存 在 一 个 子 表格 。 如 果 没 有 ， 那 么 就 构造 起 一 个 新 的 子 表格 ， 其 中 只 包含 一 个 记 
录 (key-2 ，value )， 并 将 这 一 子 表格 插入 到 表格 中 的 第 一 个 关键 码 之 下 。 如 果 表 格 里 已 经 
有 了 对 应 于 第 一 个 关键 码 的 子 表格 ， 那 么 就 将 新 值 插入 该 子 表格 ， 用 的 就 是 上 面 所 述 的 在 一 
维 表格 中 播 入 的 方法 : 

(define (insert! key-1 key-2 value table) 

(let ((subtable (assoc key-1 (cdr table)))) 
(if subtable 
(let ((record (assoc key-2 (cdr subtable)))) 
(if record 
(set-cdr! record value) 
(set-cdr! subtable 
(cons (cons key-2 value) 
(cdr subtable))))) 
(set-cdr! table © 
(cons (list key-1 
(cons key-2 value) ) 
(cdr table))))) 
’ok) 


创建 局 部 表格 

上 面 定义 的 lookup 和 insert! 操作 都 以 表格 作为 一 个 参数 ， 这 也 使 我 们 可 以 将 它们 用 
到 包含 多 个 表格 的 程序 里 。 处 理 多 个 表格 的 另 一 种 方式 是 为 每 个 表格 提供 一 对 独立 的 1ookuP 
和 insert! 过程 。 为 了 能 够 这 样 做 ， 我 们 可 以 用 过 程 的 方式 表示 表格 ， 将 表格 表示 为 一 个 以 
局 部 状态 的 方式 维持 着 一 个 内 部 表格 的 对 象 。 在 接 到 一 个 适当 的 消息 时 ， 这 种 “表格 对 象 
将 提供 相应 的 过 程 ， 实 现 对 内 部 表格 的 各 种 操作 。 下 面 就 是 一 个 采用 这 种 方式 表示 两 维 表格 
的 生成 各: 

(define (make-table) 

(let ((local-table (list ’*table*))) 





(define (lookup key-1 key-2) 
(let ((subtable (assoc key-1 (cdr local-table)))) 
(if subtable 
(let ((record (assoc key-2 (cdr subtable)))) 
(if record 
(cdr record) 
false) ) 
false))) 
(define (insert! key-1 key-2 value) 
(let ((subtable (assoc key-1 (cdr local-table)))) 
(if subtable | 
(let (({record (assoc key-2 (cdr subtable)))) 
(if record 
(set-cdr! record value) 
(set-cdr! subtable 
(cons (cons key-2 value) 
(cdr subtable))))) 
(set-cdr! local-table 
(cons (list key-1l 
(cons key-2 value) ) 
(cdr local-table))))) 
OK ) 
(define (dispatch m) 
(cond ((eq? m ’lookup-proc) lookup) 
((eq? m ’insert-proc!) insert!) 
(else (error "Unknown operation -- TABLE" m))))} 
dispatch) ) 


利用 make-table， 我 们 就 能 做 出 在 2.4.3 节 里 为 做 数据 导向 的 程序 设计 而 用 的 get 和 
Put 操作 了 。 它 们 的 实现 如 下 : 


(define operation-table (make-table) ) 
(define get (operation-table ‘lookup-proc)) 
(define put (operation-table ‘insert-proc! ) ) 


过 程 get 以 两 个 关键 码 为 参数 ，put 以 两 个 关键 码 和 一 个 值 为 参数 。 这 两 个 操作 都 访问 同一 个 
局 部 表格 ， 这 一 表格 被 封装 在 由 对 make-table 的 调用 创建 起 的 对 象 里 面 。 

练习 3.24 ”在 上 面 的 表格 实现 里 ， 对 于 关键 码 的 检查 用 equal? 比较 是 否 相 等 ( 它 被 
assoc 调 用 )。 这 一 检查 方式 并 不 一 定 总 是 合适 的 。 举 例 来 说 ,我们 可 能 需要 一 个 采用 数值 关 
键 码 的 表格 ， 对 于 这 种 表格 ， 我 们 需要 的 不 是 找到 对 应 数值 的 准确 匹配 ， 而 可 以 是 有 一 点 容 
许 误差 的 数值 。 请 设计 一 个 表格 构造 函数 make-table, 它 以 一 个 same-key? 过 程 作为 参数 ， 
用 这 个 过 程 检查 关键 码 的 “相等 ”与 否 。make- tab1e 过 程 应 该 返回 一 个 过 程 dtspatch , 
可 以 通过 它 去 访问 对 应 于 局 部 表格 的 lookup 和 insert! 过 程 。 

练习 3.25 ”请 推广 一 维 表 格 和 两 维 表格 的 概念 ， 说 明 如 何 实现 一 种 表格 ， 共 中 的 值 可 以 
保存 在 任意 个 关键 码 之 下 ， 不 同 的 值 可 能 对 应 于 不 同 数目 的 关键 码 。 对 应 的 100kuP 和 
insert1 过 程 以 一 个 关键 码 的 表 作 为 参数 去 访问 这 一 表格 。 

练习 3.26 ”为 了 在 上 面 这 样 实现 的 表格 中 检索 ， 我 们 就 需要 扫描 这 个 记录 表 。 从 本 质 上 
说 ， 这 就 是 2.3.3 节 中 的 无 序 表 表示 方式 。 对 于 很 大 的 表格 ， 以 其 他 方式 构造 表格 可 能 更 加 高 
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效 。 请 描述 一 种 表格 实现 ， 其 中 的 (key, value) 记录 用 二 又 树 形式 组 织 起 来 。 这 要 假定 关键 
码 能 够 以 某 种 方式 排序 (例如 ， 数 值 序 或 者 字典 序 )。( 请 与 第 2 章 的 练习 2.06 比 较 ) 
练习 3.27 记忆 法 (memoization ， 或 称 表 格 法 ，tabulation ) 是 一 种 技术 ， 采 用 这 种 技术 
的 过 程 将 把 前 面 已 经 算出 的 一 些 值 记 录 在 局 部 状态 里 。 这 种 技术 可 能 大 大 改变 一 个 程序 的 性 
能 。 在 一 个 采用 记忆 法 的 过 程 里 维持 着 一 个 表格 ， 基 中 保存 着 前 面 已 经 做 过 的 调用 求 出 的 值 ， 
以 产生 这 些 值 的 实际 参数 作为 关键 码 。 当 这 种 过 程 被 调用 去 计算 某 个 值 时 ， 它 首先 检查 有 关 
的 表格 ， 看 看 相应 的 值 是 否 已 经 在 那里 ， 如 果 找 到 了 就 直接 返回 这 个 值 ， 否 则 就 以 正常 方式 
计算 出 相应 的 值 ， 并 将 它 保存 到 这 个 表格 里 。 作 为 记忆 性 过 程 的 一 个 例子 ， 让 我 们 重 误 一 下 
1.2.2 节 里 计算 斐 波 那 契 数 的 指数 计算 过 程 ;: 
(define (fib n) 
{cond ({= n 0) 0) 
((= n 1) 1) 
(else (+ (fib (~ n 1)) 
(fib (- n 2)))))) 
同一 过 程 的 带 记 录 版 本 是 : 
(define memo-fib 
(memoize (lambda (n) 


(cond ((= n 0) 0) 
((= n 1) 1) | 
(else (+ (memo-fib (- n 1)) 
(memo-fib (- n 2)))))))) 
其 中 的 记录 器 定义 为 : 


(define (memoize f) 
(let ((table (make-table))) 
(lambda (x) 
(let ((previously~computed-result (lookup x table))) 
(or previously-computed-result 
(let ((result (f x))) 

(insert! x result table) 
result)))))) 


请 为 (memo-£ib 3) 的 计算 画 出 一 个 环境 图 ， 解 释 为 什么 memo-~fib 能 以 正比 于 "的 步 数 计 
算出 第 = 个 斐 波 那 契 数 。 如 果 简 单 地 将 memo-fib 定 义 为 (memoize fib)， 这 一 模式 还 能 工 
作 吗 ? 


3.3.4 数字 电路 的 模拟 器 


设计 复杂 的 数字 系统 ， 例 如 计算 机 ， 是 一 种 非常 重要 的 工程 活动 。 数 字 系 统 都 是 通过 过 
接 一 些 简 单元 件 构造 起 来 的 。 虽然 这 些 元 件 单独 看 起 来 功能 都 很 简单 ， 它 们 连接 起 来 形成 的 
网 络 就 可 能 产生 非常 复杂 的 行为 。 对 提出 的 电路 设计 做 计算 机 模拟 ， 是 一 种 数字 系统 工程 师 
广泛 使 用 的 重要 工具 。 在 这 一 节 里 ， 我 们 要 设计 一 个 执行 数字 逻辑 模拟 的 系统 。 这 一 系统 是 
通常 称 为 事件 驱动 的 模拟 程序 的 一 个 典型 代表 ， 在 这 类 系统 里 ， 一 些 活动 (“事件 ”) 引发 另 
一 些 在 随后 时 间 发 生 的 事件 ， 它 们 又 会 引发 随后 的 事件 ， 并 如 此 继续 下 去 ，。 | 

我 们 有 关 电 路 的 计算 模型 将 由 一 些 对 象 组 成 ， 它 们 对 应 于 构造 电路 时 所 用 的 那些 基本 构 


` 





件 。 这 里 也 有 连 线 ， 它 们 能 传递 数字 信号 。 一 个 数字 信号 在 任何 时 刻 都 只 能 具有 0 或 1 这 两 个 
可 能 值 之 一 。 这 里 还 有 许多 不 同 种 类 的 功能 块 ， 它 们 连接 着 一 些 输入 信号 的 连 线 和 另外 一 些 
输出 连 线 。 这 种 功能 块 从 它们 的 输入 信号 计算 出 相应 的 输出 信号 。 和 输出 信号 有 一 个 延迟 ， 具 
体 情况 依赖 于 功能 块 的 种 类 。 例 如 ， 反 门 是 一 种 基本 功能 块 ， 它 们 对 输入 求 反 。 如 果 一 个 反 
门 的 输入 信号 变 为 0， 那 么 在 一 个 反 门 延迟 时 间 单 位 之 后 ， 这 个 反 门 就 将 其 输出 信号 改变 为 1 。 
如 果 一 个 反 门 的 输入 信号 改变 为 1， 那 么 在 一 个 反 门 延迟 时 间 单 位 之 后 ， 这 个 反 门 就 将 其 输出 
言 号 改变 为 0。 图 3-24 里 画 出 了 表示 反 门 的 符号 。 一 个 与 门 ( 如 图 3-24 里 所 示 ) 也 是 一 个 基本 
功能 块 ， 它 有 两 个 输入 和 一 个 输出 ， 以 其 输入 的 运 辑 与 作为 输出 信号 的 值 。 也 就 是 说 ， 当 一 
个 与 门 的 两 个 输入 信号 都 变 成 1 时 ， 在 一 个 与 门 延迟 时 间 单位 之 后 ， 该 与 门将 产生 1 作为 输出 
信号 ， 否 则 其 输出 就 是 0。 或 门 是 另 一 种 类 似 的 功能 块 ， 以 其 输入 的 远 辑 或 作为 输出 信号 的 值 。 
也 就 是 说 ， 当 且 仅 当 一 个 或 门 的 两 个 输入 信号 之 一 为 1 时 ， 其 输出 为 1 ， 否 则 其 输出 就 是 0。 


>- D D 


反 门 与 站 或 站 
图 3-24 数字 逻辑 模拟 器 的 基本 功能 部 件 


我 们 可 以 将 一 些 基本 功能 部 件 连接 起 来 ， 构 造 出 更 复杂 的 功能 。 为 此 只 需 将 一 些 功能 块 
的 输出 连 线 接 到 另 一 些 功能 块 的 输入 。 举 个 例子 ， 图 3-25 展 示 的 是 一 个 半 加 器 电路 ， 其 中 包 
括 一 个 或 门 、 两 个 与 门 和 一 个 反 门 。 这 一 半 加 器 有 两 个 输入 信号 A 和 B ， 以 及 两 个 输出 信号 有 $ 
和 C。 当 恰好 A 和 B 之 一 为 1 时 ，S 将 变 成 1， 而 当 A 和 B 都 为 1 时 C 变 成 1。 从 这 个 图 形 可 以 看 出 ， 
由 于 延迟 的 存在 ， 这 些 输出 可 能 在 不 同 的 时 间 产 生 ， 有 关 数 字 电路 设计 的 许多 困难 都 源 于 此 。 





图 3-25 半 加 器 


我 们 现在 要 构造 出 一 个 程序 ， 它 能 够 模拟 我 们 希望 研究 的 各 种 数字 逻辑 电路 。 这 一 程序 
将 构造 出 模拟 连 线 的 计算 对 象 ， 它 们 能 够 “保持 ”信号 。 电 路 里 的 各 种 功能 块 用 过 程 模 拟 ， 
它们 产生 出 信号 之 间 的 正确 关系 。 

这 一 模拟 中 的 一 个 最 基本 元 素 是 过 程 make-wire ， 它 用 于 构造 连 线 。 举 例 来 说 ， 我 们 可 
以 像 下 面 这 样 构造 出 6 条 连 线 : 

(define a (make-wire) ) 


(define b (make-wire) ) 
(define c (make-wire) ) 


(define d (make-wire} ) 
(define e (make-wire) ) 
(define s (make-wire) ) 


如 果 需 要 将 一 个 功能 块 连 到 一 组 连 线 上 ， 我 们 就 调用 一 个 构造 这 类 项 能 块 的 过 程 ， 提 供给 该 
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构造 过 程 的 实际 参数 就 是 连接 到 这 一 功能 块 的 那些 连 线 。 例 如 ， 有 了 上 面 的 连 线 ， 我 们 可 以 
如 下 构造 出 与 门 、 或 门 和 反 门 ， 并 将 它们 连接 成 图 3-25 所 示 的 半 加 器 
{or-gate a b d) 


ok 


(and-gate ab c) 
ok 


(inverter C e) 
ok 


(and-gate de s) 
ok 


为 了 做 得 更 好 一 点 ， 我 们 还 应 该 为 这 种 操作 命名 ， 定 义 出 一 个 过 程 half -adder ， 它 能 
构造 出 这 种 电路 ， 并 将 送 给 它 的 四 条 外 部 连 线 接 到 这 个 半 加 器 上 : 


(define (half-adder a b s c) 
(let ((d (make-wire)) (e (make-wire) )) 
(or-gate a b d) 
{and-gate ab c) 
(inverter c e) 
{and-gate de s} 
"ok) ) 


做 出 这 种 定义 的 优点 ， 就 在 于 我 们 又 可 以 用 half-adder 本 身 作为 基本 构件 ， 去 创建 更 复杂 
的 电路 。 例 如 ， 图 3-26 显 示 的 是 一 个 全 加 器 ， 它 由 两 个 半 加 器 和 一 个 或 门 组 成 “。 我 们 可 以 
用 如 下 方式 构造 出 全 加 器 : 





图 3-26 全 加 器 


(define (full-adder a b c-in sum c-out) 
(let ((s (make-wire) ) 
(cl (make-wire) ) 
(c2 (make-wire) )) 
(half-adder b c-in s cl) 
(half-adder a s sum c2) 
(or-gate cl c2 c-out) 
OK) ) 


将 全 加 器 定义 为 过 程 之 后 ， 我 们 就 又 可 以 利用 它 作 为 构件 ， 去 创建 更 复杂 的 电路 了 《例如 ， 
练习 3.30 ) 。 
54 全 加 器 是 二 进 制 数 求 和 所 用 的 基本 电路 元 件 。 这 里 的 A 和 B 是 两 个 被 加 数 中 对 应 位 置 上 的 二 进 制 位 ，Ca 是 从 
被 加 位 的 右边 来 的 进 做 位 。 这 一 电路 产生 出 的 SUM 是 表示 对 应 位 置 之 和 的 一 进 制 位 而 Cou 是 传递 给 左边 位 
置 的 进位 位 。 P 
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从 本 质 上 看 ， 模 拟 器 为 我 们 提供 了 一 种 工具 ， 作 为 构造 电路 的 一 种 语言 。 如 果 我 们 采纳 
有 关 语 言 的 一 般 性 观点 ， 就 像 在 1.1 闻 里 研究 LIsSp 时 所 做 的 那样 ， 那 么 就 可 以 说 ， 各 种 基本 功 
能 块 形成 了 这 个 语言 的 基本 元 素 ， 将 功能 块 连接 起 来 就 是 这 里 的 组 合 方法 ， 而 将 特定 的 连接 
模式 定义 为 过 程 就 是 这 里 的 抽象 方法 。 
基本 功能 块 
基本 功能 块 实现 一 种 “效能 ”， 使 得 在 一 根 连 线 上 的 信号 变化 能 够 影响 其 他 连 线 上 的 信号。 
为 了 构造 出 这 些 功 能 块 ， 我 们 需要 连 线 上 的 如 下 操作 : 
e (get-signal <wire>) 
返回 连 线 上 信号 的 当前 值 。 
e (set-signal! <wire> <new value>) 
将 连 线 上 的 信号 修改 为 新 的 值 。 
e (add-action! <wire> <procedure of no arguments>) 
它 断 言 ， 只 要 在 连 线 上 的 信号 值 改变 ， 这 里 所 指定 过 程 就 需要 运行 。 这 种 过 程 是 一 些 
媒介 ， 它 们 能 够 将 相应 连 线 上 值 的 变化 传递 到 其 他 的 连 线 。 除 这 些 过 程 之 外 ， 我 们 还 要 
用 一 个 过 程 aftezr-dqelay ， 它 的 参数 是 一 个 时 间 延 迟 和 一 个 过 程 after-delay # 
在 给 定 的 时 延 之 后 执行 这 一 指定 过 程 。 
利用 这 些 过 程 ， 我 们 就 可 以 定义 基本 的 数字 逻辑 功能 了 。 为 了 把 输入 通过 一 个 反 门 连接 到 
输出 ， 我 们 应 该 用 add-action! 为 输入 线路 关联 一 个 过 程 ， 当 输入 线路 的 值 改 变 时 ， 这 一 过 
程 就 会 执行 。 下 面 这 个 过 程 计 算出 输入 信号 的 lo0gical-not, 在 一 个 jnverter-delay 之 
后 将 输出 线路 设置 为 这 个 新 值 : | 


(define (inverter input output) 
(define {invert-input) 
(let ((new-value (logical-not (get-signal input)))) 
(after-delay inverter-delay 
| (lambda () 
(set-signal! output new-value))))) 
(add-action! input invert-input) 
"Ok ) 


(define (logical-not s) 
(cond ((= s 0) 1) 
((= s 1) 0) 
(else (error "Invalid signal” s)))) 


与 门 的 情况 稍微 复杂 一 点 ， 因 为 在 这 种 门 的 两 个 输入 之 一 变化 后 ， 相 应 的 动作 过 程 都 必 
须 运行 。 下 面 过 程 计 算出 输出 线路 上 信号 值 的 Logical-and (利用 一 个 类 似 于 logical- 
net 的 过 程 )， 并 在 一 个 and-gate=-delay 之 后 设置 新 值 ， 使 之 出 现在 输出 线路 上 。 


(define (and-gate al a2 output) 
(define (and-action-procedure) 
(let ((new-value | 
(logical-and (get-signal al) (get-signal a2)))) 
(after-delay and-gate-delay 
(lambda () 
(set-signal! output new-value))))) 
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(add-action! al and-action-procedure) 
(add-action! a2 and-action-procedure) 


OK) 
练习 3.28 “请 将 或 门 定义 为 一 个 基本 功能 块 。 你 的 or~gate 构 造 国 数 应 该 和 上 面 anQ- 
gate 的 构造 函数 类 似 。 


练习 3.29 ”构造 或 门 的 另 一 方式 是 将 它 作 为 一 种 复合 的 数字 逻辑 设备 ， 用 与 门 和 反 门 构 
造 出 或 门 。 请 采用 这 种 方式 定义 出 or-gate 。 如 何 用 and-gate-delay 和 inverter- 
delay 表 示 这 样 定义 的 或 门 的 延 时 ? | 

练习 3.30 ”图 3-27 展 示 的 是 通过 串 接 起 mn 个 全 加 器 组 成 的 一 个 级 联 进 位 加 法 器 。 这 是 用 于 
求 " 位 二 进 制 数 之 和 的 并 行 加 法 器 的 最 简单 形式 。 输 入 Al Ad, As, ，… ，A, 与 B1，B2，B35 ，…， 
B, 是 需要 求 和 的 两 个 二 进 制 数 (每 个 At 和 B, 都 是 0 或 者 1) 。 这 一 电路 产生 出 与 之 对 应 的 和 的 m 
个 二 进 制 位 S, ，S;，S: ，…，S,， 以 及 这 一 求 和 的 最 终 进 位 值 C。 请 写 出 一 个 过 程 ipPP1e- 
carry-adder 生 成 这 种 电路 ， 该 过 程 应 以 各 包含 着 n 条 线路 的 三 个 表 一 一 A:、Bx 和 S4 一 一 作为 
输入 ， 还 有 另 一 线路 C。 级 联 进位 加 法 器 的 主要 缺点 是 需要 等 待 进位 信号 向 前 传播 。 请 设法 确 
定 ， 为 了 得 到 n 位 级 联 进位 加 法 器 的 完整 输出 ， 我 们 将 需要 怎样 的 时 延 。 请 用 与 门 、 或 门 和 反 
门 的 时 延 表示 这 种 加 法 器 的 这 一 时 延 。 


A, Bi A, Bz A; B; 





Si S2 S3 | S, 
图 3-27 一 个 对 n 位 二 进 制 数 的 逐 位 进位 加 法 器 


线路 的 表示 
在 这 种 模拟 中 ， 一 条 线路 也 就 是 一 个 具有 两 个 局 部 状态 变量 的 计算 对 象 : 其 中 一 个 是 信 
号 值 signal~value (其 初始 值 取 0 ) ， 另 一 个 是 一 组 过 程 action-procedures ,在 信号 
值 改变 时 ， 这 些 过 程 都 需要 运行 。 我 们 将 采用 消息 传递 的 风格 ， 把 线路 实现 为 一 组 局 部 过 程 
和 一 个 dispatch 过 程 ， 它 负责 选取 适当 的 局 部 操作 , 这 也 就 是 我 们 在 3.1.1 节 里 处 理 简 单 银 
行 账户 时 的 做 法 : E 
(define (make-wire) 
(let ((signal-value 0) (action-procedures '{))) 
(define (set-my-signal! new-value) 
(if (not (= signal-value new-value)) 
(begin (set! signal-value new-value) 
(call-each action-procedures) ) 


*done)) 


(define (accept-action-procedure! proc) 
(set! action-procedures (cons proc action-procedures) ) 





(proc)) 


(define (dispatch m) 
(cond ((eq? m ’get-signal) signal-value) 
( (eq? m ‘set-signal!) set-my-signal!) 
( (eq? m ’add-action!) accept-action-procedure!) 
(else (error "Unknown operation -- WIRE" m)))) 


dispatch) ) 
局 部 过 程 set-my-signal! 检 查 新 的 信号 值 是 否 实际 改变 了 线路 上 的 信号 ， 如 果真 是 这 样 ， 
它 就 利用 下 面 定 义 出 的 过 程 calI-~each 运 行 每 个 动作 过 程 。cal1-each 逐 个 调用 一 个 无 参 
过 程 表 中 的 每 个 过 程 : 
(define (call-each procedures) 
(if (null? procedures) 
"done 
(begin 
({car procedures) ) 
(call-each (cdr procedures))))) 


局 部 过 程 accept-action-procedure! 将 给 定 的 过 程 加 入 需要 运行 的 过 程 表 ， 并 运行 这 个 
新 过 程 一 次 《参见 练习 3.31 )。 
一 旦 设置 好 局 部 的 dispatch 过 程 ， 就 可 以 提供 以 下 访问 线路 中 局 部 操作 的 过 程 了 :5 
(define (get-signal wire) 
(wire ’get-signal)) 
(define (set-signal! wire new~-value) 


((wire ’set-signal!) new-value) ) 


(define (add-action! wire action-procedure) 


((wire ’add-action!) action-procedure) ) 
线路 具有 随 着 时 间 变 化 的 信号 ， 并 可 以 逐步 连接 到 各 种 设备 上 ， 因 此 这 是 一 种 典型 的 变动 对 
象 。 我 们 已 经 将 它们 模拟 为 带 有 局 部 状态 变量 的 过 程 ， 这 些 局 部 变量 能 够 通过 赋值 而 修改 。 
在 创建 一 条 新 线路 时 ， 就 会 分 配 一 集 新 的 状态 变量 (通过 make-wire 里 的 Let 表 达 式 )， 构 
造 并 返回 一 个 新 的 dispatch 过 程 ， 使 我 们 可 以 掌握 具有 这 些 新 状态 变量 的 那个 环境 。 

一 条 线路 被 所 有 连接 在 该 线路 上 的 各 种 设备 所 共享 。 这 样 ， 由 一 个 设备 交互 所 造成 的 变 
化 就 会 影响 到 连接 在 这 条 线路 上 的 其 他 设备 。 线 路 将 变化 通知 与 之 连接 的 设备 ， 采 用 的 方式 
就 是 调用 相关 的 动作 过 程 ， 这 些 过 程 是 在 建立 连接 时 提供 的 。 


待 处 理 表 
为 完成 这 一 模拟 器 ， 剩 下 的 东西 就 是 after-delay 了 。 这 里 的 想法 是 维护 一 个 称 为 待 处 


55 这 些 过 程 只 不 过 是 语法 糖衣 ， 以 便 我 们 能 用 常规 的 过 程 语法 形式 去 调用 对 象 里 的 局 部 过 程 。 能 如 此 简单 地 交 
换 “ 过 程 ” 和 “数据 ”的 角色 也 是 很 惊人 的 。 例 如 ， 在 写 (wire get-signal) 时 ， 我 们 是 把 wire 当 作 
一 个 过 程 ， 用 消息 get-signal 作 为 输入 去 调用 它 。 换 一 种 方式 ，(get-signal wire) 的 形式 促使 我 们 
将 wire 设想 为 作为 过 程 9et-signal 的 输入 的 数据 对 象 。 真 实 的 情况 是 ， 在 一 个 可 以 将 过 程 当 作对 象 的 语 
AE, 在“ 过程” 和 “数据 ”之 间 并 没有 本 质 性 的 差异 ， 因 此 我 们 可 以 自由 选择 自己 所 需 的 语法 糖衣 ， 以 便 
按 自 己 选 定 的 风格 去 做 程序 设计 。 


Naat 
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理 表 的 数据 结构 ， 其 中 包含 着 一 个 需要 完成 的 事项 的 清单 。 对 于 这 个 待 处 理 表 ， 我 们 定义 了 
如 下 操作 : 
e (make-agenda ) 
返回 一 个 新 的 空 的 待 处 理 表 。 
e (empty-agenda? <agenda> ) 
在 所 给 待 处 理 表 空 时 为 真 。 
。 (first-agenda-item <agenda>) 
返回 待 处 理 表 里 的 第 一 个 项 目 。 
。 (remove-first-agenda-item! <agenda>) . 
修改 待 处 理 表 ， 删 除 其 中 的 第 一 个 项 目 。 
e (add-to-agenda! <time> <action> <agenda> ) | 
修改 待 处 理 表 ， 加 入 一 项 ， 要 求 在 特定 时 间 运 行 给 定 的 动作 过 程 。 
e (current-time <agenda> ) 
返回 当时 的 模拟 时 间 。 
我 们 要 用 的 特定 待 处 理 表 用 the-agenda 表 示 。 过 程 aftter-delay 癌 the-agenqa 里 
加 入 一 个 新 元 素 : 


(define (after-delay delay action) 
(add-to-agenda! (+ delay (current-time the-agenda)) 
action 
the-agenda) ) 


有 关 的 模拟 用 过 程 Propagate 驱 动 ， 它 对 the-agenda 操 作 ， 上 顺序 执行 这 一 待 处 理 表 中 
的 每 个 过 程 。 一 般 而 言 ， 在 模拟 运行 中 ， 一 些 新 的 项 目 将 被 加 入 待 处 理 表 中 。 只 要 在 这 一 待 
处 理 表 里 还 有 项 目 ， 过 程 Propagate 就 会 继续 模拟 下 去 : 
(define (propagate) 
(if (empty-agenda? the-agenda) 
"done 
(let ((first-item (first-agenda-item the-agenda) ) ) 
 (first-item) 
(remove-first-agenda~item! the-agenda) 
(propagate) ) ) ) 


一 个 简单 的 实例 模拟 
下 面 过 程 中 将 一 个 “监测 器 ” 放 到 一 个 线路 上 ， 用 于 显示 模拟 器 的 活动 。 这 一 过 程 告诉 
相应 的 线路 ， 只 要 它 的 值 改变 了 ， 就 应 该 打印 出 新 的 值 ， 同 时 打印 当前 时 间 和 线路 名 字 : 


(define (probe name wire) 
(add-action! wire 


(lambda () 
(newline) 
(display name) 
(display " ") 
(display (current-time the-agenda) ) 
(display "  New-value = ") 


(display (get-signal wire))))) 


5 





了 了 AEM REAR LU 195 


我 们 从 初始 化 待 处 理 表 和 描述 各 种 功能 块 的 延 时 开始 : 


(define the-agenda (make-agenda) } 
(define inverter-delay 2) 
(define and-gate-delay 3) 
(define or-gate-delay 5) 


现在 定义 4 条 线路 ， 在 其 中 的 两 条 线路 上 安装 监测 器 : 
(define input-1 (make-wire) ) 
(define input-2 (make-wire) ) 


(define sum (make-wire) ) 
(define carry (make-wire) ) 


(probe ‘sum sum) 
sum 0 New-value = 0 


(probe ‘carry carry) 
carry 0 New-value = 0 


下 面 我 们 将 这 些 线路 连接 到 一 个 半 加 器 电路 上 (参见 图 3-25 )， 将 input-1 上 的 信号 设置 为 ! ， 
而 后 运行 这 个 模拟 : 

(half-adder input~1l input-2 sum carry) 

ok 

(set-signal! input-1 1) 

done 


(propagate) 
sum 8 New-value = 1 


done 
在 时 间 8，sum 上 的 信号 变 为 1。 现 在 到 了 模拟 开始 之 后 的 8 个 时 间 单 位 。 在 这 一 点 上 ， 我 们 可 
以 将 input-2 上 的 信号 设置 为 1 ， 并 让 有 关 的 值 器 前 传播 

(set-signal! input-2 1) 

done 


(propagate) - 


carry 11 New-value 1 


sum 16 New-value = 0 


done 
在 时 间 11 处 carzry 变 为 1， 在 时 间 16 处 sum 变 成 0。 

练习 3.31 在 make-wire 里 定义 的 内 部 过 程 accept-action-procedure! 描述 的 是 ， 
当 -个 新 的 动作 过 程 加 入 线路 时 ， 这 一 过 程 应 立即 运行 。 请 解释 为 什么 需要 这 种 初始 动作 。 
特别 是 ， 请 追踪 上 面 段 落 里 的 半 加 器 例子 ， 看 看 如 果 我 们 不 这 样 做 ， 而 是 将 accept- 
action-procedure! 定 义 为 下 面 形式 ， 那 会 出 现 什么 情况 : 


(define (accept-action-procedure! proc) 
(set! action-procedures (cons proc action-procedures))) 


待 处 理 表 的 实现 


最 后 介绍 待 处 理 表 数 据 结构 的 细节 ， 这 一 数据 结构 里 面 保存 着 已 经 安排 好 ， 将 在 未 来 时 
刻 运 行 的 那些 过 程 。 
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这 种 待 处 理 表 由 一 些 时 间 段 组 成 ， 每 个 时 间 段 是 由 一 个 数值 (表示 时 间 ) 和 一 个 队列 
( 见 练习 3.32) 组 成 的 序 对 ， 在 这 个 队列 里 ， 保 存 着 那些 已 经 安排 好 的 ， 应 该 在 这 一 时 间 段 运 
行 的 过 程 。 
(define (make-time-segment time queue) 
(cons time queue) ) ) 


(define (segment-time s) (car s)) 


(define (segment-queue s) (cdr s)) 


我 们 将 用 3.3.2 节 描述 的 队列 操作 完成 在 时 间 段 队列 上 的 操作 。 

待 处 理 表 本 身 就 是 时 间 段 的 一 个 一 维 表格 。 与 3.3.3 节 所 示 的 表格 的 不 同 之 处 ， 就 在 于 这 
些 时 间 段 应 该 按照 时 间 递 增 的 顺序 排列 。 此 外 ， 我 们 还 需 在 待 处 理 表 的 头 部 保存 一 个 当前 时 
间 ( 即 ， 此 前 最 后 被 处 理 的 那个 动作 的 时 间 ) 。 一 个 新 构造 出 的 待 处 理 表 里 没 有 时 间 段 ， 其 当 
前 时 间 是 0 ”: 

(define (make-agenda) (list 0)) 

(define (current-time agenda) (car agenda) ) 

(define (set-current-time! agenda time) 

(set-car! agenda time) ) 
(define (segments agenda) (cdr agenda) ) 


(define (set-segments! agenda segments) 
(set-cdr! agenda segments) ) 


(define (first-segment agenda) (car (segments agenda) )} 


(define (rest-segments agenda) (cdr (segments agenda) ) ) 


如 果 一 个 待 处 理 表 里 没 有 时 间 段 ， 那 它 就 是 空 的 : 
(define (empty-agenda? agenda) 
(null? (segments agenda) )) 

为 了 将 一 个 动作 加 入 待 处 理 表 ， 我 们 首先 要 检查 这 个 待 处 理 表 是 否 为 空 。 如 果真 是 这 样 ， 
那么 就 创建 一 个 新 的 时 间 段 ， 并 将 这 个 时 间 段 装 入 待 处理 表 里 。 否 则 我 们 就 扫描 整个 的 符 处 
理 表 ， 检 查 其 中 各 个 时 间 段 的 时 间 。 如 果 发 现 某 个 时 间 段 具有 合适 的 时 间 ， 那 么 就 把 这 个 动 
作 加 入 与 之 关联 的 队列 里 。 如 果 碰 到 了 某 个 比 需要 预约 的 时 间 更 晚 的 时 间 ， 那 么 就 将 一 个 新 
的 时 间 段 插入 待 处 理 表 ， 插入 这 个 位 置 之 前 。 如 果 到 达 了 待 处 理 表 的 末尾 ， 我 们 就 必须 在 最 
后 加 上 一 个 新 的 时 间 段 。 

(define (add-to-agenda! time action agenda) 

(define (belongs-before? segments) 
(0r (null? segments) 

(< time (segment-time (car segments) )))) 
(define (make-new-time-segment time action) 


(let ((q (make-queue))) 
(insert-queue! q action) 


156 待 处 理 表 是 一 个 带 表 头 单元 的 表 ， 就 像 3.3.3 节 的 表格 。 但 是 因为 这 个 表 头 中 存放 着 当前 时 间 ， 我 们 就 不 必 在 
为 它 加 上 旺 的 头 单元 了 (例如 表 列 所 用 的 *tab1e”* 符 号 )。 
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(make-time-segment time q))) 
(define (add-to-segments! segments) 
(if (= (segment-time (car segments)) time) 
(insert-queue! (segment-queue (car segments) ) 
action) 
(let ((rest (cdr segments))) 
(if (belongs-before? rest) 
(set-cdr! 
segments 
(cons (make-new-time-segment time action) 
(cdr segments) ) ) 
(add-to-segments! rest))))) 
(let ((segments (segments agenda) )) 
(if (belongs-before? segments) 
(set-segments! 
agenda 
(cons (make-new-time-segment time action) 
segments) ) 


(add-to~segments! segments) ))) 


从 待 处理 表 中 删除 第 一 项 的 过 程 ， 应 该 删 去 第 一 个 时 间 段 的 队列 前 端的 那 一 项 。 如 有 条 删 
除 使 这 个 时 间 段 变 空 了 ， 我 们 就 将 这 个 时 间 段 也 从 时 间 段 的 表 里 删 去 ”: 
(define (remove-first-agenda-item! agenda) 
(let ((q (segment-queue (first~-segment agenda) ))) 
(delete-queue! q) . 
(if (empty-queue? q) 
(set-segments! agenda (rest-segments agenda) }))) | 
找 出 待 处 理 表 中 里 第 一 项 ， 也 就 是 找 出 其 第 一 个 时 间 段 队列 里 的 第 一 项 。 无 论 何 时 提取 
这 个 项 时 ， 都 需要 更 新 待 处理 表 的 当前 时 间 ”: 
(define (first-agenda-item agenda) 
(if (empty-agenda? agenda) 
(error "Agenda is empty -- FIRST-AGENDA-ITEM" ) 
(let ((first-seg (first-segment agenda) )) 
(set-current-time! agenda (segment-time first-seg) ) 
(front-queve (segment-queue first-seg))))) 
练习 3.32 ”在 待 处 理 表 中 ， 在 某 个 时 间 段 里 需要 运行 的 过 程 都 保存 在 一 个 队列 里 ， 这 就 
使 对 于 每 个 时 间 段 中 过 程 的 调用 能 按照 它们 加 入 待 处 理 表 的 次 序 进行 (先进 先 出 )。 请 解释 必 
须 采 用 这 种 顺序 的 理由 。 请 特别 追踪 一 个 与 门 的 行为 ， 假 设 它 的 输入 在 一 个 时 间 段 里 从 0, 1 变 
为 1, 0。 请 说 明 ， 如 果 我 们 将 过 程 按照 常规 表 的 方式 存 和 人 时间 段 ， 总 是 在 表 的 前 端 持 入 和 删 际 
过 程 (后 进 先 出 )， 那 么 会 出现 什么 情况 。 


157 请 注意 ， 这 个 过 程 里 用 的 1£ 表 达 式 没有 <alternative> 部 分 。 这 种 “ 单 支 1£ 语 名 ”用 于 确定 某 件 事情 做 或 不 做 ， 
而 不 是 在 两 个 表达 式 中 做 选择 。 如 果 if 表 达 式 没有 <alternative> ， 在 谓词 为 假 时 返回 值 不 确定 。 

sss 按 这 种 方式 ， 当 前 时 间 将 总 是 最 近 处 理 的 动作 的 时 间 。 将 这 一 时 间 保 存在 待 处 理 表 的 头 部 ， 将 能 保证 即使 与 
这 一 时 间 关 联 的 时 间 段 已 经 被 删除 ， 当 前 时 间 仍 然 是 可 用 的 。 





3.3.5 约束 的 传播 


在 传统 上 ， 计 算 机 程序 总 被 组 织 成 一 种 单 癌 的 计算 ， 它 们 对 一 些 事先 给 定 的 参数 执行 某 
些 操作 ， 产 生出 所 需要 的 输出 。 但 在 另 一 方面 ， 我 们 也 经 常 需 要 模拟 一 些 由 各 种 量 之 间 的 关 
系 描述 的 系统 。 例 如 ， 某 个 机 械 结 构 的 数学 模型 里 可 能 包含 着 这 样 的 一 些 信息 : 在 一 个 金属 
杆 的 偏转 量 d 与 作用 于 这 个 杆 的 力 f 、 杆 的 长 度 L、 截 面 面 积 4 和 弹性 模 数 之 间 的 关系 可 以 由 
下 面 方 程 描述 : 
dAE =FL a 


这 种 关系 并 不 是 单 向 的 ， 给 定 了 其 中 任意 的 4 个 量 ， 我 们 就 可 以 利用 它 计算 出 第 5 个 量 。 然 而 ， 
要 将 这 种 方程 翻译 到 传统 的 程序 设计 语言 ， 就 会 迫使 我 们 选 出 一 个 量 ， 要 求 基 于 另外 的 4 个 量 
去 计算 出 它 。 这 样 ， 一 个 用 于 计算 面积 4 的 过 程 将 不 能 用 于 计算 偏转 量 4 ， 虽 然 对 于 4 和 d 的 计 
算 都 出 自 这 同一 个 方程 2。 

在 这 一 节 里 ， 我 们 要 描绘 一 种 语言 的 设计 ， 这 种 语言 将 使 我 们 可 以 基于 各 种 关系 进行 工 
作 。 这 一 语言 里 的 基本 元 素 就 是 基本 约束， 它们 描述 了 在 不 同 量 之 间 的 某 种 特定 关系 。 例 如 ， 
(adder a b c) 描述 的 是 量 a、b 和 Cc 之 间 必 须 有 关系 4+b=c，(multiplier x y z) + 
述 的 是 约束 关系 xy =z, 而 (constant 3.14 x) 表示 x 的 值 永远 都 是 3.14，。 

我 们 的 语言 里 还 提供 了 一 些 方法 ， 使 它们 可 以 用 于 组 合 各 种 基本 约束 ， 以 便 去 描述 更 复 
杂 的 关系 。 在 这 里 ， 我 们 将 通过 构造 约束 网 络 的 方式 组 合 起 各 种 约束 ， 在 这 种 约束 网 络 里 ， 
约束 通过 连接 器 连接 起 来 。 连 接 器 是 一 种 对 象 ， 它 们 可 以 “保存 ”一 个 值 ， 使 之 能 参与 一 个 
或 者 多 个 约束 。 例 如 ， 我 们 知道 在 华氏 温度 和 摄氏 温度 之 间 的 关系 是 : 

9C =5(F —32) l 
这 样 的 约束 就 可 以 看 作 是 一 个 网 络 〈 如 图 3-28 所 示 )， 通 过 基本 加 法 约束 、 乘 法 约束 和 常量 约 
束 组 成 。 在 这 个 图 里 ， 我 们 看 到 左边 的 乘法 块 有 三 个 引线 ， 分别 标 记 为 ml1、m2 和 p 。 该 乘法 
约束 的 这 些 引 线 以 如 下 方式 连接 到 网 络 的 其 他 部 分 : 引线 m1 连 到 连接 器 C ， 这 个 连接 器 将 保 
存 报 氏 温 度 。 引 线 m2 接 在 连接 器 w， 该 连接 器 还 连接 着 一 个 保存 常量 9 的 约束 块 。 引 线 p 被 这 
一 乘法 块 约束 到 m1 和 m2 的 乘积 ， 它 还 连接 到 另 一 个 乘法 块 的 引线 r 。 另 一 乘法 块 的 m2 连接 到 
常量 5， 它 的 ml 连接 到 另 一 加 法 块 的 一 条 引线 上 。 





图 3-28 用 约束 网 络 表示 的 关系 9C = SF — 32) 


19 约束 传播 的 概念 首先 出 现在 Ivan Sutherland 的 不 可 思议 的 前 上 脆性 系 统 SKETCHPAD 中 (1963), Alan Borning 
在 Xerox Palo Alto 研 究 中 心 开发 一 个 基于 Smalltalk 语 言 的 漂亮 的 约束 传播 系统 (1977)。Sussman , Stallman 
和 Steele 将 约束 传播 用 于 电子 电路 分 析 (Sussman and Stallman 1975; Sussman and Steele 1980), TK!Solver 
(Konopasek and Jayaraman 1984) 是 一 个 基于 约束 的 扩展 模拟 环境 。 





由 这 样 的 网 络 完成 的 计算 以 如 下 方式 进行 ， 当 某 个 连接 器 被 给 定 了 一 个 值 时 (由 用 户 或 
者 由 它 所 连接 的 某 个 约束 块 ) ， 它 就 会 去 唤醒 所 有 与 之 关联 的 约束 (除了 刚刚 唤醒 它 的 那个 约 
束 之 外 )， 通 知 它们 自己 有 了 一 个 新 值 。 被 唤醒 的 每 个 约束 块 将 去 盘点 自己 的 连接 器 ， 看 看 是 
否 存在 足够 的 信息 为 某 个 连接 器 确定 一 个 值 。 如 果 可 能 的 话 ， 该 块 就 设置 相应 的 连接 器 ， 而 
这 个 连接 器 又 会 去 唤醒 与 之 连接 的 约束 ， 并 这 样 进行 下 去 。 举 例 说 ， 位 于 摄氏 和 华氏 之 间 的 
变换 常数 w、x 和 y 将 立即 被 各 个 常量 块 分 别 设置 为 9、5 和 32。 这 些 连 接 器 唤醒 网 络 中 的 加 法 约 
束 和 乘法 约束 ， 但 是 它们 都 确定 了 现在 还 没有 足够 的 信息 继续 工作 。 如 果 用 户 (或 者 网 络 中 
的 另外 某 个 部 分 ) 为 C 设 置 了 一 个 值 (譬如 说 25) ， 最 左边 的 乘法 约束 就 会 被 唤醒 ， 它 会 把 ( 设 
HHS . 9 =225 。 而 后 v 就 会 唤醒 第 二 个 乘法 约束 ， 这 一 乘法 约束 将 把 "设置 为 45 ; v 又 会 唤醒 
那个 加 法 约束 ， 该 加 法 约束 将 把 Fi 设置 为 77。 | 


约束 系统 的 使 用 
为 了 使 用 上 面 给 出 了 梗概 的 约束 系统 模型 去 执行 温度 计算 ， 我 们 需要 首先 调用 构造 函数 
make-connector ,创建 起 两 个 连接 器 C 和 F， 而 后 将 它们 连接 到 一 个 适 当 的 网 络 里 ， 


(define C (make-connector) ) 
(define F (make-connector) ) 
(celsius—fahrenheit-converter C F) 
ok 


创建 上 述 网 络 的 过 程 的 定义 如 下 : 


(define (celsius-fahrenheit-converter c 工 ) 
(let ((u (make-connector) ) 

{v (make-connector) ) 
(w (make-connector) ) 
(x (make-connector) ) 
(y (make-connector))) 

(multiplier c w u) 

(multiplier v x u) 

(adder v y f) 

(constant 9 w) 

(constant 5 x) 

(constant 32 y) 

‘Ok ) ) 


这 一 过 程 建 立 起 内 部 连接 器 ua 、v、w、x 和 y， 调 用 基本 约束 的 构造 国 数 adder multiplier 
和 constant， 并 将 它们 按照 图 3-28 所 示 的 形式 连接 起 来 。 就 像 3.3.4 节 描述 的 一 样 ， 以 过 程 的 
方式 描述 几 个 元 素 的 组 合 ， 也 就 自动 地 为 语言 提供 了 一 种 复合 对 象 的 抽象 方法 。 

为 了 观察 这 个 网 络 的 活动 ， 我 们 可 以 为 连接 器 C 和 F 安 装 上 probe 过 程 ， 这 里 使 用 的 过 程 
probe 与 前 面 在 3.4.4 节 里 监视 线路 的 过 程 类 似 。 在 连接 器 上 安装 监视 器 ， 将 导致 每 次 给 这 个 
连接 器 一 个 值 时 ， 就 会 打印 出 一 个 消息 : 


(probe "Celsius temp" C) 
(probe "Fahrenheit temp” F) 


下 面 我 们 将 C 设 置 为 23 set- value! 的 第 三 个 参数 告诉 C， 这 个 指示 直接 来 自 aser。 


(set-value! C 25 ‘user) 
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Probe: Celsius temp = 25 
Probe: Fahrenheit temp = 77 


done 


附 在 C 上 的 监视 器 被 唤醒 并 报告 有 关 的 值 。C 还 将 它 的 值 像 上 面 所 说 的 那样 治 着 网 络 传 播 ， 这 
将 使 F 被 设置 为 77 ， 最 后 也 由 F 的 监视 器 报告 出 来 。 

下 面 我 们 想 试 试 为 F 设 置 一 个 新 值 ， 例 如 212: 

(set-value! F 212 ”user) 

Error! Contradiction (77 212) 


这 一 连接 器 抱怨 说 它 发 现 了 一 个 矛盾 : 它 的 值 现 在 是 77， 而 别 的 什么 地 方 想 将 它 的 值 设 置 为 
212。 如 果 我 们 真希 望 对 新 的 值 重新 使 用 这 一 网 络 ， 那 么 就 应 该 告诉 C 忘 掉 它 原先 的 值 : 


(forget-value! C ’user) 
Probe: Celsius temp = ? 
Probe: Fahrenheit temp = ? 
done 


C 看 到 user 现 在 要 求 自 己 撤 销 已 有 的 值 ， 而 该 值 原 来 就 是 它 设 置 的 ， 因 此 就 同意 丢掉 该 值 ， 
正如 监视 器 所 报告 的 情况 。 这 一 信息 也 通知 到 网 络 的 其 余部 分 ， 有 关 消 息 最 终 传播 到 F ， 使 它 
发 现 已 经 不 该 继续 保持 值 77 了。 这 样 ，F 也 就 放弃 了 原来 的 值 ， 如 监视 器 所 报告 的 那样 。 

现在 F 没 有 值 了， 此 时 我 们 完全 可 以 将 它 设 置 为 212: 

(set-value! F 212 ’user) 

Probe: Fahrenheit temp = 212 


Probe: Celsius temp = 100 
done 


这 一 新 值 通过 网 络 传播 ， 最 终 迫 使 C 具 有 值 100， 这 一 情况 被 附着 在 C 上 的 监视 器 报告 出 来 。 
从 这 里 可 以 看 到 ， 同 样 的 一 个 网 络 ， 在 给 定 了 F 之 后 能 用 于 计算 C ， 在 给 定 C 后 能 算出 F。 这 种 
非 定向 的 计算 是 基于 约束 的 系统 的 标志 性 特征 。 


约束 系统 的 实现 
约束 系统 用 具有 内 部 状态 的 过 程 对 象 实现 ， 所 用 的 方式 很 像 3.3.4 节 里 的 数字 电路 模拟 带 。 
虽然 约束 系统 里 的 基本 对 象 在 某 些 方 面 更 复杂 一 些 ， 但 整个 系统 却 更 为 简单 ， 因 为 这 里 完全 
不 需要 关心 待 处 理 表 和 时 间 延 迟 等 等 问题 。 
连接 器 的 基本 操作 包括 : 
。 (has-value? <connector>) 
报告 说 这 一 连接 器 是 否 有 值 。 
e (get-value <connector> ) 
返回 连接 器 当前 的 值 。 
。 (set-value! <connector> <new-value> <informani> ) 
通知 说 ， 信 息 源 (informant ) 要 求 连接 器 将 其 值 设置 为 一 个 新 值 。 
e (forget-value! <connector> <retractor> ) 
通知 说 ， 撤 销 源 (retractor) 要 求 连接 器 忘记 其 值 。 
e (connect <connector> <new-constraini> ) 


通知 连接 器 参与 一 个 新 约束 。 
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连接 器 通过 过 程 Inftorm~about-value 与 各 个 相关 约束 通信 ， 这 一 过 程 告知 给 定 的 约 
束 ， 现 在 该 连接 器 有 了 一 个 新 值 。 过 程 ijnform-about~no-~value 告知 有 关 的 约束 ， 现 在 
IRIE HA T BCRA MIA. 

过 程 adder 在 被 求 和 连接 器 al 和 a2 与 和 连接 器 sum 之 间 构 造 出 一 个 加 法 约束 。 加 法 约束 
也 实现 为 一 个 带 有 内 部 状态 的 过 程 (下 面 的 过 程 me ): 


(define {adder al a2 sum) 
(define (process-new-value) 
(cond ((and (has-value? al) (has-value? a2)) 
(set-value! sum 
(+ (get-value al) (get-value a2)) 
me ) ) 
( (and (has-value? al) (has-value? sum)) 
(set-value! a2 
(~ (get-value sum) (get-value al)) 
me ) ) 
{( (and (has-value? a2) (has-value? sum)) 
(set-value! al 
(- (get-value sum) (get-value a2)) 
me)))) 
(define (process-forget-value) 
(forget-value! sum me) 
(forget-value! al me) 
(forget-value! a2 me) 
(process-new-value) ) 
(define (me request) 
(cond ((eq? request ‘I-have-a-value) 
(process-new-value) ) 
( (eq? request 'I-lost-my-value) 
(process-forget-value) ) 
(else 
(error "Unknown request -- ADDER" request)))) 
(connect al me) 
(connect a2 me) 
{connect sum me) 


me ) 


过 程 adder 将 一 个 新 的 加 法 约束 连接 到 指定 连接 器 ， 并 将 这 个 加 法 约束 作为 自己 的 返回 值 。 
过 程 me 就 代表 那个 加 法 约束 ， 它 的 活动 方式 就 像 是 一 个 对 完成 局 部 过 程 分 派 的 分 派 过 程 。 下 
面 的 “语法 界面 ”( 参 见 3.3.4 节 里 的 脚注 155) 可 以 与 上 述 分 派 过 程 结 合 使 用 : 

(define (inform-about-value constraint) 


(constraint 'I-have-a-value)) 


(define (inform-about-no-value constraint) 
(constraint ’I-lost-my-value)) 


当 加 法 约束 得 到 了 通知 ， 知 道 自己 的 一 个 连接 器 有 了 新 值 时 ， 这 个 约束 里 的 局 部 过 程 process- 
new-value 就 会 被 调用 。 此 时 ， 加 法 约束 首先 检查 al 和 a2 是 否 都 有 了 值 ， 如 果 有 的 话 ， 它 就 各 
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诉 sum 将 其 值 设 置 为 两 个 加 数 之 和 。 送 给 set-value! 的 informant 参 数 是 me ， 也 就 是 这 个 加 
法 对 象 本 身 。 如 果 并 排 al1 和 a2 都 有 了 值 ， 那 么 加 法 对 象 就 检查 是 否 al1 和 sum 都 已 经 有 了 值 ， 如 
果 情 况 真 是 这 样 ， 它 就 将 a2 设 置 为 两 者 之 差 。 最 后 ， 如 果 a2 和 sum 都 有 值 ， 就 给 了 这 个 加 法 对 
象 足 够 的 信息 去 设置 al1。 如 果 加 法 对 象 被 告知 自己 的 一 个 连接 器 丧失 了 值 ， 那 么 它 就 要 求 其 所 
有 连接 器 丢掉 它们 的 值 (实际 上 ， 只 有 那些 被 该 加 法 对 象 设置 值 的 连接 器 会 丢 挥 值 )， 而 后 再 运 
行 它 的 过 程 Process-new-value。 需 要 最 后 这 一 步 的 原因 是 ， 还 可 能 有 些 连 接 器 仍然 有 日 己 
的 值 (也 就 是 说 ， 某 个 连接 器 过 去 所 拥有 的 值 原来 就 不 是 由 这 个 加 法 对 象 设置 的 ) ， 这 些 值 又 可 
能 需要 通过 这 一 加 法 对 象 传播 。 | 
乘法 对 象 很 像 加 法 对 象 。 如 果 两 个 因子 之 一 是 0， 它 就 会 把 Product 设 置 为 0 Alte A 
个 因子 现在 还 不 知道 。 
(define (multiplier ml m2 product) 
(define (process-new-value) 
(cond ((or (and (has-value? ml) (= (get-value ml) 0)) 
(and (has-value? m2) (= (get-value m2) 0))) 
(set-value! product 0 me)) 
(({and (has~-value? ml) (has-value? m2)) 
(set-value! product 
(* (get-value ml) (get-value m2)) 
me ) ) 
((and (has-value? product) (has-value? ml)) 
(set-value! m2 
(/ (get-value product) (get-value ml)) 
me) ) 
((and (has-value? product) (has-value? m2)) 
(set-value! ml 
(/ (get-value product) (get-value m2)) 
me)))) | 
(define (process-forget-value) 
(forget-value! product me) 
(forget-value! ml me) 
(forget-value! m2 me) 
(process-new-value) ) 
(define (me request) 
(cond ((eq? request “I-have-a-value) 
(process-new-value) ) 
( (eq? request ‘I-lost-my-value) 
(process-forget-value) ) 
(else | 
(error "Unknown request -- MULTIPLIER" request)))) 
(connect ml me) 
(connect m2 me) 
(connect product me) 
me ) 


constant 的 构造 函数 简单 地 设置 指定 连接 器 的 值 。 任 何 时 候 把 I-have-a-value 或 者 I- 
lost-my-value 消 息 送 到 常量 块 都 会 产生 一 个 错误 。 


(define (constant value connector) 





了 .3 了 ALE KUIR RM 203 


(define (me request) 
(error "Unknown request -- CONSTANT" request) ) 
(connect connector me) 
{set-value! connector value me) 
me ) 


最 后 ， 监 视 器 在 指定 连接 器 被 设置 或 者 取消 值 的 时 候 打 印 出 一 个 消息 : 


(define (probe name connector) 
(define (print~probe value) 
(newline) 
(display "Probe: ") 
(display name) 
(display " = ") 
(display value) ) 
(define (process-new-value) 
(print-probe (get-value connector) ) ) 
(define (process-forget-value) 
(print-probe "2")) 
(define (me request) 
(cond ((eq? request ‘I-have-a-value) 
(process-new-value) ) 
( (eq? request "I-lost-my-value) 
(process-forget-value) ) 
(else 
(error "Unknown request -- PROBE" request) )})}) 
(connect connector me) 
me ) 


连接 器 的 表示 
连接 器 用 带 有 局 部 状态 变量 Value、informant 和 constraints 的 过 程 对 象 表示 ， 
value 中 保存 这 个 连接 器 的 当前 值 ，informant 是 设置 连接 器 值 的 对 象 ， constraints 是 
这 一 连接 器 所 涉及 的 所 有 约束 的 表 。 
(define (make-connector) 
(let ((value false) (informant false) {constraints (7)) 
(define (set-my-value newval setter) 
(cond ((not (has-value? me) ) 
(set! value newval) 
(set! informant setter) 
(for-each-except setter 
inform-about-value 
constraints) ) 
((not (= value newval)) 
(error "Contradiction" (list value newval))) 
(else ’ignored))) 
(define (forget-my-value retractor) 
(if (eq? retractor informant) 
(begin (set! informant false) 
(for-each-except retractor 
inform-about-no-value 
constraints) } 





ignored) ) 
(define (connect new-constraint) 
(if (not (memg new-constraint constraints) ) 
(set! constraints 
(cons new-constraint constraints) )) 
(if (has-value? me) 
(inform-about-value new-constraint) ) 
*done) 
(define (me request) 
(cond ((eq? request ’has~value?) 
(if informant true false)) 
( (eq? request ’value) value) 
((eq? request ’set-value!) set-my~value) 
( (eq? request forget) forget-my-value) 
( (eq? request connect) connect) 
(else (error "Unknown operation -- CONNECTOR" 
request)))) 
me) ) 


当 出 现 了 设置 一 个 连接 器 的 要 求 时 ， 该 连接 器 的 局 部 过 程 set-my-value 就 会 被 调用 。 
如 果 这 一 连接 器 当时 并 设 有 值 ， 那 么 它 就 设置 自己 的 值 ， 并 在 1nformant 里 记录 下 要 求 设置 
当前 值 的 那个 约束 '!%。 而 后 这 一 连接 器 将 通知 它 所 参与 的 所 有 约束 ， 除 了 刚刚 要 求 设置 值 的 
那个 约束 之 外 。 这 一 工作 通过 下 面 的 迭代 过 程 完成 ， 它 将 一 个 指定 过 程 应 用 于 一 个 表 中 的 所 
有 对 象 ， 除 了 一 个 给 定 的 例外 : 


(define (for-each-except exception procedure list) 
(define (loop items) 
(cond ((null? items) ‘done) 
((eq? (car items) exception) (loop (cdr items))) 
(else (procedure (car items) ) 
(loop (cdr items))))) 
(loop list)) 

当 连 接 器 被 要 求 忘记 自己 的 值 时 ， 它 就 会 去 运行 局 部 过 程 forget-my-value 。 这 个 过 
程 首先 检查 这 一 要 求 是 否 来 自 原先 设置 值 的 同一 个 对 象 。 如 果 情 况 确 实 如 此 ， 连 接 器 就 通知 
它 所 参与 的 所 有 约束， 告知 它 们 自己 的 值 已 经 没有 了 。 

局 部 过 程 connect 向 约束 表 里 加 入 一 个 新 约束 GOR EAM ERB). MR PIER ar 
已 经 有 值 ， 它 就 会 将 这 一 事实 通知 这 个 新 约束 。 

连接 器 过 程 me 完 成 对 于 内 部 过 程 服 务 的 分 派 工 作 ， 它 同时 也 作为 这 个 连接 器 对 象 的 代表 。 
下 面 几 个 过 程 为 分 派 提供 了 一 个 语法 界面 ， 

(define (has-value? connector) 


(connector *has-value?) ) 


(define (get-value connector) 
(connector ‘value)) 


(define (set-value! connector new-value informant) 
( (connector ’set-value!) new-value informant) ) 


0 这 里 的 settezr 也 可 能 不 是 约束 。 在 前 面 有 关 温度 的 例子 里 ， 就 用 了 usez 作为 Settet。 





(define (forget-value! connector retractor) 


((connector ’forget) retractor) ) 


(define (connect connector new-constraint) 
( (connector ’connect) new-constraint) ) 


练习 3.33 ”利用 基本 的 加 共 、 乘 法 和 常量 约束 定义 一 个 averager 过 程 ， 它 以 三 个 连接 a、 
b 和 c 作 为 输入 ， 建 立 起 一 个 约束 ， 使 得 c 总 十 a 和 b 的 平均 值 。 

练习 3.34 Louis Reasoner 想 做 一 个 平方 器 ， 也 就 是 一 种 带 有 两 条 引线 的 约束 装置 ， 使 得 
连接 在 它 的 第 二 条 引线 上 的 连接 器 b 的 值 是 其 第 一 条 引线 上 的 值 a 的 平方 。 他 提出 了 用 乘法 约 
束 定义 这 一 设备 的 简单 方法 : 


(define (squarer a b) 
(multiplier aa b)) 


这 一 建议 有 一 个 严重 缺陷 ， 请 给 出 解释 。 
练习 3.35 Ben Bitdiddle 告 诉 Louis， 为 了 避免 他 在 练习 3.34 中 遇 到 的 麻烦 ， 一 种 方式 是 将 


平方 器 定义 为 一 个 新 的 基本 约束 。 请 填充 Ben 所 给 出 的 下 面 过 程 概要 ， 实 现 这 样 的 约束 : 


(define (squarer a b) 
(define (process-new-value) 
(if (has-value? b) 
(if (< (get-value b) 0) . 
(error "square less than 0 -- SQUARER" (get-value b)) 
<alternativel >) 
<alternative2> ) ) 
(define (process-forget-value) <bodyl>) 
(define (me request) <body2>) 
< 其 他 定 义 > 


me ) 
练习 3.36 假定 我 们 要 在 全 局 环境 里 求 值 下 面 的 表达 式 序列 : 
(define a (make-connector)) 


(define b (make-connector)) 
(set-value! a 10 ‘user) 


在 对 set-value! 求 值 的 某 个 时 刻 ， 需 要 在 连接 器 的 局 部 过 程 中 求 值 下 面 表达 式 .: 


(for-each-except setter inform-about-value constraints) 


请 画 出 表示 上 述 表 达 式 的 求 值 环 境 的 环境 图 。 
练习 3.37 HF 面 更 具 表达 式 风 格 的 定义 相 比 ， 过 程 celsius-fahrenheit-~converter 





显得 过 于 麻烦 了 : 
(define (celsius-fahrenheit-converter x) 
(c+ (c* (c/ (cv 9) (cv 5)) 
X) 
(cv 32))) 


(define C (make-connector) ) 
(define F (celsius-fahrenheit-converter C) ) 


这 里 的 c+ 、c* 等 等 是 算术 运算 的 “约束 ”版 。 例 如 ，c + 以 两 个 连接 器 为 参数 ， 返 回 另 一 个 
连接 器 ， 它 与 那 两 个 连接 器 具有 加 法 约束 : 
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(define (c+ x y) 
(let ((z (make-connector))) 
(adder x y 2) 


2z ) ) 
请 定义 模拟 过 程 c-、c* 、c/ 和 cv (常量 值 )， 使 我 们 可 以 利用 它 们 定义 出 各 种 复合 约束 ， 就 
像 前 面 有 关 反 门 的 例子 ”。 


3.4 并 发 : 时 间 是 一 个 本 质问 题 


我 们 已 经 看 到 了 具有 内 部 状态 的 计算 对 象 作为 模拟 工具 的 威力 。 然 而 ， 正 如 3.1.3 布 提出 
的 警告 ， 这 种 威力 也 付出 了 代价 : 丢掉 了 引用 透明 性 ， 造 成 了 有 关 同 一 与 变化 问题 中 的 模糊 
不 清 ， 还 必须 抛弃 求 值 的 代 换 模型 ， 转 而 采用 更 复杂 也 难 把 握 的 环境 模型 。 

潜藏 在 状态 、 同 一 、 变 化 后 面 的 中 心 问 题 是 ， 引 入 赋值 之 后 ， 我 们 就 必须 承认 时 间 在 所 
用 的 计算 模型 中 的 位 置 。 在 引入 赋值 之 前 ,我们 的 所 有 程序 都 没有 时 间 问 题 ， 也 就 是 说 ， 任 
何 具 有 某 个 值 的 表达 式 ， 将 总 是 具有 这 个 值 。 与 此 相反 ， 请 回忆 一 下 在 3.1.1 市 开始 介绍 的 ， 
模拟 从 银行 账户 提 款 并 返回 最 后 余额 的 例子 


(withdraw 25 ) 
75 


(withdraw 25) 
50 


在 这 里 ， 连 续 地 对 同一 个 表达 式 求 值 ， 却 产生 出 了 不 同 的 值 。 这 种 行为 的 出 现 就 是 因为 一 个 
事实 ， 赋值 语句 的 执行 (在 所 讨论 的 情况 中 就 是 对 balance 的 赋值 ) 描绘 出 有 关 值 变化 的 一 
些 时 刻 ， 对 一 个 表达 式 的 求 值 结果 不 但 依赖 于 该 表达 式 本 身 ， 还 依赖 于 求 值 发 生 在 这 些 时 刻 
之 前 还 是 之 后 。 采 用 具有 局 部 状态 的 计算 对 象 建 立 模 型 ， 就 会 迫使 我 们 去 直面 时 间 问 题 ， 并 
将 它 作为 程序 设计 中 一 个 必 不 可 少 的 概念 。 

在 构造 与 我 们 所 感知 的 物理 世界 更 加 匹配 的 计算 模型 方面 ， 我 们 还 可 以 走 得 更 远 一 些 。 


”这 种 类 表达 式 的 表示 形 式 比较 方便 ， 因 为 在 这 里 可 以 不 必 去 命名 一 个 计算 的 中 间 表 达 式 。 我 们 原来 的 约束 语 
言 在 形式 上 的 麻烦 ， 与 许多 语言 中 处 理 复合 数据 的 操作 时 所 遇 到 的 麻烦 完全 一 样 。 例 如 ， 如 果 我 们 希望 计算 
乘积 (a +b) . (c + 办， 其 中 的 变量 都 表示 向 量 ， 我 们 可 以 采用 “命令 式 风 格 "， 用 一 些 设 置 指定 向 量 参数 ， 但 
自己 并 不 返回 向 量 值 的 过 程 : 

(v-sum a b templ) 

(v-sum c d temp2) 

(v-prod templ temp2 answer) 

换 一 种 方式 ， 我 们 也 可 以 用 返回 向 量 值 的 过 程 写 表达 式 ， 因 此 就 可 以 避免 显 式 地 提出 temp1l1 和 temp2: 
(define answer (v-prod (v-sum a b) (v-sum c d))) 

因为 Lisp 允许 返 回复 合 对 象 作为 过 程 的 值 ， 因 此 我 们 就 可 以 将 上 面 的 命令 式 风 格 的 约 东 语言， 变换 为 男 一 种 
表达 式 风 格 的 语言 ( 见 上 述 练习 )。 在 那些 处 理 复合 数据 对 象 方面 手段 贫乏 的 语言 里 ， 例 如 Algol 、Basic 和 
Pascal (一 个 例外 的 是 在 Pascal 里 显 式 使 用 指针 变量 )， 人 们 通常 只 能 通过 命令 式 风格 去 操作 复合 对 象 。 看 到 
了 基于 表达 式 风格 的 优点 之 后 ， 有 人 可 能 会 问 ， 采 用 命令 式 风格 实现 系统 ( 像 我 们 在 这 一 节 里 所 做 的 这 样 ) 
难道 还 有 什么 理由 吗 ? 这 里 的 一 个 理由 是 ， 非 表达 式 风 格 的 约束 语言 为 约束 对 象 和 连接 器 对 象 提供 了 句柄 
(例如 ，adder 过 程 的 值 ) ， 如 果 我 们 希望 为 有 关 的 系统 扩充 一 些 新 操作 ， 和 希望 它们 直接 与 这 些 约束 通信 ， 而 
不 是 通过 连接 器 上 的 操作 ， 这 种 句柄 就 会 显得 非常 有 用 了 。 虽 然 在 命令 式 的 实现 之 上 很 容易 实现 基于 表达 式 
的 风格 ， 要 想 反 过 来 做 就 非常 困难 了 。 
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现实 世界 里 的 对 象 并 不 是 一 次 一 个 地 顺序 变化 ， 与 此 相反 ,我们 看 到 它们 总 是 并 发 地 活动 ， 
所 有 东西 一 起 活动 。 所 以 ， 用 一 集 并 发 执行 的 计算 进程 (为 了 与 一 般 讨论 并 行 计算 与 并 发 问 
题 的 文献 保持 一 致 ， 在 这 一 节 里 ， 我 们 把 术语 process 翻 译 为 “进程 ”。 实 际 上 ， 这 里 的 
process 与 前 面 译 为 “计算 过 程 ”的 process 描 述 的 是 同样 的 现象 ， 都 是 指 一 个 计算 活动 的 进展 
情况 一 一 译 者 注 ) 模拟 各 种 系统 常常 是 很 自然 的 。 正 如 我 们 可 以 通过 将 模型 组 织 为 一 些 具有 
相互 分 离 的 局 部 状态 的 对 象 ， 使 做 出 的 程序 更 加 模块 化 一 样 ， 将 计算 模型 划分 为 一 些 能 各 自 
独立 地 并 发 演化 的 部 分 ， 常 常 也 是 很 合适 的 。 即 使 有 关 的 程序 是 在 一 台 顺 序 计算 机 上 执行 ， 
在 实际 写 程序 时 就 像 它们 将 被 并 发 地 执行 那样 ， 也 能 帮助 程序 员 们 避免 那些 并 不 必要 的 时 间 
约束 ， 因 此 也 可 能 使 程序 更 加 模块 化 。 

除了 使 程序 更 加 模块 化 之 外 ， 并 发 计算 还 可 能 提供 某 种 超越 顺序 计算 的 速度 优势 。 顺 序 
计算 机 每 次 只 能 执行 一 个 操作 ， 所 以 它 执行 一 件 任务 所 花费 的 时 间 量 将 正比 于 需要 执行 的 操 
作 的 总 数 '。 然 而 ， 如 果 可 能 将 一 个 问题 分 解 为 一 些 片段 ， 这 些 片 段 之 间 相 对 独立 ， 极 少 需 
要 相互 联系 ， 那 么 就 有 可 能 将 这 些 片段 分 配给 不 同 的 计算 处 理 器 ， 得 到 的 速度 提高 就 可 能 正 
比 于 可 用 的 处 理 器 数目 了 。 

但 是 ， 在 出 现 了 并 发 的 情况 下 ， 由 赋值 引入 的 复杂 性 问题 将 变 得 更 加 严重 了 。 无 论 是 因 
为 真实 世界 确实 如 此 ， 还 是 因为 我 们 在 计算 机 里 这 样 做 ， 并 发 执行 的 出 现 都 会 在 我 们 对 时 间 
的 理解 中 加 入 进一步 的 复杂 性 。 


3.4.1 并 发 系统 中 时 间 的 性 质 


从 表面 上 看 ， 时 间 似 乎 是 非常 简单 的 东西 。 它 也 就 是 强加 在 各 种 事件 上 的 一 个 顺序 '。 
对 于 任何 两 个 事件 4 和 B ,或 者 是 4 出 现在 B 之 前 , 或 者 4 和 B 同 时 发 生 ， 或 者 4 出 现在 8 之 后 。 
壁 如 说 ， 回 到 前 面 银 行 账户 的 例子 。 假 设 Peter 从 两 人 的 共用 账户 里 提 款 10 元 而 Paul 提 款 25 元 。 
这 一 账户 的 初始 余额 为 100 元 ， 提 款 后 账户 余额 为 65 元 。 根 据 两 次 提 款 的 顺序 不 同 ， 账 户 中 剑 
额 的 序列 可 以 是 100 一 90 一 65 或 者 100 一 75 一 65。 在 银行 系统 的 一 个 计算 机 实现 里 ， 余 额 的 这 
种 变化 序列 可 以 用 对 变量 baLlance 的 一 系列 赋值 来 模拟 。 

在 更 加 复杂 的 情况 下 ， 这 样 的 观点 也 会 成 为 问题 。 假 设 Peter 和 Paul ， 可 能 还 有 其 他 的 人 ， 
都 在 通过 遍布 全 世界 的 银行 机 器 网 络 访问 这 个 账户 。 那 么 余额 的 实际 序列 就 将 严格 地 依赖 于 
这 些 访 问 的 确切 时 间 顺 序 ， 以 及 机 器 之 间 通 信 的 各 种 细节 。 | 

事件 顺序 的 非 确定 性 ， 可 能 对 并 发 系统 的 设计 提出 了 严重 的 问题 。 举 例 说 ， 假 定 由 Peter 
和 Paul 进 行 的 取款 被 实现 为 两 个 独立 的 进程 ， 它 们 共享 同一 个 变量 balance ， 这 两 个 计算 进 

程 都 由 3.1.1 节 给 出 的 如 下 过 程 描述 : 


(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (~ balance amount) ) 
balance) 
"Insufficient funds") ) 


如 果 这 两 个 进程 独立 地 操作 ， 那 么 Peter 就 可 能 去 检查 余额 ， 而 后 企图 提取 出 合法 数量 的 一 笔 


162 大 部 分 真实 的 处 理 器 每 次 执行 若干 个 操作 ， 它 们 采用 一 种 称 为 流水 线 的 策略 。 虽 然 这 一 技术 能 极 大 地 提高 硬 
件 性 能 ， 它 也 只 是 用 于 加 速 顺序 指令 流 的 执行 ， 还 需要 保持 顺序 程序 的 行为 。 
463 引 -一 段 号 在 剑桥 建筑 墙 上 的 话 :“ 时 间 是 一 种 设施 ， 发 明 它 就 是 约 了 不 让 所 有 的 事情 都 立即 发 生 。 
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款 。 然 而 ，Paul 完 全 可 能 在 Peter 检 查 余额 和 的 时 刻 与 Peter 完 成 提 款 的 时 刻 之 间 提 取 走 了 一 笔 钱 ， 
这 样 也 就 使 Peter 的 事先 检查 变 得 不 再 合法 了 。 | 

事情 还 可 能 变 得 更 精 糕 。 考 虑 作为 每 个 提 款 进程 一 部 分 的 表达 式 ， 

(set! balance {- balance amount) ) 
这 一 表达 式 的 执行 包含 三 个 步骤 : 1) 取得 变量 balance 的 值 ， 2) 计算 出 新 的 余额 ，3) 将 变量 
balance 设 置 为 新 值 。 如 果 Peter 和 Paul 在 提 款 过 程 中 并 发 地 执行 这 一 语句 ， 那 么 这 两 次 提 款 
在 访问 balance 和 将 它 设 置 为 新 值 的 动作 就 可 能 交错 。 

图 3-29 显 示 的 时 序 图 勾画 了 一 个 事件 顺序 ， 其 中 的 balance 在 开始 时 是 100，Peter 取 走 
了 10 ，Paul 取 走 了 25 ， 然 而 balance 最 后 的 值 却 是 75。 正 如 图 中 所 示 ， 出 现 这 种 异常 情况 的 
原因 是 ，Paul 将 75 赋 值 给 balance 的 前 提 条 件 是 ， 在 减少 之 前 balance 的 值 是 100。 而 当 
Peter 将 balance 修 改 为 0 之 后 ， 上 述 前 提 已 经 变 得 不 再 合法 了 。 对 于 银行 系统 而 言 ， 这 当然 
是 灾难 性 的 错误 ， 因 为 系统 里 款项 的 总 量 没 有 维持 好 。 在 这 些 交 易 之 前 ， 款 项 的 总 额 是 100 元 。 
在 此 之 后 ，Peter 有 了 10 元 , Paul 有 了 25 元 ， 而 银行 还 有 75 元 “。 


Peter Bank Paul 
$100 
Access balance: $100 Access balance: $100 | 
new value: 100-10—90 


new value: 100-25=75 
set! balance to $90 


set! balance to $75 


$90 


图 3-29 时 序 图 ， 说 明 两 次 银行 提 款 事件 怎样 交错 就 可 能 导致 不 正确 的 余额 


由 这 一 实例 表现 出 的 一 般 性 现象 是 ， 几 个 进程 有 可 能 共享 同一 个 状态 变量 。 使 事情 变 得 
更 加 复杂 的 原因 ， 就 是 多 个 进程 有 可 能 同时 试图 去 操作 这 种 共享 的 状态 。 对 于 银行 账户 的 例 
子 ， 在 完成 每 次 交易 时 ， 每 个 客户 应 该 能 像 根 本 不 存在 其 他 客户 那样 进行 自己 的 活动 。 当 一 
个 客户 以 某 种 依赖 于 余额 的 方式 修改 余额 时 ， 他 应 该 能 够 假定 ， 在 立刻 就 要 做 修改 的 那个 时 


time 


le 对 于 这 个 系统 ， 如 果 两 个 set! 操作 同时 试图 去 修改 余额 PANO TEEM, RPL. BE 
出 现 的 实际 数据 就 可 能 是 两 个 进程 所 写 信息 的 随机 组 合 。 大 部 分 计算 机 都 有 对 存储 器 基本 写 人 操作 的 互 锁 ， 
以 防止 这 种 同时 写 入 的 情况 发 生 。 即 使 是 这 种 看 起 来 很 简单 的 保护 机 制 ， 也 对 于 多 处 理 计 算 机 的 设计 实现 提 
出 了 挑战 ， 在 那里 ， 非 常 精巧 的 弹 存 一 致 性 规程 要 求 保证 所 有 处 理 器 对 存储 器 的 内 容 有 一 种 统一 观点 ， 以 提 
高 存储 器 访问 的 速度 ， 虽 然 事 实 上 这 睹 数据 可 能 复制 (BH) 在 不 同 处理 器 里 。 
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刻 ， 该 余额 的 情况 仍然 还 是 他 所 设想 的 那样 。 

并 发 程序 的 正确 行为 

上 面 例子 的 情况 非常 典型 ， 是 可 能 潜藏 在 并 发 程序 里 的 微妙 错误 。 这 一 复杂 性 的 根源 ， 
就 在 于 这 里 出 现 了 对 不 同 进程 之 间 共 享 的 变量 的 赋值 。 我 们 已 经 知道 ， 在 写 那 些 使 用 set! 的 
程序 时 必须 小 心 ， 因 为 一 个 计算 的 结果 将 依赖 于 其 中 的 各 个 赋值 发 生 的 顺序 “。 对 于 并 发 进 
fe, ， 我 们 对 于 赋值 就 更 需要 特别 小 心 ， 因 为 在 这 里 可 能 无 法 控制 其 他 进程 所 做 赋值 的 出 现 顺 
序 。 如 果 几 个 这 样 的 修改 可 能 并 发 出 现 (就 像 上 面 两 个 提 款 人 访问 一 个 共用 账户 的 情况 )， 我 
们 就 需要 采用 某 些 方式 ， 以 设法 保证 系统 的 行为 是 正确 的 。 例 如 ， 在 共用 银行 账户 提 款 的 情 
况 中 ， 我 们 必须 保证 总 款额 不 变 。 为 了 使 并 发 程序 的 行为 正确 ， 可 能 就 需要 对 程序 的 并 发 执 
行 增 加 一 些 限制 。 

对 于 并 发 的 一 种 可 能 限制 方式 是 规定 ,修改 任意 共享 状态 变量 的 两 个 操作 都 不 允许 同时 
发 生 。 这 是 一 个 特别 严厉 的 要 求 。 对 于 分 布 式 银行 系统 ， 这 就 要 求 系统 设计 者 保证 同时 出 现 
的 只 能 有 一 个 交易 。 这 样 做 可 能 过 于 低 效 ， 也 太保 守 了 。 图 3-30 中 显示 的 是 Peter 和 Paul 共 享 
同一 个 银行 账户 ， 而 Peter 自 己 还 有 一 个 私人 账 尸 。 该 图 展示 了 从 共享 账 万 的 两 次 提 款 (一 次 
来 自 Peter， 一 次 来 自 Paul ) 和 对 Paul 的 个 人 账户 的 一 次 存款 “。 对 于 共享 账户 的 两 次 取款 决 不 
能 并 发 进行 〈 因 为 两 者 需要 访问 和 更 新 同一 账户 ) ， 而 且 Paul 的 存款 和 取款 也 决 不 能 并 发 ( 因 
为 两 者 都 访问 和 更 新 Paul 账 户 里 的 款额 )。 但 是 ， 人 允许 Paul 向 自己 的 个 人 账户 存款 与 Peter 从 他 
们 的 共享 账户 取款 并 发 进行 ， 则 不 会 有 任何 问题 。 


Peter Bank| 
© O 
加 
© Cy Ge 
， | 
we) e 
time 


图 3-30 并 发 地 从 共享 账户 Bank1 取 款 和 向 个 人 账户 Bank2 存 款 


Paul Bank2 
300 


3.1.35 BA BREE RPM EME TGR. 、 
!6 图 中 各 列 分 别 显示 了 Peter 的 钱包 ， 共 用 账户 (Bankl), ，Paul 的 钱包 ，Paul 的 个 人 账户 《Bank2)， 显 示 了 它们 
在 每 次 提 款 (W ) 和 存款 (D) 前 后 的 情况 。Peter 从 Bank1 取 出 10 元 ，Paul 向 Bank2 存 人 5 元， 而 后 又 从 Bankl 


取出 23 元 。 
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对 于 并 发 的 另 一 种 不 那么 严厉 的 限制 方式 是 ， 保 证 并 发 系统 产生 出 的 结果 与 各 个 进程 按 
照 某 种 方式 顺序 运行 产生 出 的 结果 完全 一 样 。 这 一 要 求 中 包含 两 个 重要 方面 。 首 先 ， 它 并 没 
有 要 求 各 个 进程 实际 上 上 顺序 地 运行 ， 而 只 是 要 求 它们 产生 的 结果 与 假设 它们 顺序 运行 所 产生 
出 的 结果 相同 。 对 于 图 3-30 的 例子 ， 银 行 账户 系统 的 设计 者 可 以 安全 地 允许 Paul 的 存款 和 
Peter 的 取款 并 发 进行 ， 因 为 这 样 做 所 造成 的 整体 效果 与 这 两 个 操作 顺序 出 现 的 效果 一 样 。 第 
二 点 ， 一 个 并 发 程序 完全 可 能 产生 多 于 一 个 “正确 的 ”结果 ， 因 为 我 们 只 要 求 其 结果 与 按照 
某 种 方式 顺序 化 的 结果 相同 。 例 如 ， 假 定 Peter 和 Paul 的 共享 账户 里 开始 有 100 元 ，Peter 存 人 40 
元 ， 同 时 Paul 并 发 地 取出 了 账户 中 钱 数 的 一 半 。 上 顺序 执行 的 结果 可 能 使 得 账户 里 的 余额 变 成 
70 元 或 者 90 元 (参见 练习 3.38) 7, 

对 于 并 发 程序 的 正确 执行 ， 我 们 还 可 以 提出 一 些 更 弱 的 要 求 。 一 个 模拟 扩散 过 程 的 程序 
(例如 ， 在 某 个 对 象 里 面 的 热量 流动 ) 可 以 由 一 大 批 进程 组 成 ， 每 个 进程 代表 空间 中 很 小 的 一 
点 体积 ， 它 们 并 发 地 更 新 自己 的 值 。 这 里 的 每 个 进程 都 反复 将 自己 的 值 更 新 为 自己 的 原 值 和 
相 邻 进程 的 值 的 平均 值 。 无 论 有 关 的 操作 按 什么 顺序 执行 ， 这 种 算法 都 能 收敛 到 正确 的 解 ， 
因此 也 就 不 需要 对 于 共享 变量 的 并 发 使 用 提出 任何 限制 了 。 

练习 3.38 ”假定 Peter、Paul 和 Mary 共 享 一 个 共用 的 账户 ， 其 中 开始 有 100 元 钱 。 按 照 并 发 
方式 执行 下 面 命令 ，Peter 存 入 10 元 ，Paul 取 出 20 元 ， 而 Mary 取 出 了 账户 中 款额 的 一 半 : 


Peter: (set! balance (+ balance 10)) 
Paul: (set! balance (- balance 20)) 
Mary: (set! balance (- balance (/ balance 2))) 


a) 请 列 出 在 完成 了 这 3 项 交易 之 后 balance 的 所 有 可 能 值 。 这 里 假定 银行 系统 强迫 这 三 
个 进程 按照 某 种 顺序 方式 运行 。 

b) 如 果 系 统 允 许 这 些 进程 交错 进行 ， 还 可 能 产生 出 另外 一 些 值 吗 ? 请 画 出 类 似 于 图 3-29 
的 时 序 图 ， 解 释 各 个 值 将 如 何 出 现 。 | 


3.4.2 控制 并 发 的 机 制 


我 们 已 经 看 到 了 处 理 并 发 进程 的 困难 ， 这 些 困 难 的 根源 就 在 于 需要 考虑 不 同 进程 里 各 个 
事件 之 间 相 互 交错 的 情况 。 举 例 来 说 ， 假 定 我 们 有 两 个 进程 ， 其 中 一 个 里 面 有 顺序 的 三 个 事 
ft (a, b, c)， 另 一 个 有 上 顺序 的 三 个 事件 (x, y, z) 。 如 果 这 两 个 进程 并 发 运行 ， 对 于 它们 的 执行 
如 何 交 错 没 有 任何 限制 ， 那 么 就 存在 20 种 可 能 的 事件 排列 ， 它 们 都 与 两 个 进程 中 各 个 事件 的 
排列 顺序 相 容 : 

(a, b,c, x,y,z) (a,x, b,y,c,2) (x,a,b,c,y,z) (x, 4a, y, z, b,c) 
(a, b,x,c,y,z) (a,x, b,y,z,c) (x, a,b, y,¢,2z) (x,y, a, b,c, Z) 
(a, b,x, y,c,z) (a,x, y,b,c,z) (x, a,b, y,z,c) (,y, a, b,z,c) 
(a, b,x, y,z,c) (a,x, y,b,z,c) (x,a,y,b,c,z) (x,y, 4, 2, b,c) 
(a, x, b,c, y,z) (a,x, y,z,b,c) (x, a, y,b,2,0) (x,y, 2, a, b,c) 


作为 设计 这 一 系统 的 程序 员 ， 我 们 可 能 就 必须 考虑 这 20 种 排列 中 每 一 种 的 效果 ， 检 查 契 否 每 


6 有 关 这 种 看 法 的 更 形式 化 的 说 法 是 说 并 发 程序 具有 内 在 的 非 确定 性 。 也 就 是 说 ， 它 们 不 能 用 单 值 函数 擅 述 ， 
而 只 能 用 结果 为 一 集 可 能 值 的 函数 描述 。 在 4.3 节 里 ， 我 们 将 研究 一 种 表述 非 确定 性 计算 的 语言 。 
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种 排列 的 行为 都 是 可 以 接受 的 。 当 进程 和 事件 的 数量 进一步 增加 时 ， 这 一 方式 很 快 就 会 变 得 
无 法 控制 了 。 

另 一 种 更 实际 的 方法 是 ， 在 设计 并 发 系统 时 ， 设 法 做 出 一 些 一 般 性 的 机 制 ， 使 我 们 可 能 
限制 并 行进 程 之 则 的 交错 情况 ， 以 保证 程序 具有 正确 的 行为 方式 。 人 们 已 经 为 此 目的 而 开发 
了 许多 不 同 的 机 制 。 这 一 刷 里 将 讨论 其 中 的 一 种 : #474 (serializer), 

对 共享 变量 的 串 行 访 问 

串 行 化 就 是 实现 下 面 的 想法 : 使 进程 可 以 并 发 地 执行 ， 但 是 其 中 也 有 一 些 过 程 不 能 并 发 
地 执行 。 说 得 更 准确 些 ， 串 行 化 就 是 创建 一 些 不 同 的 过 程 集 合 ， 并 且 保 证 在 每 个 时 刻 ， 在任 
何 一 个 串 行 化 集合 里 至 多 只 有 一 个 过 程 的 一 个 执行 。 如 果 某 个 集合 里 有 过 程 正 在 执行 ms 
一 进程 企图 执行 这 个 集合 里 的 任何 过 程 时 ， 它 就 必须 等 待 到 前 一 过 程 的 执行 结束 。 

我 们 可 以 借助 串 行 化 去 控制 对 共享 变量 的 访问 。 举 例 说 ， 如 果 我 们 希望 基于 某 个 共享 变 
量 已 有 的 值 去 更 新 它 ， 那 么 就 应 该 将 访问 这 一 变量 的 现 有 值 和 给 这 一 变量 赋 新 值 的 操作 都 放 
入 同一 个 过 程 里 。 而 后 设法 保证 ， 任 何 能 给 这 个 变量 赋值 的 过 程 都 不 会 与 这 个 过 程 并 发 运行 ， 
方法 是 将 所 有 这 样 的 过 程 都 放 在 同一 个 串 行 化 集合 里 。 这 就 保证 了 在 访问 一 个 变量 和 给 它 赋 
值 之 间 ， 这 一 变量 的 值 不 会 改变 。 

Scheme 里 的 串 行 化 

为 了 使 上 述 机 制 更 加 具体 化 ， 假 定 我 们 已 经 扩充 了 所 用 的 Scheme 语言 ， 加 入 了 一 个 称 为 
ParallLlelL-execute 的 过 程 : 

(parallel-execute <p> <p> 。。。<pi>) 

这 里 的 每 个 <p> 必 须 是 一 个 无 参 过 程 ，parallel-execute 为 每 个 <p> 创 建 一 个 独立 的 进程 ， 
该 进程 将 应 用 <p> (没有 参数 )。 这 些 进程 都 并 发 地 运行 ”。 
作为 使 用 这 种 机 制 的 例子 ， 考 虑 ; 


(define x 10) 


(parallel-execute (lambda () (set! x (* x x))) 
(lambda () (set! x (+ x 1)))) 


这 样 就 建立 了 两 个 并 发 计算 进程 ， Pi 要 把 x 设置 为 x 乘 以 x ， 而 P 要 去 增加 x 的 值 。 在 这 些 执行 
完成 之 后 ，x 将 具有 下 面 5 个 可 能 值 之 一 ， 具 体 结 果 将 依赖 于 和/ ?中 各 个 事件 的 交错 情 次 : 

101: P, 将 x 设置 为 100， 而 后 P; 将 x 的 值 增加 到 101 

121: P; 将 x 的 值 增加 到 11 ， 而 后 已 将 X 设 置 为 x 乘 以 X 

110: P, 将 x 从 10 修 改 为 11 的 动作 出 现在 Pi 两 次 访问 x 的 值 之 间 ， 这 两 次 访问 是 为 了 求 值 表 

达 式 (* x xX) 

11: P; 访 问 x ， 而 后 P1 将 Xx 设置 为 100， 而 后 Pf; 又 设置 x 

100: Pi 访问 x (两 次 )， 而 后 P; 将 x 设置 为 11 ， 而 后 Pi 又 设置 x 

我 们 可 以 用 串 行 化 的 过 程 给 这 里 的 并 发 性 强加 一 些 限制 ,通过 囊 . 行 化 组 实现 这 种 限制 。 
构造 串 行 化 组 的 方式 是 调用 make-serializer， 这 一 过 程 的 实现 将 在 后 面 给 出 。 一 个 串 行 


8 Parallel-execute 并 不 是 标准 Scheme 的 一 部 分 ， 但 是 可 以 在 MIT Scheme 里 实现 它 。 在 我 们 的 实现 中 ， 
新 的 并 发 进程 也 与 原 Scheme 进程 并 发 地 执行 。 还 有 ， 在 我 们 的 实现 里 ， 由 Paral1lel-execute 返 回 的 值 是 
一 个 特殊 的 控制 对 象 ， 可 以 用 于 终止 这 个 新 创建 的 进程 。 
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化 组 以 一 个 过 程 为 参数 ， 它 返回 的 串 行 化 过 程 具有 与 原 过程 一 样 的 行为 方式 。 对 一 个 给 定 串 
行 化 组 的 所 有 调用 返回 的 串 行 化 过 程 都 属于 同一 个 集合 。 

这 样 ， 与 上 面 的 例子 不 同 ， 执 行 : 

(define x 10) 

(define s (make-serializer) ) 


(parallel-execute (s (lambda () (set! x (* x x)))) 
(s (lambda () (set! x (+ x 1))))) 


只 可 能 产生 x 的 两 种 可 能 值 101 和 121， 其 他 几 种 可 能 性 都 被 清除 掉 了 ， 因 为 P1 和 P2 的 执行 不 会 
交错 进行 。 
下 面 是 取 自 3.1.1 节 的 make-account 过 程 的 另 一 个 版 本 ， 其 中 存款 和 取款 操作 已 经 做 了 
BIME: 
(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((protected (make-serializer))) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) (protected withdraw) ) 
((eq? m ’deposit) (protected deposit) ) 
( (eq? m ’balance) balance) 
(else (error "Unknown request -- MAKE-ACCOUNT" 


m)))) 
dispatch) ) 


对 于 这 个 实现 ， 两 个 进程 就 不 会 并 发 地 在 同一 个 账户 中 存款 和 取款 ， 这 样 就 清除 了 出 现 图 3- 
29 中 所 展示 的 错误 的 根源 ， 那 里 出 现 错误 是 由 于 Peter 修 改 账 户 余额 的 动作 ， 出 现在 Faul 访 问 
这 一 余额 以 计算 新 值 和 实际 执行 赋值 的 动作 之 间 。 而 在 另 一 方面 ， 由 于 每 个 账户 都 有 它 目 己 
的 串 行 化 组 ， 因 此 对 不 同 账户 的 存款 和 取款 都 可 以 并 发 地 进行 。 

练习 3.39 ”如果 我 们 换 用 下 面 的 串 行 化 执行 ， 上 面 正 文中 所 示 上 鬼 种 并 行 执行 结果 中 的 哪 
一 些 还 可 能 出 现 ? 

(define x 10) 

(define s (make-serializer) ) 


(parallel-execute (lambda () (set! x ((S8 (lambda () (* x X)))))) 
(s (lambda () (set! x (+ x 1))))) 


练习 3.40 ”请 给 出 下 面 的 执行 可 能 产生 出 的 所 有 x 值 : 
(define x 10) 


(parallel-execute (lambda () (set! x (* x X))) 
(lambda () (set! x (* x x x)))) 
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如 果 我 们 改 用 下 面 的 串 行 化 过 程 ， 上 述 可 能 性 中 的 哪些 还 会 存在 ， 
(define x 10) 


(define s (make-serializer) ) 


(parallel-~execute {s (lambda {) (set! x (* x x)))) 
{s (lambda () (set! x (* x x x))))) 
练习 3.41 Ben Bitdiddle 觉 得 像 下 面 这 样 实现 银行 账户 可 能 更 好 (其 中 带 注释 的 行 修改 
T): 


(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds")) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((protected (make-serializer))) 
(define (dispatch m) | 
(cond ((eq? m ’withdraw) (protected withdraw) ) 
((eq? m ’deposit) (protected deposit) ) 
((eq? m “balance ) 
((protected (lambda () balance)))) ; serialized 
(else (error “Unknown request -- MAKE-ACCOUNT" 
m)))) 
dispatch) ) 


因为 允许 非 串 行 地 访问 银行 账户 可 能 导致 不 正常 的 行为 。 你 同意 Ben 的 观点 吗 ? 是 否 存在 某 种 
情况 ， 能 证 明 Ben 所 担心 的 问题 ? | 
练习 3.42 Ben Bitdiddle 建 议 说 ， 在 响应 每 个 withdraw 和 deposit 消 息 时 创建 一 个 新 
的 串 行 化 过 程 完 全 是 浪费 时 间 。 他 说 ， 可 以 修改 make-account , 使 得 对 protected 的 调 
用 都 可 以 在 过 程 dispatch 之 外 进行 。 这 样 ， 在 每 次 要 求 去 执行 提 款 过 程 时 ， 这 个 账户 将 总 
返回 同一 个 串 行 化 过 程 ( 它 是 与 这 个 账户 同时 创建 的 )。 | 
(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds")) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((protected (make-serializer) )) 
(let ((protected-withdraw (protected withdraw) ) 


(protected-deposit (protected deposit) ) ) 
(define (dispatch m) 





At o ee 


(cond ((eq? m ’withdraw) protected-withdraw) 
( (eq? m ’deposit) protected-deposit) 
( (eq? m balance) balance) 
(else (error "Unknown request -- MAKE-ACCOUNT" 
m)))) 


dispatch) )) 
这 样 的 修改 安全 吗 ? 特别 是 这 样 修改 之 后 ， 在 所 允许 的 并 发 性 方面 ，make~account 的 两 个 
版 本 之 间 有 什么 不 同 ? 


使 用 多 重 共享 资源 的 复杂 性 

串 行 化 提供 了 一 种 非常 强 有 力 的 抽象 ， 能 帮助 我 们 将 并 发 程序 的 复杂 性 孤立 起 来 ， 使 这 
种 程序 能 够 被 小 心地 和 (希望 是 ) 正确 地 处 理 。 然 而 ， 如 果 只 存在 一 个 共享 资源 (例如 一 个 
银行 账户 )， 串 行 化 的 使 用 问题 是 相对 比较 简单 的 。 但 是 如 果 存 在 着 多 项 共享 资源 ， 并 发 程序 
设计 就 可 能 变 得 非常 难以 把 握 了 。 

为 了 展示 可 能 出 现 的 一 种 困难 ， 现 在 假定 我 们 希望 交换 两 个 账户 的 余额 。 我 们 首先 访问 
每 个 账户 以 确定 其 中 的 余额 ， 而 后 计算 出 这 两 个 余额 之 间 的 差额 ， 从 一 个 账户 里 减 去 这 一 其 
额 ， 而 后 将 它 存 人 另 一 个 账户 。 我 们 可 能 如 下 实现 这 一 工作 ”: 


(define (exchange accountl account2) 
(let ((difference (- (accountl ‘balance) 
(account2 "balance)))) 
((accountl ’withdraw) difference) 
((account2 ‘deposit) difference)) ) 

如 果 只 有 一 个 进程 试图 做 这 种 交换 ， 这 一 过 程 能 够 工作 得 很 好 。 然 而 ， 假 定 Peter 和 Paul 都 
能 访问 账 Pal、a2 和 a3， 在 Peter 要 求 交 换 al 和 a2 时 ， 正 好 Paul 也 并 发 地 要 求 交换 al1 和 a3 。 虽 
然 我 们 已 对 单个 账户 的 存款 和 取款 做 了 串 行 化 (就 像 在 上 一 节 里 所 示 的 make-account 过 程 )， 
exchange 还 是 可 能 产生 不 正确 的 结果 。 举 例 说 ，Peter 可 能 已 经 算出 了 41 和 a2 的 余额 之 差 ， 
但 是 Paul 却 可 能 在 Peter 完 成 交换 之 前 改变 了 al 的 余额 ”。 为 了 得 到 正确 的 行为 ， 我 们 就 必须 重 
新 安排 exchange 过 程 ， 让 它 能 在 完成 整个 交换 的 期 间 锁 住 对 于 这 些 账户 的 任何 其 他 访问 。 

得 到 这 种 效果 的 一 种 方式 是 用 两 个 账户 的 串 行 化 组 将 整个 exchange 过 程 串 行 化 。 为 此 
我 们 就 要 重新 安排 对 一 个 账户 的 串 行 化 组 的 访问 。 请 注意 ， 我 们 在 这 里 暴露 了 相关 的 串 行 化 
组 ， 最 后 还 是 有 意 地 打破 了 银行 账户 对 象 的 模块 化 。 下 面 的 nake-account 版 本 等 价 于 3.1.1 
节 里 的 原始 版 本 ， 除 了 其 中 有 一 个 串 行 化 组 ， 它 提供 了 对 余额 变量 的 保护 。 另 外 还 将 这 个 串 
行 化 组 通过 消息 传递 暴露 出 来 了 : 

(define (make-account-and-Serializer balance) 

(define (withdraw amount) 
(if (>= balance amount) ` 
(begin (set! balance (- balance amount) ) 
balance) 


"Insufficient funds")) 
(define (deposit amount) 


ts9 我 们 已 利用 消息 deposit 可 以 接受 负 值 的 事实 (这 是 我 们 银行 系统 里 的 严重 错误 ) 简化 了 exchange 。 
m0 如 果 这 些 账 户 开 始 时 的 值 分 别 是 10、20 和 30， 那 么 在 经 过 任意 次 交换 之 后 ， 它 们 的 值 应 该 还 是 按照 某 种 顺序 
的 10 、20 和 30 。 对 于 单个 账户 的 存款 申 行 化 不 足以 保证 这 一 点 ， 见 练习 3.43。 
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(set! balance (+ balance amount) ) 
balance) 
(let ((balance-serializer (make-serializer) )) 
(define (dispatch m) 
(cond ((eq? m withdraw) withdraw) 
((eq? m ‘deposit) deposit) 
((eq? m ’balance) balance) 
((eq? m ’serializer) balance-serializer) 
(else (error "Unknown request -- MAKE-ACCOUNT" 
m)))) 
dispatch) ) 
FUT ATA FAK Pat BK ERM A BAL. SR, XER AIK a RAT AY E 
行 化 账户 ， 现 在 需要 银行 账户 对 象 的 每 个 用 户 承 担 起 责任 ， 通 过 显 式 的 方式 去 管理 串 行 化 的 
问题 ， 例 如 下 面 的 例子 '”: 


(define (deposit account amount) 
(let ((s (account ’serializer) ) 
(d (account ‘deposit))) 
((s d) amount))) 
以 这 种 方式 导出 串 行 化 组 ， 就 使 我 们 有 了 足够 的 灵活 性 ， 可 以 实现 串 行 化 的 交换 程序 。 
在 这 里 ， 只 需要 将 针对 两 个 账户 做 串 行 组 ， 去 串 行 化 原来 的 exchange 过 程 : 


(define (serialized-exchange accountl account2) 
(let ((serializerl (accountl ‘serializer) ) 
(serializer2 (account2 ’serializer))) 
((serializerl (serializer2 exchange) ) 
accountl 
account2))) 


练习 3.43 ”假定 在 三 个 账户 里 的 初始 余额 分 别 是 10、20 和 30 ， 现 在 有 多 个 进程 正在 运行 ， 
交换 这 些 账户 中 的 余额 。 请 论证 ， 如 果 这 些 进程 是 顺序 运行 的 ， 那么 经 过 任何 次 并 发 交换 ， 
这 些 账 户 里 的 余额 还 将 是 按照 某 种 顺序 排列 的 10、20 和 30。 请 画 出 一 个 类 似 于 图 3-29 中 那样 
的 时 间 图 ， 说 明 如 果 采 用 本 节 中 第 一 个 版 本 的 账户 交换 程序 实现 账户 交换 ， 那 么 这 一 条 件 融 
会 被 破坏 。 在 另 一 方面 ， 也 请 论证 ， 即 使 是 使 用 这 个 exchange 程 序 ， 在 这 些 账户 里 的 余额 
之 和 也 仍然 能 得 以 保持 不 变 。 请 画 出 一 个 时 序 图 ， 说 明 如 果 我 们 不 做 各 个 账户 上 交易 的 串 行 
化 ， 这 一 条 件 就 可 能 被 破坏 。 | 

练习 3.44 ”现在 考虑 从 一 个 账户 向 另 一 账户 转移 款项 的 问题 Ben Bitdlddie 说 这 件 事 可 以 
通过 下 面 过 程 完成 ， 即 使 存在 着 多 个 人 并 发 地 在 许多 账户 之 间 转 移 款项 。 在 这 里 可 以 使 用 任 
何 经 过 存款 和 取款 交易 串 行 化 的 账户 机 制 ， 例 如 上 面 正文 中 的 make-account 版 本 。 


(define (transfer from-account to-account amount) 
((from-account ‘withdraw) amount) 
((to-account ‘deposit) amount) ) 


Louis Reasoner 说 这 里 存在 一 个 问题 ， 因 此 需要 使 用 更 复杂 精细 的 方法 ， 例 如 在 处 理 交 换 问题 
中 所 用 的 方法 。Louis 是 对 的 吗 ? 如 果 不 是 ， 那 么 在 转移 问题 和 交换 问题 之 间 存 在 着 什么 本 质 


m1 练习 3.45 深 入 研究 了 为 什么 存款 和 取款 不 能 继续 由 账户 自动 申 行 化 的 问题 。 
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性 的 不 同 ? (你 应 该 假设 from-account 至 少 有 amount 那 么 多 钱 。) 
练习 3.45 Louis Reasoner 认 为 我 们 的 银行 账户 系统 由 于 存款 和 取款 不 能 自动 串 行 化 ， 已 经 
变 得 毫 无 必要 地 过 于 复杂 了 ， 而 且 很 容易 弄 错 。 他 建议 , make-account-and-serializer 
应 该 导出 其 中 的 串 行 化 组 (以 便 用 在 serialized-exchange 一 类 过 程 里 )， 而 不 仅 是 用 串 
行 化 组 去 串 行 化 账户 和 取款 ( 像 make-account 所 做 的 那样 ) 。 他 建议 将 账户 重新 定义 为 下 
面 的 样子 : 
(define (make-account-and-serializer balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds")) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((balance-serializer (make-serializer) )) 
(define (dispatch m) 
(cond ((eq? m ‘withdraw) (balance-serializer withdraw) ) 
( (eq? m ’deposit) (balance-serializer deposit) ) 
((eq? m balance) balance) 
((eq? m ’serializer) balance-serializer) 
(else (error "Unknown request -- MAKE-ACCOUNT" 


m)))) 
dispatch) ) 


而 后 还 像 原来 的 make-account 那样 处 理 取 款 : 


(define (deposit account amount) 
((account ’deposit) amount)) 


请 解释 为 什么 Louis 的 推理 是 错误 的 。 特 别 是 考虑 在 调用 serialized-exchange 时 会 发 生 
什么 情况 。 


串 行 化 的 实现 
_ 我 们 将 用 一 种 更 基本 的 称 为 互 斤 元 (mutex) 的 同步 机 制 来 实现 串 行 化 。 互 斥 元 是 一 种 对 
象 ， 假 定 它 提供 了 两 个 操作 。 一 个 互 斥 元 可 以 被 获取 (acquired) 或 者 被 释放 (released), — 
日 某 个 互 斥 元 被 获取 , 对 于 这 一 互 斥 元 的 任何 其 他 获取 操作 都 必须 等 到 该 互 斥 元 被 释放 之 后 ”。 
在 我 们 的 实现 里 ， 每 个 串 行 化 组 关联 着 一 个 互 斥 元 。 给 了 一 个 过 程 P， 串 行 化 组 将 返回 一 个 过 
程 ， 该 过 程 将 获取 相应 互 斥 元 ， 而 后 运行 p ， 而 后 释放 该 互 斥 元 。 这 样 就 能 保证 ， 由 这 个 串 行 
化 组 产生 的 所 有 过 程 中 ， 一 次 只 能 运行 一 个 ， 这 就 是 需要 保证 的 串 行 化 性 质 。 


2 术语 “mutex” 是 “mutual exclusion” 的 缩写 形式 。 有 关 安 排 一 种 机 制 ， 使 之 能 允许 并 发 进程 安全 地 共享 次 
源 的 一 般 性 问题 称 为 互 斥 问题 。 我 们 的 互 斥 元 是 信号 重 机 制 的 一 种 简化 形式 ( 见 练习 3.47)。 信 号 量 机 制 由 
“THE” 多 道 程序 设计 系统 引进 ， 这 一 系统 是 在 Eindhoven 技 术 大 学 开发 的 ， 用 这 所 大 学 荷兰 语 的 首 字 母 命 名 
(Dijkstra 1968a), 获取 和 释放 操作 原来 被 命名 为 操作 P 和 V ， 来 自 荷 兰 语词 汇 passeren (通过 ) 和 vrijgeven 
(释放 )， 参 考 了 铁路 系统 所 用 的 信号 灯 。Dijkstra 的 经 典 论文 (1968b ) 是 最 早 河清 并 发 控制 中 的 各 种 问题 的 
论文 之 一 ， 其 中 阐述 了 如 何 利 用 信和 号 量 处 理 各 种 并 发 问题。 | 
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(define (make-serializer) 
(let ((mutex (make-mutex))) 
(lambda (p) 
(define (serialized-p . args) 
(mutex acquire) 
(let ((val (apply p args))) 
(mutex ’release) 
val)) 
serialized-p))) 


互 斥 元 是 一 个 变动 对 象 (这 里 将 采用 一 个 单元 素 的 表 ， 称 它 为 一 个 单元 ) ， 可 以 保存 真 或 
者 假 。 在 值 为 假 时 ， 这 个 互 斥 元 可 以 被 获取 ， 当 值 为 真 时 该 互 斥 元 就 是 不 可 用 的 ， 任 何其 他 
获取 这 一 互 斥 元 的 进程 都 必须 等 待 。 

我 们 的 互 斥 元 构造 函数 nake-mutex 开 始 时 将 单元 的 内 容 初 始 化 为 假 。 为 了 获取 一 个 互 
斥 元 ,首先 需要 检查 这 个 单元 。 如 果 互 斥 元 可 用 ， 我 们 就 将 该 单元 设置 为 真 并 继续 下 去 。 否 
则 就 进入 一 个 循环 里 等 待 ， 一 次 又 一 次 地 试图 去 获取 这 个 互 斥 元 ， 直 到 发 现 它 可 用 为 止 "3。 
为 释放 一 个 互 扩 元， 只 需要 将 单元 的 内 容 设 置 为 假 


(define (make-mutex) 
(let ((cell (list false))) 
(define (the-mutex m) 
(cond ((eq? m ’acquire) 
(if (test-and-set! cell) 
(the-mutex ’acquire))) ; retry 
((eq? m ’release) (clear! cell)))) 
the-mutex) ) 


(define (clear! cell) 
(set-car! cell false) ) 


test-and-set! 检查 单元 并 返回 检查 结果 ， 除 此 之 外 ， 如 果 检 查 结果 为 假 ， test-and- 
set! 在 返回 假 之 前 还 要 将 单元 内 容 设置 为 真 。 我 们 可 以 用 下 述 过 程 描述 这 种 行为 : 
(define (test-and-set! cell) 
(if (car cell) 
true 
~ (begin (set-car! cell true) 
false))) 


不 过 ， 这 样 实现 test-and-set 1! 不 能 保证 达到 所 需要 的 效果 ， 因 为 这 里 有 一 个 至 关 重 
要 的 细节 ， 也 是 整个 系统 完成 并 发 控制 的 核心 : test-and-set 1 操作 必须 以 原子 操作 的 方 
式 执行 。 也 就 是 说 ， 我 们 必须 保证 ， 一 旦 某 进程 检查 了 一 个 单元 内 容 并 发 现 它 是 假 ， 该 单元 
的 内 容 就 必须 设置 为 真 ， 而 且 必须 在 任何 其 他 进程 检查 这 个 单元 之 前 完成 这 一 设置 。 如 果 没 
有 这 种 保证 ， 则 互 斥 元 就 会 失效 ， 类 似 于 图 3-29 里 有 关 银 行 账户 的 方式 〈 见 练习 3.46 ) 。 

test-and-set 1! 的 实际 实现 方式 依赖 于 所 用 系统 中 运行 并 发 进程 的 细节 。 例 如 ， 我 们 
有 可 能 是 在 一 台 硕 序 处 理 器 上 ， 采 用 在 各 进程 间 轮 换 的 时 间 片 机 制 执行 一 些 并 发 进程 ， 让 每 


m 在 许 多 分 时 操作 系统 里 ， 被 互 斥 元 阻塞 的 进程 并 不 像 上 面 所 说 的 那样 通过 “ 忙 等 待 ”耗费 时 间 。 相 反 ， 系 统 
在 一 个 进程 等 待 时 将 调度 另 一 进程 去 运行 ， 当 互 斥 元 变 为 可 用 时 再 唤醒 那些 被 阻塞 的 进程 。 
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个 进程 运行 很 短 一 段 时 间 ， 而 后 中 断 这 一 进程 并 转移 到 另 一 个 进程 去 。 在 这 种 情况 下 ， 只 需 
在 检查 和 设置 单元 值 之 间 禁 止 进 行 时 间 分 片 , test-and-set! 就 可 以 正确 工作 了 “。 在 另 
一 类 情况 中 ， 多 处 理 器 计算 机 则 提供 了 专门 指令 ， 直 接 在 硬件 中 支持 原子 操作 “。 
练习 3.46 ”假定 我 们 用 正文 中 所 示 的 常规 过 程 实现 test-and-set!， 没 有 企图 使 这 一 
操作 原子 化 。 请 画 出 一 个 像 图 3-29 那 样 的 时 序 图 ， 说 明 如 果 人 允许 两 个 进程 同时 访问 互 斥 元 ， 
这 个 互 斥 元 实现 就 会 失败 。 
练习 3.47 (大 小 为 n) 的 信号 量 是 一 种 推广 的 互 斥 元 。 像 互 斥 元 一 样 ， 信 号 量 也 支持 获 
取 和 释放 操作 ， 但 更 一 般 些 ， 它 允许 同时 有 最 多 ”个 进程 获取 。 另 外 更 多 的 获取 有 关 信 和 号 量 的 
进程 就 必须 等 待 释放 操作 。 请 基于 下 述 功能 实现 信号 量 : 
”a) 基于 互 斥 元 。 
b) 共 于 原子 的 test-and-set! 操 作 。 


死 锁 

现在 已 经 看 了 可 以 如 何 实现 串 行 化 ， 但 也 应 该 看 到 ， 即 使 采用 了 上 面 给 出 的 过 程 seria- 
l1ized-exchange， 在 账户 交换 问题 里 还 存在 一 个 麻烦 。 现 在 设想 Peter 企 图 去 交换 账 Pal 
和 a2 ， 同 时 Paul 并 发 地 企图 去 交换 a2 和 al 。 假 定 Peter 的 进程 到 达 这 样 一 点 ， 此 时 它 已 经 进 
入 了 保护 al 的 串 行 化 进程 ， 而 正好 在 此 之 后 ，Paul 的 进程 也 进入 了 保护 a2 的 串 行 化 进程 。 现 
在 Peter 已 经 无 法 继续 前 进 了 (因为 无 法 进入 保护 a2 的 串 行 化 进程 ) ， 他 需要 一 直 等 到 Faul 退 
出 保护 a2 的 串 行 化 进程 。 与 Peter 的 情况 类 似 ，Paul 也 无 法 前 进 了 ， 他 需要 等 到 Peter 退 出 保 
护 ai 的 串 行 化 进程 。 这 样 每 个 进程 都 要 无 穷 无 尽 地 等 待 下 去 ， 等 着 另 一 个 进程 的 活动 ， 这 种 
情况 就 称 为 死 锁 。 在 那些 提供 了 对 于 多 种 共享 资源 的 并 发 访问 的 系统 里 ， 总 是 存在 着 死 锁 的 


危险 。 

避免 死 锁 的 一 种 方式 ， 是 首先 给 每 个 账户 确定 一 个 唯一 的 标识 编号 ， 并 且 需 要 重 写 
serialized-exchange, 使 每 个 进程 总 是 首先 设法 进入 保护 具有 和 较 低 标识 编号 的 账户 的 过 
程 。 这 种 方式 对 于 交换 问题 可 行 ， 但 是 还 存在 着 另外 一 些 情况 ， 在 那里 需要 更 复杂 的 死 锁 避 


54 在 采用 时 间 片 模型 的 单 处 理 器 的 MIT Scheme ¥, test-and-set! 可 以 实现 如 下 : 


(define (test-and-set! cell) 
{without-interrupts 
{lambda () 
(if (car cell) 
true 
(begin (set-car! cell true) 
false))))) 


without-interrupts 在 其 参数 的 执行 期 间 禁 止 时 间 片 中 断 。 

ms 这 种 指令 有 许多 变形 ， 包 括 检查 与 设置 ， 检 查 与 清除 ， 交 换 ， 比 较 与 交换 ， 装 载 并 保存 ， 条 件 存储 等 等 E 
们 的 设计 必须 与 机 器 的 处 理 器 一 存储 接口 相 匹配 。 这 里 出 现 的 一 个 问题 是 ， 如 果 两 个 处 理 器 恰好 完全 同时 试 
图 获取 一 个 资源 ， 通 过 使 用 这 种 指令 可 以 确定 此 时 发 生 什 么 事情 。 这 就 要 求 有 某 种 裁判 机 制 ， 以 确定 哪个 进 

” 程 将 得 到 控制 。 这 种 机 制 称 为 一 个 仲裁 器 ， 它 通常 借助 于 某 个 硬件 设备 工作 。 遗憾 的 是 ， 可 以 证 明 ， 我 们 无 
法 物理 地 构造 出 一 个 在 100% 时 间 里 都 能 工作 的 公平 的 仲裁 器 ， 除 非 允 许 这 个 仲裁 器 用 任意 长 的 时 间 去 做 出 
决定 。 这 种 本 质 现象 早 就 由 14 世 纪 波 国 哲学 家 Jean Buridan 在 他 关于 亚 里 士 多 德 的 《 论 天 》 的 评注 中 观察 到 
了 . Buridan 论 述说 ， 将 一 条 完全 理性 的 狗 放 在 具有 同样 吸引 力 的 两 处 食物 来 源 之 间 ， 这 条 狗 将 会 因 饥 饿 而 死 ， 
因为 它 设 有 能 力 决定 首先 往 哪 一 边 去 。 
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免 技 术 。 在 另外 一 些 地 方 则 根本 无 法 避免 死 锁 (参见 练习 3.48 和 练习 3.49) "6。 

练习 3.48 ”请 从 细节 上 解释 ,为 什么 上 面 提出 的 避免 死 锁 方法 例如， 首先 对 账户 编号 ， 
并 使 进程 先 试 图 获取 编号 较 小 的 账户 ) 能 够 避免 交换 问题 中 的 死 锁 。 请 结合 这 一 思想 重 写 过 
Feserialized-exchange (你 还 需要 修改 make-account， 使 创建 出 的 每 个 账户 有 一 个 
编号 ， 可 以 通过 发 送 适 当 消 息 的 方式 访问 该 编号 ) 。 

练习 3.49 请 设法 描述 一 种 情形 ， 使 上 述 的 避免 死 锁 机 制 在 这 种 情况 中 不 能 正常 工作 
(提示 ， 在 交换 问题 中 ， 每 个 进程 都 知道 它 下 面 需要 访问 的 账户 是 哪些 。 请 考虑 一 种 情形 ， 其 
中 进程 必须 在 访问 了 某 些 共 享 资源 之 后 ， 才 能 确定 它 是 否 还 需要 访问 其 他 的 共享 资源 .) 

并 发 性 、 时 间 和 通信 

我 们 已 经 看 到 ， 在 并 发 系统 的 程序 设计 中 ， 为 什么 需要 去 控制 不 同 进程 访问 共享 变量 的 
事件 发 生 的 顺序 ， 也 看 到 了 如 何 通过 审慎 地 使 用 串 行 化 去 完成 这 方面 的 控制 。 但 是 并 发 性 的 
基本 问题 比 这 些 更 深刻 ， 因 为 ， 从 一 种 更 基本 的 观点 看 , “共享 状态 ”究竟 意味 着 什么 ， 这 件 
it ih HD in we 。 

fRtest-and-set! 这 样 的 机 制 ， 都 要 求 进 程 能 在 任意 时 刻 去 检查 一 个 全 局 性 的 共享 标志 。 
在 实现 新 型 高 速 处 理 器 时 ， 由 于 在 那里 需要 采用 各 种 优化 技术 ， 例 如 流水 线 和 缓存 ， 因 此 就 不 
可 能 在 每 个 时 刻 都 保持 存储 器 内 容 的 一 致 性 ， 此 时 完成 上 述 的 检查 将 很 有 问题 ， 也 必然 非常 低 
效 。 正 因为 这 样 ， 在 当前 的 多 处 理 器 系统 里 ， 串 行 化 方式 正在 被 并 发 控制 的 各 种 新 技术 取代 。 

共享 变量 的 各 方面 问题 也 出 现在 大 型 的 分 布 式 系统 里 。 例 如 ， 设 想 一 个 分 布 式 的 银行 系 
统 ， 其 中 的 各 个 分 支 银行 维护 着 银行 余额 的 局 部 值 ， 并 且 周期 性 地 将 这 些 值 与 其 他 分 支 所 维 
护 的 值 相互 比较 。 在 这 样 的 系统 里 ,，“ 账 户 余 额 ” 的 值 可 能 是 不 确定 的 ， 除 非 刚刚 做 完了 一 次 
同步 。 如 果 Peter 在 他 与 Paul 共 用 的 一 个 账户 里 存 和 信 了 一 些 钱 ,什么 时 候 才 能 说 这 个 账户 的 余 
额 已 经 改变 了 一 一 是 在 本 地 的 分 支 银行 修改 了 余额 之 后 ， 还 是 在 同步 之 后 ?进一步 说 ， 如 果 
Paul 从 另 一 分 支 银行 访问 这 个 账户 ， 如 何在 这 一 银行 系统 里 对 这 种 行为 的 “正确 性 ”确定 合 

理 的 约束 ?在 这 里 ， 能 考虑 的 可 能 就 是 保持 Peter 和 Paul 的 各 自行 为 ， 以 及 保证 刚刚 完成 同步 

时 刻 的 账户 “状态 正确 性 。 有 关 “真正 ”的 账户 余额 或 者 几 次 同步 之 间 事 件 发 生 的 顺序 ， 
可 能 就 是 完全 无 关 紧 要 ， 而 且 也 没有 意义 的 ”。 

这 里 的 基本 现象 是 不 同 进程 之 间 的 同步 ， 建 立 起 共享 状态 ， 或 迫使 进程 之 间 通 信和 所 产生 
的 事件 按照 某 种 特定 的 顺序 进行 。 从 本 质 上 看 ， 在 并 发 控制 中 ， 任 何 时 间 概 念 都 必然 与 通信 
有 内 在 的 密切 联系 ””。 有 意思 的 是 ， 时 间 与 通信 之 间 的 这 种 联系 也 出 现在 相对 论 里 ， 在 那里 


176 Havender (1968) 提出 的 避免 死 锁 的 一 般 性 技术 是 枚 举 共享 资源 ， 按 顺序 去 获取 它们 。 对 于 不 可 能 避免 的 死 
锁 情 况 ， 就 要 求 一 种 死 镇 恢复 方法 ， 要 求 进程 能 “退出 ” 死 锁 状 态 并 重新 尝试 运行 。 死 锁 恢 复 机 制 广泛 采用 
于 数据 库 管 理 系统 中 ， 有 关 这 一 问题 的 细节 参见 Gray and Reuter 1993, 

7 代替 串 行 化 的 另 一 种 方式 是 屏障 同步 。 程 序 员 可 以 允许 并 发 进程 随意 地 执行 ， 但 需要 建立 起 一 些 同步 点 
(“屏障 ”)， 任 何 进 程 在 所 有 进程 没有 到 达 这 里 之 前 都 不 能 穿 过 它 。 现 代 处 理 器 提供 了 一 些 机 器 指令 ， 使 程序 
员 可 以 在 需要 统一 性 的 位 置 上 建立 同步 点 。 例 如 ，PowerPC 就 提供 了 两 条 为 此 目的 的 指令 SYNC 和 EIEIO ( 强 
制 输入 输出 的 按 序 执行 ，Enforced In-order Execution of Input/Output) 。 

58 该 观点 看 起 来 有 些 怪 ， 但 确实 存在 采用 这 种 方式 的 系统 。 例 如 ， 信 用 卡 账 户 的 跨国 付款 通常 采用 按 国家 结 清 
的 方式 ， 在 不 同 国 家 的 付款 则 采用 周期 性 平 账 的 方式 。 这样 ， 一 个 账 户 在 不 同 国家 里 的 余额 就 完全 可 能 不 同 。 

59 对 于 分 布 式 系 统 而 言 ， 这 种 看 法 由 Lamport 提 出 (1978) ， 他 说 明了 如 何 通过 通信 建立 一 种 “全 局 时 钟 ， 通 
过 它 就 可 以 在 分 布 式 系统 里 建立 起 事件 之 间 的 秩序 。 
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的 光速 (可 能 用 于 同步 事件 的 最 快 信号 ) 是 与 时 间 和 空间 有 关 的 基本 常量 。 在 处 理 时 间 和 状 
态 时 ， 我 们 在 计算 模型 领域 所 遭遇 的 复杂 性 ， 事 实 上 ， 可 能 就 是 物理 世界 中 最 基本 的 复杂 性 
的 一 种 反映 。 : 


3.5 流 


我 们 已 经 对 采用 赋值 作为 工具 做 模拟 有 了 很 好 的 理解 ， 也 看 到 了 赋值 所 带 来 的 复杂 问题 。 
现在 是 提出 下 面 问题 的 时 候 了 : 我们 能 否 走 另 一 条 路 ， 以 便 避 免 这 些 问 题 中 的 某 些 东西 。 在 
这 一 节 里 ， 我 们 将 基于 一 种 称 为 流 的 数据 结构 ， 探 索 对 状态 进行 模拟 的 另 一 条 途径 。 正 如 下 
面 将 要 看 到 的 ， 流 可 能 缓和 状态 模拟 中 的 复杂 性 。 

让 我 们 先 退 回 一 步 ， 重 新 考虑 一 下 有 关 的 复杂 性 来 自 何 处 。 在 试图 模拟 真实 世界 中 的 现 
象 时 ， 我 们 做 了 一 些 明显 合理 的 决策 : 用 具有 局 部 状态 的 计算 对 象 去 模拟 真实 世界 里 具有 局 
部 状态 的 对 象 ， 用 计算 机 里 面 随 着 时 间 的 变化 去 表示 真实 世界 里 随 着 时 间 的 变化 ， 在 计算 机 
里 ,被 模拟 对 象 随 着 时 间 的 变化 是 通过 对 那些 模拟 对 象 中 局 部 变量 的 赋值 实现 的 。 

难道 还 有 什么 其 他 的 办 法 吗 ? 我们 能 够 避免 让 计算 机 里 的 时 间 去 对 应 于 真实 世界 里 的 时 
间 吗 ? 我 们 必须 让 相应 的 模型 随 着 时 间 变 化 ， 以 便 去 模拟 真实 世界 中 的 现象 吗 ? 如 果 以 数学 
函数 的 方式 考虑 这 些 问题 ， 我 们 可 以 将 一 个 量 x 的 随 着 时 间 而 变化 的 行为 ， 描 述 为 一 个 时 间 的 
函数 x(1) 。 如 果 我 们 想 集中 关注 的 是 一 个 个 时 刻 的 +， 那 么 就 可 以 将 它 看 作 一 个 变化 着 的 量 。 
然而 ， 如 果 我 们 关注 的 是 这 些 值 的 整个 时 间 史 ， 那 么 就 不 需要 强调 其 中 的 变化 一 一 这 一 函数 
本 身 并 没有 改变 。 

如 果 用 离散 的 步 长 去 度量 时 间 ， 那 么 我 们 就 可 以 用 一 个 〈 可 能 无 穷 的 ) 序列 去 模拟 一 个 
时 间 函 数 。 在 这 一 节 里 ， 我 们 将 看 到 如 何 用 这 样 的 序列 去 模拟 变化 ， 以 这 种 序列 表示 被 模拟 
系统 随 着 时 间 变 化 的 历史 。 为 了 做 到 这 些 ， 我 们 需要 引进 一 种 称 为 流 的 新 数据 结构 。 从 抽象 
的 观点 看 ， 一 个 流 也 就 是 一 个 序列 。 然 而 我 们 发 现 ， 把 流 直 接 表 示 为 表 ( 像 在 2.2.1 节 那样 ) 
并 不 能 完全 揭示 流 处 理 的 威力 。 作 为 一 种 替代 形式 ， 我 们 将 要 引进 一 种 延 时 求 值 的 技术 ， 它 
将 使 我 们 能 够 用 流 去 表示 非常 长 的 (甚至 是 无 穷 的 ) 序列 。 

流 处 理 使 我 们 可 以 模拟 一 些 包 含 状态 的 系统 ， 但 却 不 需要 利用 赋值 或 者 变动 数据 。 这 一 
情况 会 产生 一 些 重要 的 结果 ， 既 有 理论 的 也 有 实际 的 。 因 为 我 们 可 以 构造 出 一 些 模型 EM 
能 避免 由 于 引进 了 赋值 而 带 来 的 内 在 缺陷 。 但 是 ， 流 框架 也 带 来 它 自己 的 困难 。 有 关 哪 种 建 
模 技术 能 够 导致 更 模块 化 、 更 容易 维护 的 系统 的 问题 ， 仍 然 不 会 有 最 后 的 结论 。 


3.5.1 流 作为 延 时 的 表 


正如 我 们 已 经 在 2.2.3 节 里 看 到 的 ， 序 列 可 以 作为 组 合 程序 的 一 种 标准 界面 。 我 们 在 前 面 已 
经 构造 起 了 一 些 对 序列 进行 操作 的 功能 强大 的 抽象 机 制 ， 例 如 ap、filter 和 accumulate,， 
它们 以 简洁 优雅 的 方式 抓 住 了 范围 非常 广泛 的 许多 操作 的 共同 特征 。 

不 幸 的 是 ， 如 果 我 们 将 序列 表示 为 表 ， 获 得 这 些 优雅 结果 就 需要 付出 严重 低 效 的 代价 ， 
无 论 是 在 计算 的 时 间 方 面 还 是 在 空间 方面 。 当 我 们 将 对 于 序列 的 操作 表示 为 对 表 的 变换 时 ， 


180 物理 学 里 有 时 也 采用 了 这 种 观点 ， 引 进 粒子 的 “世界 线 ”(world lines) 作为 对 运动 做 推理 的 一 种 工具 。 我 们 
也 已 经 提 到 过 (在 2.2.3 节 里 )， 这 是 考虑 信号 处 理 系统 的 一 种 很 自然 的 方式 。 下 面 将 在 3.5.3 布 里 把 流 应 用 于 
信号 处 理 。 
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在 工作 过 程 中 的 每 一 步 ， 有 关 程 序 都 必须 去 构造 和 复制 各 种 数据 结构 (它们 可 能 规模 巨大 )。 
为 了 说 明 事 情 确实 如 此 ， 我 们 来 比较 两 个 程序 ， 它 们 都 计算 出 一 个 区 间 里 的 素数 之 和 。 
其 中 第 一 个 程序 用 标准 的 迭代 风格 写 出 ?2 : 
(define (sum-primes a b) 
(define (iter count accum) 
(cond ((> count b) accum) 
( (prime? count) (iter (+ count 1) (+ count accum))) 
(else (iter (+ count 1) accum)))) 
(iter a 0)) 


第 二 个 程序 完成 同样 的 计算 ， 其 中 使 用 了 2.2.3 节 中 的 序列 操作 ; 

(define (sum-primes a b) 

(accumulate + 
0 
(filter prime? (enumerate-interval a b)))) 

在 执行 计算 时 ， 第 一 个 程序 里 只 需要 维持 正在 累积 的 和 。 与 此 相对 比 的 是 ， 只 有 等 
enumerate-interval 构 造 完 这 一 区 间 里 所 有 整数 的 表 之 后 ， 第 二 个 程序 里 的 过 滤器 才能 
开始 做 自己 的 检查 工作 。 这 一 过 滤器 将 产生 出 另 一 个 表 ， 在 将 这 个 表 挤 压 到 一 起 得 到 和 数 之 
前 ， 还 需要 将 这 个 表 传 递 给 accumulate。 在 第 一 个 程序 里 ， 完 全 不 需要 这 么 大 的 中 间 存 储 ， 
因为 我 们 可 以 认为 那里 是 在 递增 地 枚 举 这 个 区 间 ， 产 生出 一 个 素数 后 就 将 它 加 入 和 数 之 中 。 

如 果 我 们 采用 下 面 的 表达 式 ， 通 过 序列 方式 去 计算 从 10 000 到 1 000 000 的 区 间 里 的 第 二 
个 素数 ， 这 种 低 效 情况 就 表现 得 太 明 显 了 : 


(car (cdr (filter prime? 
(enumerate-interval 10000 1000000)))) 


这 一 表达 式 确实 能 找 出 第 二 个 素数 ， 但 计算 的 开销 则 令 人 完全 无 法 容忍 。 这 里 首先 构造 出 一 
个 包含 了 差不多 一 百 万 个 整数 的 表 ， 通 过 过 滤 整 个 表 的 方式 去 检查 每 个 元 素 是 否 为 素数 ， 而 
后 抛弃 掉 几 乎 所 有 的 结果 。 在 更 传统 的 程序 设计 风格 中 ， 我 们 完全 可 能 交错 进行 枚 举 和 过 滤 ， 
并 在 找到 第 二 个 素数 时 立即 停 下 来 。 

流 是 一 种 非常 巧妙 的 想法 ， 合 我们 可 能 利用 各 种 序列 操作 ， 但 又 不 会 带 来 将 序列 作为 表 
去 操作 而 引起 的 代价 。 利 用 流 结构 ， 我 们 能 得 到 这 两 个 世界 里 最 好 的 东西 ， 如 此 形成 的 程序 
可 以 像 序列 操作 那么 优雅 ， 同 时 双 能 得 到 递增 计算 的 效率 。 这 里 的 基本 想法 就 是 做 出 一 种 安 
排 ， 只 是 部 分 地 构造 出 流 的 结构 ， 并 将 这 样 的 部 分 结构 送 给 使 用 流 的 程序 。 如 果 使 用 者 需要 
访问 这 个 流 的 尚未 构造 出 的 那个 部 分 ， 那 么 这 个 流 就 会 自动 地 继续 构造 下 去 ， 但 是 只 做 出 足 
够 满足 当时 需要 的 那 一 部 分 。 这 一 做 法 造成 了 一 种 假象 ， 就 好 像 整 个 流 都 存在 着 一 样 。 换 名 
话说 ， 虽 然 下 面 将 要 写 出 各 个 程序 都 像 是 在 处 理 完整 的 序列 ， 但 我 们 将 要 设计 出 流 的 一 种 实 
现 ， 使 得 流 的 构造 和 它 的 使 用 能 够 交错 进行 ， 而 这 种 交错 又 是 完全 透明 的 。 

从 表面 上 看 ， 流 也 就 是 表 ， 但 是 对 它们 进行 操作 的 过 程 的 名 字 不 同 。 在 这 里 有 构造 函数 
”cons-stream， 还 有 两 个 选择 函数 stream-car 和 stream-cdr ， 它 们 满足 如 下 的 约束 条 件 : 
(stream-car (cons-stream x y))=x 


(stream-cdr (cons-stream x y))=y 


O 假定 已 经 有 谓词 prime? (例如 像 1.2.6 节 里 那样 定义 ) ， 用 于 检查 一 个 数 是 否 为 素数 。 
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这 里 有 一 个 可 识别 的 对 象 the-empty-stream, 它 绝 不 会 是 任何 cons-stream 操 作 的 结 采 。 
这 个 对 象 可 以 用 谓词 stream-nul1? 判断 只。 有 了 这 些 东 西 ， 我 们 就 可 以 像 构 造 和 使 用 表 一 
样 ， 去 构造 和 使 用 流 ， 用 流 去 表示 汇聚 在 一 个 序列 里 的 一 批 数 据 了。 特别 是 我 们 将 用 与 第 2 章 
的 各 种 表 操 作 (如 1ist-ref 、map 和 for-~each 等 ) 的 类 似 方式 去 构造 流 “: 


(define (stream-ref s n) 
(if (= n 0) 
(stream-car s) 
(stream-ref (stream-cdr s) (- n 1)))) 


(define (stream-map proc 8s) 
(if (stream-null? s) 
the-empty-stream 
(cons-stream (proc (stream-car S)) 
(stream-map proc (stream-cdr s))))) 


(define (stream-for-each proc s) 
(if (stream-null? s) 
‘done 
(begin (proc (stream-car s)) 
(stream-for-each proc (stream-cdr s))))) 


stream-for-each 对 于 考察 一 个 流 非 常 有 用 : 
(define (display-stream s) 


(stream-for-each display-line s)) 

(define (display-line x) 

(newline) 
(display x)) 

为 了 使 流 的 实现 能 自动 地 、 透 明 地 完成 一 个 流 的 构造 与 使 用 的 交错 进行 ， 我 们 需要 做 出 
_ .种 安排 ， 使 得 对 于 流 的 cdz 的 求 值 要 等 到 真正 通过 过 程 stream-cdGzr 去 访问 它 的 时 候 再 做 ， 
而 不 是 在 通过 cons-stream 构 造 流 的 时 候 做 。 这 一 实现 选择 使 我 们 回忆 起 2.1.2 节 有 关 有 理 
数 的 讨论 。 在 那里 曾经 提出 ， 我 们 可 以 选择 有 理 数 的 实现 方式 ， 其 中 简化 分 子 与 分 母 的 工作 
可 以 在 构造 的 时 候 完成 ， 也 可 以 在 选取 的 时 候 完 成 。 有 理 数 的 这 样 两 种 实现 将 产生 出 同一 个 
数据 抽象 ， 但 是 不 同 的 选择 可 能 对 效率 产生 影响 。 在 流 和 常规 表 之 间 也 存在 着 类 似 的 关系 。 
作为 一 种 数据 抽象 ， 流 与 表 完 全 一 样 。 它 们 的 不 同 点 就 在 于 元 素 的 求 值 时 间 。 对 于 常规 的 表 ， 
其 car 和 cdr 都 是 在 构造 时 求 值 ， 而 对 于 流 ， 其 cdr 则 是 在 选取 的 时 候 才 去 求 值 。 

我 们 的 流 实现 将 基于 一 种 称 为 dGelay 的 特殊 形式 , 对 于 (delay <exp>) 的 求 值 将 不 对 
表达 趟 <exp> 求 值 ， 而 是 返回 一 个 称 为 延 时 对 象 的 对 象 ， 它 可 以 看 作 是 对 在 未 来 的 某 个 时 间 求 
值 <exp> 的 允诺 。 和 delay 一 起 的 还 有 一 个 称 为 force 的 过 程 ， 它 以 一 个 延 时 对 象 为 参数 ， 执 
行 相应 的 求 值 工作 。 从 效果 上 看 ， 也 就 是 迫使 delay 完成 它 所 允诺 的 求 值 。 下 面 将 看 到 
delay 和 force 可 以 如 何 实现 ， 现 在 我 们 先 用 它们 来 构造 流 。 


82 在 MIT 实现 里 ， the-empty-stream 就 等 同 于 空 表 0， 而 stream-null? 也 就 是 null? 。 

183 文 可 能 使 你 感到 有 些 困惑 。 我 们 可 以 对 流 和 表 定 义 这 些 类 似 过 程 ， 正 说 明 现在 还 缺乏 某 种 更 基础 的 抽象 。 遗 
估 的 是 ， 为 了 探索 这 种 抽象 ， 我 们 需要 对 求 值 过 程 做 更 细致 的 控制 ， 而 这 种 控制 上 且 前 还 做 不 到 。 我 们 将 在 
3.5.4 芒 里 进一步 讨论 这 个 问题 ， 在 4.2 节 将 开发 出 另 一 种 框架 ,统一 起 表 和 流 。 
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cons-stream 是 一 个 特殊 形式 ， 其 定义 将 使 


(cons-stream <a> <b>) 


等 价 于 


(cons <a> (delay <b>)) 


这 就 表示 我 们 将 用 序 对 来 构造 流 。 不 过 ， 在 这 里 并 不 是 将 流 的 后 面部 分 放 进 序 对 的 cdz ， 而 
是 把 如 果 需 要 就 可 以 计算 出 有 关 部 分 的 允诺 放 在 那里 。 现 在 ，stream-car 和 stream-cdr 
已 经 可 以 定义 为 如 下 的 过 程 了 : 

(define (stream-car stream) (car stream)) 


(define (stream-cdr stream) (force (cdr stream))) 


stream-car 选 取 有 关 序 对 的 car 部 分 ，stream-cdr 选 取 有 关 序 对 的 cdqz 部 分 ， 并 求 值 这 
里 的 延 时 表达 式 ， 以 获得 这 个 流 的 后 面部 分 “。 


流 实现 的 行为 方式 | 

要 想 看 看 上 述 实现 的 行为 方式 ， 让 我 们 先 来 分 析 一 下 在 上 面 已 经 看 到 的 那个 “ 令 人 完全 
无 法 容忍 ”的 素数 计算 ， 但 现在 是 用 流 的 方式 重新 写 出 : 

(stream-car 

(stream-cdr 


(stream-filter prime? 
(stream-enumerate-interval 10000 1000000)))) 


我 们 将 会 看 到 它 确 实 能 有 效 工作 。 
计算 开始 于 对 参数 10 000 和 1 000 000 调 用 stream-enumerate-interval。 这 里 的 
stream-enumerate-interval 是 类 似 于 enumerate-interval ( 见 2.2.3 节 ) 的 流 : 
(define (stream-enumerate-interval low high) 
(if (> low high) 
the-empty-stream 
(cons~-stream 


low 
(stream-enumerate-interval (+ low 1) high)))) 


这 样 ， 由 stream-enumerate-interval 运 回 的 结果 就 是 通过 cons-stream 形 成 的 '“、 
(cons 10000 
(delay (stream-enumerate-interval 10001 1000000))) 
也 就 是 说 ，stream-enumerate-interval 返 回 一 个 流 ， 其 car 是 10 000 ， 而 其 cdz 是 一 
个 允诺 ， 其 意 为 如 果 需 要 ， 就 能 枚 举 出 这 个 区 间 里 更 多 的 东西 。 这 个 流 被 送 去 过 滤 出 素数 ， 
用 的 是 与 过 程 filter ( 见 2.2.3 节 ) 类 似 的 针对 流 的 过 程 : 


(define (stream-filter pred stream) 


184 虽然 stream-car 和 stream-cdr 都 可 以 定义 为 普通 过 程 ， 但 是 cons-stream 却 必须 是 特殊 形式 。 如 果 
cons-stream 也 是 过 程 ， 那 么 按照 我 们 的 求 值 模型 ， 对 (cons-stream <a> <b>) 的 求 值 就 会 自动 地 对 
<b> 的 求 值 ， 而 这 是 我 们 不 希望 的 事情 。 同 样 ，delay 也 必须 是 特殊 形式 ， 而 Eorce 可 以 是 常规 过 程 。 

15 在 这 里 ， 实 际 出 现在 延 时 表达 式 里 的 并 不 是 写 出 的 数值 ， 实 际 出 现 的 是 原来 的 表达 式 ， 有 关 变 量 在 一 个 环境 
扭 约束 到 适当 的 数值 。 举 例 说 ，( +low 1) 实际 出 现在 写 10 001 的 地 方 ， 其 中 1ow 约 束 到 10 000 
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(cond ((stream-null? stream) the-empty-stream) 
((pred (stream-car stream) ) 
(cons-stream (stream-car stream) 
(stream-filter pred 
(stream-cdr stream) ))) 
(else (stream-filter pred (stream-cdr stream))))) 


stream-filter## iMstream-car (也 就 是 当时 那个 序 对 的 car ， 此 时 就 是 10 000), 
因为 这 个 数 并 非 素 数 ，stream-filter 需 要 去 进一步 去 检查 它 的 输入 流 的 stream-cdr， 
这 里 对 于 stream-~cdGr 的 调用 过 9 使 系统 对 延 时 的 stream- -enumerate-interval 求 值 ， 这 
RERE: 


(cons 10001 
(delay (stream-enumerate-interval 10002 1000000))) 


stream-filter 现 在 关注 的 是 这 个 流 的 stream-car ， 也 就 是 10 001， 它 看 到 这 个 数 也 不 是 
素数 ， 因 此 就 再 次 迫使 求 值 stream-cdr ， 并 如 此 进行 下 去 ， 直 至 stream-enumerate- 
interval 产 生出 素数 10 007。 这 时 stream-~filter 根 据 其 定义 返回 : 


(cons-stream (stream-car stream) 
(stream-filter pred (stream-cdr stream) )) 


这 时 它 也 就 是 : 


(cons 10007 
(delay 

(stream-filter 

prime? 

(cons 10008 

(delay 
(stream-enumerate-interval 10009 
1000000)))))) 


结果 现在 被 送 给 我 们 原先 的 表达 式 里 的 stream-cdr Xid (ER Hstream-filter 
未 它 转 而 去 迫使 延 时 的 stream-enumerate-interval 的 求 值 ， 直 到 它 找到 了 下 一 个 
素数 ， 在 这 里 就 是 10 009 。 最 后 ， 这 个 结果 被 送 给 原来 表达 式 的 stream-car ; 


(cons 10009 
(delay 

{stream-filter 

prime? 

(cons 10010 

(delay 
(stream-enumerate-interval 10011 
1000000)))))) 


stream-car 返 回 10 009， 整 个 计算 结束 。 在 此 期 间 只 检查 了 为 找到 第 二 个 素数 所 必须 检查 
的 那些 数 是 否 为 素数 ， 对 有 关 区 间 的 枚 举 也 只 进行 到 为 满足 素数 过 滤器 的 需要 所 必须 做 的 地 
方 。 

一 般 而 言 ， 可 以 将 延 时 求 值 看 作 一 种 “由 需要 驱动 ”的 程序 设计 ， 其 中 流 处 理 的 每 个 阶 
段 都 仅仅 活动 到 足够 满足 下 一 阶段 需要 的 程度 。 我 们 已 经 完成 的 工作 ， 也 就 是 松弛 了 计算 中 
事件 发 生 的 实际 顺序 与 过 程 的 表面 结构 的 关系 。 这 样 写 出 的 过 程 就 像 是 这 个 流 已 经 “不 折 不 
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扣 地 完全 ” 放 在 那里 ， 而 实际 上 ， 这 一 计算 的 执行 是 逐步 进行 的 ， 就 像 传统 程序 设计 一 样 。 


GelLay 和 ftorce 的 实现 

虽然 delay 和 force 貌 似 很 有 魔力 的 操作 ， 其 实 它们 的 实现 却 真是 相当 直截了当 的 。 
delay 必须 包装 起 一 个 表达 式 ， 使 它 可 以 在 以 后 根据 需要 去 求 值 。 我 们 可 以 简单 地 通过 将 这 
一 表达 式 作为 一 个 过 程 的 体 来 做 到 这 一 点 。 下 面 这 样 的 特殊 形式 delay : 


(delay <exp>) 


实际 上 不 过 是 在 下 面 形式 的 外 面包 装 起 一 层 语 法 糖衣 : 


(lambda () <exp>) 
而 force 也 就 是 简单 地 调用 由 delay 产 生 的 那 种 (无 参 ) 过 程 ， 因 此 ， 可 以 将 force 实 现 为 
一 个 过 程 : 


(define (force delayed-object) 
(delayed-object) ) 
这 种 实现 已 经 足以 使 delay 和 force 按 照 上 面 所 说 的 方式 工作 了 。 但 是 ， 在 这 里 还 存在 
一 种 很 重要 的 优化 ， 可 以 将 它 包 括 进来 。 在 许多 应 用 中 ， 我 们 都 需要 多 次 地 迫使 同一 个 延 时 
对 象 求 值 (参见 练习 3.57) 。 解 决 这 种 问题 的 办 法 就 是 设法 采用 一 种 构造 延 时 对 象 的 方法 ， 使 
它们 在 第 一 次 被 迫 求 值 之 后 能 保存 起 求 出 的 值 。 随 后 再 次 遇 到 被 迫 求 值 时 ， 这 些 对 象 就 可 以 
直接 返回 自己 保存 的 值 ， 而 不 必 重 复 进 行 计 算 。 换 句 话 说 ， 我 们 可 以 将 el1ay 实 现 为 一 种 特 
殊 的 记忆 性 过 程 ， 类 似 于 练习 3.27 中 所 描述 的 。 做 到 这 一 点 的 一 种 方法 是 采用 下 面 过 程 ， 扎 
一 个 (无 参 ) 过 程 为 参数 ， 返 回 该 过 程 的 记忆 性 版 本 。 这 种 记忆 性 过 程 在 第 一 次 运行 时 将 
计算 出 的 结果 保存 起 来 。 在 随后 再 遇 到 求 值 时 ， 它 就 简单 返回 已 有 的 结果 : 
(define (memo-proc proc) | 
(let ((already-run? false) (result false) ) 
(lambda () 
(if (not already-run?) 
(begin (set! result (proc)) 
(set! already-run? true) 
result) 
result)))) 


此 后 就 可 以 设法 定义 qdelay ， 使 得 (delay <exp>) 等 价 于 


(memo-proc (lambda () <éexp>)) 


而 force 的 定义 与 前 面 完 全 一 样 。 ， 
练习 3.50 ”请 完成 下 面 的 定义 ， 这 个 过 程 是 stream-map 的 推广 ， 它 允许 过 程 带 有 多 个 
参数 ， 类 似 于 2.2.3 节 的 脚注 78。 


(define (stream-map proc . argstreams) ME 


16 除了 本 节 所 提出 的 方法 之 外 ， 还 有 许多 方法 可 以 实现 流 。 使 流 成 、 尝 用 技术 的 关键 是 延 时 求 值 ZEAlgol 60 
语言 里 ， 按 名 调用 参数 机 制 是 一 种 内 在 特征 。 利 用 该 机 制 实现 污 的 问题 首先 由 Landin (1965) pr HA . 
Friedman and Wise (1976) 将 针对 旋 的 延 时 求 值 引进 了 Lisp 。 在 他 们 的 实现 里 ，cons 总 延 时 求 值 它 的 各 个 
参数 ， 因 此 表 也 就 自动 地 成 为 了 流 。 记 忆 性 过 程 也 称 为 按 需 调用 。Algol 社 团 更 愿意 称 我 们 原来 的 延 时 对 象 为 
按 名 调用 槽 ， 而 称 后 面 的 优化 版 本 为 按 需 调用 模 。 
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{if (<??> (car argstreams) ) 
the-empty~-stream 
(<??> 
(apply proc (map <??> argstreams)) 
(apply stream-map l 
(cons proc (map <??> argstreams)))))) 
练习 3.51 ”为 了 更 仔细 地 观察 延 时 求 值 的 情况 ， 我 们 将 使 用 下 面 过 程 ， 它 在 打印 其 参数 
之 后 简单 地 返回 它 : 
(define (show x) 
(display-line x) 
X) 
解释 器 对 于 顺序 地 求 值 下 面 各 个 表达 式 的 响应 是 什么 “? 


(define x (stream-map show (stream-enumerate-interval 0 10))) 
(stream-ref x 5) 


(stream-ref x 7) 


练习 3.52 考虑 下 面 的 表达 式 序列 : 


A 


(define sum 0) 


(define (accum x) 
(set! sum (+ x sum)) 
sum} 


(define seq (stream-map accum (stream-enumerate-interval 1 20))) 

(define y (stream-filter even? seq) ) 

(define z (stream-filter (lambda (x) (= (remainder x 5) 0)) 
seq) ) 


(stream-ref y 7) 
(display-stream z) 


在 上 面 每 个 表达 式 求 值 之 后 sum 的 值 是 什么 ? 求 值 其 中 的 stream~ref 和 display- 
stream 表 达 式 将 打印 出 什么 响应 ? 如果 我 们 简单 地 将 (delay <exp>) 实现 为 (lambda () 
<exp> )， 而 不 使 用 memo-proc 所 提供 的 优化 ， 这 些 响 应 会 有 什么 不 同 吗 ?请 给 出 解释 。 


3.5.2 无 穷 流 


前 面 我 们 已 经 看 到 如 何 做 出 一 种 假象 ， 使 我 们 可 以 像 对 待 完整 的 实体 一 样 去 对 流 进 行 
种 操作 ， 即 使 在 实际 上 只 计算 出 了 有 关 的 流 中 必须 访问 的 那 一 部 分 。 我 们 可 以 利用 这 种 技术 
有 效 地 和 将 序列 表示 为 流 ， 即 使 对 应 的 序列 非常 长 。 更 令 人 吃惊 地 是 ， 我 们 黄 至 可 以 用 流 去 表 
示 无 穷 长 的 序列 。 例 如 ， 考 虑 下 面 有 关 正 整数 的 流 的 定义 : 


;87 如 练习 3.51 和 练习 3.52 这 样 的 练 刀 “在 检查 我 们 对 于 delay 怎 样 工作 的 理解 方面 很 有 价值 。 在 另 一 方面 ， 让 
延 时 求 值 和 打印 混在 一 起 -更 精 糕 的 是 ， 与 赋值 混在 一 起 一 一 也 是 特别 容易 迷惑 人 的 ， 因 此 在 传统 上 ， 计 
算 机 语言 课程 的 教师 常常 在 考试 里 用 本 节 里 这 样 问题 去 持 问 学 生 。 应 该 说 ， 写 出 依赖 于 这 类 狗 星 细节 的 程序 
是 极其 丑陋 的 程序 设计 风格 。 流 处 理 的 部 分 威力 就 在 于 使 我 们 能 忽略 程序 中 各 个 事件 的 实际 发 生 顺 序 。 然 而 ， 
这 恰好 就 是 有 赋值 时 我 们 无 法 做 到 的 事情 ， 因 为 赋值 迫使 我 们 必须 去 考虑 时 间 和 变化 。 
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(define (integers-starting-from n) 
(cons-stream n (integers-starting-from (+ n 1)))) 


(define integers (integers-starting-from 1)) 


这 确实 是 有 意义 的 ， 因 为 integers 将 是 一 个 序 对 ， 其 ca 就 是 1 ， 而 其 cdz 是 产生 出 所 有 从 < 
开始 的 整数 的 允诺 。 这 是 一 个 无 穷 长 的 流 ， 但 在 任何 给 定时 刻 ， 我 们 都 只 检查 到 它 的 有 穷 部 
分 ， 因 此 我 们 的 程序 将 永远 也 不 会 知道 整个 的 无 穷 序 列 并 不 在 那里 。 

我 们 可 以 利用 integers 定 义 出 另 一 些 无 穷 流 ， 例 如 所 有 不 能 被 7 整除 的 整数 的 流 : 

(define (divisible? x y) (= (remainder x y) 0)) 

(define no-sevens 

(stream-filter (lambda (x) (not (divisible? x 7))) 
integers) ) 
而 后 就 可 以 简单 地 通过 访问 这 个 流 的 元 素 的 方式 ， 找 出 不 能 被 7 整除 的 整数 ; 

(stream-ref no-sevens 100) 
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就 像 可 以 定义 integers 一 样 ， 我 们 也 可 以 定义 非 波 那 契 数 的 无 穷 流 : 

(define (fibgen a b) 

(cons-stream a (fibgen b (+ a b)))) 

(define fibs (fibgen 0 1)) 

这 样 定义 出 的 fibs 是 一 个 序 对 ， 其 car 是 0， 而 其 cdr 是 一 个 求 值 (fibgen 1 1) 的 允诺 。 
当 我 们 求 值 延 时 表达 式 (fibgen 1 1) 时 ， 它 又 将 产生 出 一 个 序 对 ， 其 car 是 1， 而 其 cdr 
是 一 个 求 值 (fibgen 1 2) 的 一 个 允诺 ， 如 此 下 去 。 

要 想 看 一 个 更 令 人 激动 的 例子 ， 我 们 可 以 推广 前 面 的 no-sevens 实例 ， 采 用 一 种 通常 称 
为 厄 拉 多 塞 筛 法 由， 构造 出 素数 的 无 穷 流 。 为 此 我 们 将 从 整数 2 开始 ， 因 为 这 是 第 一 个 素数 。 
为 了 得 到 其 余 的 素数 ， 就 需要 从 其 余 的 整数 中 过 滤 掉 2 的 所 有 倍数 。 这 样 就 留 下 了 一 个 从 3 开 
始 的 流 ， 而 3 也 就 是 下 一 个 素数 。 现 在 我 们 再 从 这 个 流 的 后 面部 分 过 滤 掉 所 有 3 的 倍数 ， 这 样 
就 留 下 一 个 以 5 开头 的 流 ， 而 5 又 是 下 一 个 素数 。 我 们 可 以 这 样 继续 下 去 。 换 句 话 说， 这 种 方 
法 就 是 通过 一 个 筛选 过 程 构 造 出 各 个 素数 ， 该 过 程 可 描述 如 下 : 对 流 S 做 筛选 就 是 形成 一 个 
流 ， 其 中 的 第 一 个 元 素 就 是 5 的 第 一 个 元 素 ， 得 到 其 随后 的 元 素 的 方式 是 从 5 的 其 余 元 素 中 过 
滤 掉 S 的 第 一 个 元 素 的 所 有 倍数 ， 而 后 再 对 得 到 的 结果 进行 第 选 。 这 一 过 程 很 容易 用 流 操作 
描述 : 

(define (sieve stream) 

(cons-stream 
{stream-car stream) 
(sieve (stream-filter 

(lambda (x) 


(not (divisible? x (stream-car stream) ))) 
(stream-cdr stream) )))) 


8 ty SRILA TAB HE BG I WA ER. h TOR A A tT A F. 
他 的 计算 方式 是 观察 夏至 日 正午 影子 的 角度 。 虽 然 厄 拉 多 塞 第 法 历史 如 此 之 您 入 ， 但 仍 成 为 专用 硬件 “得” 
的 基础 ， 直 至 最 近 都 一 直 是 确定 大 素数 存在 的 有 力 工具 。 直 到 20 世 纪 70 年 代 ， 这 类 方法 才 被 1.2.6 节 讨论 过 的 
概率 算法 的 成 果 所 超越 。 
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(define primes (sieve (integers-starting-from 2))) 


如 果 现 在 希望 找到 某 个 特定 素数 ， 只 需要 提出 LA 下 要求 : 


(stream-ref primes 50) 
233 


一 件 很 有 意思 的 事情 是 仔细 看 看 由 sieve 形 成 的 信号 处 理 系统 ， 如 图 3-31 中 所 示 的 
“Henderson” '?, A RRA “cons”, DAEX TY ICRA A RR CHR. A 
个 首 元 素 去 构造 一 个 可 除 性 过 滤器 ， 该 流 的 其 余部 分 穿 过 这 个 过 滤器 ， 这 个 过 滤器 的 输出 再 
馈 入 另 一 个 筛 块 ， 而 后 将 原来 的 首 元 素 cons 到 这 个 内 部 篇 的 输出 上 ， 形 成 最 终 的 输出 流 。 这 
样 ， 不 仅 这 个 流 是 无 穷 的 ， 信 息 处 理 器 也 是 无 穷 的 ， 因 为 在 这 个 第 里 还 包含 着 男 一 个 饰 。 


—_—_ Ep — i ee ee eee ṣu ȘM ‘M 






filter: 
hot 






divisible? 


图 3-31 RRB Ma SAS 


隐 式 地 定义 流 

上 面 的 jntegers 和 fibs 流 是 通过 描述 “生成 ”过 程 的 方式 定义 的 ， 这 种 过 程 一 个 个 地 
计算 出 流 的 元 素 。 描 述 流 的 另 一 种 方式 是 利用 延 时 求 值 隐 式 地 定义 流 。 举 个 例子 ， 下 面 表 达 
式 将 ones 定 义 为 1 的 一 个 无 穷 流 : 

(define ones (cons-stream 1 ones ) ) 
这 种 定义 方式 就 像 是 在 定义 一 个 递归 过 程 ， 这 里 的 ones 是 一 个 序 对 ， 它 的 car 是 1， 而 cdr 是 
求 值 ones 的 一 个 允诺 。 对 于 其 car 的 求 值 又 给 了 我 们 一 个 1 和 求 值 ones 的 一 个 允诺 ， 并 这 样 
继续 下 去 。 | 

通过 使 用 诸如 add-streams 一 -类 的 操作 ， 我 们 还 可 以 做 一 些 更 有 趣 的 事情 。add-streams 
操作 产生 出 两 个 给 定 流 的 逐 对 元 素 之 和 ”: 

(define (add-streams sl s2) 


(stream-map + sl s2)) 
现在 我 们 可 以 用 如 下 方式 定义 整数 流 integers: 
{define integers (cons-stream 1 (add-streams ones integers) )) 
这 样 定义 出 的 jntegers 是 一 个 流 ， 其 首 元 素 是 1 ， 其 余部 分 是 ones 与 integers 之 和 。 这 
样 ，integers 的 第 二 个 元 素 就 是 1 加 上 integers 的 第 一 个 元 素 ， 也 就 是 x2，integers 的 


189 这 种 图 是 用 Peter Henderson 的 名 字 命 名 的 。Henderson 是 第 一 个 画 出 这 种 类 型 的 图 的 人 ， 以 此 作为 一 种 思考 流 
处 理 的 方式 这 里 的 每 条 实 线 代表 需 传输 值 的 流 ， 从 car 发 出 的 虚线 表明 这 是 一 个 值 而 不 是 一 个 流 ，。 
'% 这 里 使 用 了 来 自 练习 3.50 的 推广 的 stream-map 。 
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第 三 个 元 素 是 1 加 上 integers 的 第 二 个 元 素 ， 也 就 是 3， 如 此 继续 下 去 。 这 一 定义 可 行 ， 是 
因为 在 任 一 点 上 ， 都 已 经 生成 出 了 integers 流 的 足够 部 分 ， 这 就 使 我 们 可 以 将 它 馈 回 这 一 
定义 ， 去 产生 出 下 一 个 整数 。 
我 们 可 以 用 同样 的 风格 定义 出 辈 波 那 契 数 : 
(define fibs 
(cons-stream 0 
(cons-stream l 


(add-streams (stream-cdr fibs) 
fibs)))) 


这 个 定义 说 fibs 是 一 个 以 0 和 1 开始 的 流 ， 而 这 个 流 的 其 余部 分 都 可 以 通过 加 起 流 fibs 和 移 
动 了 一 个 位 置 的 fibs 而 得 到 : 
1 1 2 3 5 8 13 21 ...=(stream-cdr fibs) 
0 1 1 2 3 5 8 13 ..=fibs 
0 1 1 2 3 5 8 13 21 34 ..=fibs 


scale-stream 是 描述 这 种 流 定义 的 另 一 个 有 用 过 程 。 这 个 过 程 将 一 个 给 定 的 常数 乘 到 
流 中 的 每 个 项 上 : 
(define (scale-stream stream factor) 
(stream-map (lambda (x) (* x factor)) stream) ) 


例如 : 


(define double (cons-stream 1 (scale-stream double 2))) 


生成 出 2 的 各 个 害 :， 1,2, 4, 8, 16, 32, … 
素数 流 的 另 一 定义 方式 是 从 整数 出 发 ,通过 检查 是 否 为 素数 的 方式 过 滤 它 们 。 这 里 需要 
以 第 一 个 素数 2 作为 开始 : 


(define primes 
(cons-stream 
2 
(stream-filter prime? (integers-starting-from 3)))) 
这 个 定义 并 不 像 它 初 看 起 来 那么 直截了当 ， 因 为 检查 一 个 数 ? 是否 素 数 的 方式 ， 就 是 检查 /能 
否 被 所 有 小 于 等 于 Vn 的 素数 (而 不 是 用 所 有 这 样 的 整数 ) 整除 : 


(define (prime? n) 
(define (iter ps) 
(cond ((> (Square (stream-car ps)) n) true) 
((divisible? n (stream-car ps)) false) 
(else (iter (stream-cdr ps))))}) 
(iter primes) ) 
这 是 一 个 递归 定义 ， 因为 primes 是 基于 谓词 prime? 定 义 出 来 的 ， 而 在 这 个 谓词 本 身 的 定义 
中 又 使 用 了 流 primes 。 这 一 过 程 能 行 的 原因 是 ， 在 计算 中 的 任 一 点 ， 流 primes 都 已 经 生成 
出 的 足够 多 的 部 分 ， 足以 满足 我 们 检查 下 面 的 任何 数 是 否 素数 的 需要 。 也 就 是 说 ， 在 检查 任 
何 一 个 数 n 是 否 素数 时 ， 或 者 n 不 是 素数 (这 时 存在 着 一 个 已 经 生成 的 素数 能 够 整除 它 ) ， 或 者 
n 是 素数 (这 时 ， 已 经 生成 过 一 个 素数 一 一 也 就 是 说 ， 已 经 生成 过 一 个 小 于 n 但 是 大 于 Vn 的 素 
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数 ) 191 | 
练习 3.53 请 不 要 运行 程序 ， 描 述 一 下 由 下 面 程序 定义 出 的 流 里 的 元 素 : 


(define s (cons-stream 1 (add-streams s s))) 


练习 3.54 ”请 定义 一 个 与 add-streams 类 似 的 过 程 mul-~streams ， 对 于 两 个 输入 流 ， 
它 按 元 素 逐 个 生成 乘积 。 用 它 和 integers 流 一 起 完成 下 面 流 的 定义 ， 其 中 的 第 n 个 元 素 (从 
0 开始 数 ) 是 4+1 的 阶乘 : 


{define factorials (cons-stream 1 (mul-streams <??> <??>))) 


练习 3.55 if Lawpartial-sums, EMS ABR, BE AEP ITCH So, Sot 
S,,S94+5,+S82, …。 Milan, (partial-sums integers) 应 该 生成 流 1, 3,6, 10, 15, ---, 
练习 3.56 ”这 是 一 个 非常 著名 的 问题 ， 首 先 由 R. Hamming 提 出 。 问 题 是 要 按照 递增 的 顺 
序 不 重复 地 枚 举 出 所 有 满足 条 件 的 整数 ， 这 些 整 数 都 没有 2、3 和 5 之 外 的 素数 因子 。 完 成 此 事 
的 一 种 明显 方法 是 简单 地 检查 每 一 个 整数 ， 看 看 它 是 否 有 2、3 和 5 之 外 的 素数 因子 。 但 这 样 做 
极其 低 效 ， 因 为 随 着 整数 变 大 ， 它 们 之 中 满足 要 求 的 数 也 会 变 得 越 来 越 少 。 换 一 种 看 法 ， 让 
我 们 将 所 需 的 流 称 作 S ， 看 看 有 关 它 的 下 述 事 实 : 
。S 从 1 开始 。 
e (scale-stream S 2) 的 元 素 也 是 S 的 元 素 。 
。 这 一 说 法 对 于 (scale-stream S 3) 和 (scale-stream 5 S) 也 都 对 。 
。 这些 也 就 是 5 的 所 有 元 素 了 。 
现在 需要 做 的 就 是 将 所 有 这 些 来 源 的 元 素 组 合 起 来 。 为 此 我 们 先 定义 一 个 函数 merge,， 
它 能 将 两 个 排 好 顺序 的 流 合并 为 一 个 排 好 顺序 的 流 ， 并 删除 其 中 的 重复 : 
(define (merge sl s2) 
(cond ((stream-null? sl) s2) 
((stream-null? s2) sl) 
(else 
(let ((slcar (stream-car sl)) 
(s2car (stream-car s2))) 
(cond ((< slcar s2car) 
(cons-stream slcar (merge (stream-cdr sl) s2))) 
((> slear s2car) 
(cons-stream s2car (merge sl (stream-cdr s2)))) 
(else 
(cons-stream slcar 


{merge (stream-cdr S1) 
(stream-cdr s2))))))))) 


而 后 就 可 以 利用 mezge ， 以 如 下 方式 构造 出 所 需 的 流 了 : 


(define S (cons-stream 1 (merge <??> <??>))) 


请 在 上 面 <2??> 标 记 的 位 置 填充 所 缺 的 表达 却 。 


1 最 后 一 点 并 不 容易 看 到 ， 它 依赖 于 事实 ps <p? GREP RAR T RR). 。 像 这 样 形式 的 估计 是 很 蕉 建立 
的 。 欧 几 里 得 在 古代 证 明了 素数 有 无 穷 多 个 ， 其 中 证 明了 pn <Pi pa Po +1， 直 到 1851 年 都 没 人 得 到 比 这 
更 好 的 结果 ， 那 一 年 俄罗斯 数学 家 P. L. Chebyshey 证 明 出 对 于 任何 ?都 有 Pu :f 和 22,， 这 一 结果 是 1845 年 提出 的 
一 个 猜想 ， 称 为 Bertrand 猜 想 。 在 Hardy 和 Wright 1960 的 22.3 节 可 以 找到 对 这 个 问题 的 证 明 。 
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练习 3.57 ” 当 我 们 用 基于 add-stzeams 过 程 的 Eibs 定 义 计 算出 第 2 个 斐 波 那 契 数 时 ， 需 
要 执行 多 少 次 加 法 ? 请 证 明 ， 如 果 我 们 简单 地 用 (Lambda () <exp>) 实现 (delay <exp>), 
又 不 用 3.5.1 节 给 出 的 memo-Pzoc 过 程 所 提供 的 优化 ， 那 么 所 需 的 加 法 将 会 指数 倍 地 增加 一 。 

练习 3.58 ”请 给 下 面 过 程 所 计算 的 流 的 一 种 解释 : 

(define (expand num den radix) 

(cons-stream 

(quotient (* num radix) den) 

(expand (remainder (* num radix) den) den radix))) 
(这 里 的 quotient 是 求 两 个 整数 的 整数 商 的 基本 函数 )。(expand 1 7 10) 会 顺序 产生 出 
哪些 元 素 ? (expand 3 8 10) 会 产生 哪些 元 素 ? 

练习 3.59 ”在 2.5.3 节 里 ， 我 们 说 明了 如 何 实现 一 个 多 项 式 算术 系统 ， 其 中 将 多 项 式 表示 
为 项 的 表 。 我 们 可 以 按 类 似 方式 处 理 响 级 数 ， 例如， 将 





x x 
e 二 1] 十 X 十 一 十 一 一 十 十 … 
2 3-2 43.2 
2 4 


x 
COSX=]1 一 一 十 一 一 一 一 *…: 
2 4.3.2 


表示 为 无 穷 的 流 。 我 们 把 将 级 数 ao + ai x +az VP +a 2 十 … 表 示 为 流 ， 流 的 元 素 就 是 级 数 的 系 
Ao, Gis, G2, G3, *°° 
a) 级 数 ao +a X +a r +a A MW RPER ER: 


1 ,, 1 ;1 č , 
CH ax+ > OX + ax + 74x 十 … 


这 里 的 c 是 任意 常数 。 请 定义 过 程 integrate-~series， 它 以 一 个 表示 稀 级 数 的 流 ao, a, ~ 
为 参数 ， 返 回 这 个 宕 级 数 的 积分 中 各 个 非常 数 项 的 系数 的 流 ao， (Sa, (an, …。( 因为 返 


回 的 结果 中 不 包含 常数 项 ， 因 此 它 不 是 害 级 数 。 如 果 要 对 它们 使 用 ntegrate-series,， 
我 们 可 以 用 cons 加 上 一 个 常数 项 。) 

b) 函数 x Fy er 是 其 自身 的 导数 。 这 也 意味 着 ex 和 ex 的 积分 是 同一 个 级 数 ， 除 了 常数 项 之 外 。 
而 常数 项 应 该 是 eo =1。 根 据 这 种 情况 ， 我 们 可 以 按 如 下 方式 生成 e 的 级 数 : 


(define exp-series 
(cons~stream 1 (integrate-series exp-series) )) 


我 们 知道 sn 的 导数 是 cos ， 而 且 cos 的 导数 是 负 的 sin， 请 说 明 如 何 根据 这 些 事实 ， 生 成 sin 和 cos 
的 级 数 : 
(define cosine-series 
(cons-stream 1 <??>)) 


(define sine-series 
(cons-stream 0 <??>)) 


192 ;x 一 练习 说 明了 按 需 调用 与 练习 3.27 所 描述 的 常规 记忆 方法 有 密切 联系 。 在 那个 练习 里 ， 我 们 利用 赋值 构造 了 
一 个 显 式 的 表 列 。 这 里 的 按 需 调 用 流 能 够 有 效 地 自动 构造 出 这 种 表 列 , 将 值 存 入 流 的 前 面 强迫 做 出 的 那 部 分 里 。 





练习 3.60 ” 像 练 习 3.59 里 那样 将 医 级 数 表示 为 系数 的 流 之 后 ， 级 数 的 和 就 可 以 直接 用 过 程 
add-stIeams 实 现 了 。 请 完成 下 面 级 数 乘 积 过 程 的 定义 ， 


(define (mul-series sl s2) 
(cons-stream <??> (add-streams <??> <??>))) 


尔 可 以 利用 公式 sin'x +cos’x =1， 用 练习 3.59 定 义 的 那些 级 数 检 验 你 定义 出 的 过 程 。 
练习 3.61 令 S 是 一 个 常数 项 为 1 的 竹 级 数 〈 练 习 3.59)， 假 定 我 们 现在 希望 找 出 1/5 HR 
数 ， 也 就 是 说 HOP RAK, EGS Xl, ASERS =l 二 Sx， 其 中 Sr 是 $ 常 数 项 后 面 的 
部 分 。 而 后 我 们 就 可 以 按 下 面 方式 解 出 X: 
Ss. 
(1 + Sp) - 
X +Sp ° 
一 9R ` 
换 名 话说, X 是 那样 的 一 个 竹 级 数 ， 其 常数 项 为 1 ， 而 其 高 阶 的 那些 项 可 以 由 Sx 求 负 后 乘 以 X 而 
得 到 。 请 利用 这 一 思想 写 出 一 个 过 程 ， 使 它 能 对 常数 项 为 1 的 备 级 数 5 计 算出 1/S。 你 需要 使 用 
练习 3.60 的 mul~series。， 
练习 3.6< 请 利用 练习 3.60 和 练习 3.61 的 结果 定义 一 个 过 程 div~series , KM THR 
数 的 除法 。div-series 应 该 能 对 任何 两 个 级 数 工 作 ， 只 要 作为 分 母 的 级 数 具有 非 0 的 常数 项 
(如 果 它 的 常数 项 为 0，div-series 应 该 报错 )。 请 说 明 ， 如 何 利 用 daiv-series 和 练习 3.59 
的 结果 产生 出 正切 国 数 的 客 级 数 。 


3.3.3 流 计算 模式 的 使 用 


带 有 延 时 求 值 的 流 可 能 成 为 一 种 功能 强大 的 模拟 工具 ， 能 提供 局 部 状态 和 峰值 的 许多 效 
益 。 进 一 步 说 ， 这 种 机 制 还 能 避免 将 赋值 引入 程序 设计 语言 所 带 来 的 一 些 理论 困难 。 

流 方法 极 富有 启发 性 ， 因 为 借助 于 它 去 构造 系统 时 ， 所 用 的 模块 划分 方式 可 以 与 采用 赋 
值 、 围 绕 着 状态 变量 组 织 系统 的 方式 不 同 。 例 如 ， 我 们 可 以 将 整个 的 时 间 序 列 (或 者 信号 ) 
作为 关注 的 目标 ， 而 不 是 去 关注 有 关 状 态 变量 在 各 个 时 刻 的 值 。 这 将 使 我 们 能 更 方便 地 组 合 
与 比较 来 自 不 同时 刻 的 状态 成 分 。 

系统 地 将 迭代 操作 方式 表示 为 流 过 程 

1.2.1 节 介绍 了 迭代 过 程 ， 这 种 工作 过 程 也 就 是 不 断 地 更 新 一些 状态 变量 。 现 在 我 们 知道 
状态 可 以 表示 为 值 的 “没有 时 间 的 ” 流 ， 而 不 是 一 组 不 断 更 新 的 变量 。 现 在 让 我 们 采用 这 一 
观点 ， 重 新 去 看 1.1.7 节 的 平方 根 过 程 。 请 回忆 一 下 ， 那 里 的 思想 就 是 生成 出 一 个 序列 ， 其 元 
素 是 x 的 平方 根 的 一 个 比 一 个 更 好 的 猜测 值 ， 采 用 的 方法 是 反复 应 用 一 个 改进 猜测 的 过 程 ， 


(define (sqrt-improve guess x) 
(average guess (/ x guess))) 


在 原来 的 sqrt 过 程 里 ， 我 们 用 某 个 状态 变量 的 一 系列 值 表 示 这 些 猜测 。 换 一 种 方式 ， 我 们 也 
可 以 生成 一 个 无 穷 的 猜测 序列 ， 从 初始 猜测 1 开始”: 


3 不 能 用 let 去 建立 局 部 变量 guesses 的 约束 ， 因 为 guesses 的 值 依赖 于 guesses 本 身 。 参 见 练习 3.63。 
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(define (sqrt-stream x) 
(define guesses 
(cons-stream 1.0 
(stream-map (lambda (guess) 
(sqrt-improve guess x)) 
guesses) )) 


guesses) 


(display-stream (sqrt-stream 2)) 
l. 

1.5 

1.4166666666666665 
1.4142156862745097 
1.4142135623746899 


我 们 可 以 生成 出 这 个 流 中 越 来 越 多 的 项 ， 以 得 到 越 来 越 好 的 猜测 。 如 果 喜 欢 的 话 ， 我 们 也 可 
以 写 一 个 过 程 ， 使 它 能 不 断 生成 项 ， 直 至 得 到 足够 好 的 答案 为 止 ( 另 见 练习 3.64)。 

可 以 按照 同样 方式 处 理 的 另 一 个 迭代 是 生成 r 的 近似 值 ， 这 一 过 程 基于 下 面 的 交替 级 数 ， 
我 们 在 1.3.1 节 已 经 见 过 的 它 : 


下 -1- 工 + 工 - 工 + 
4 3 5 7 

我 们 首先 生成 上 述 级 数 (各 个 奇数 的 倒数 ， 其 符号 是 交替 的 ) 之 和 的 流 ， 逐 步 取 得 越 来 越 多 
的 项 之 和 (利用 练习 3.55 的 partial-sums 过程 )， 并 将 得 到 的 结果 除 以 4: 


(define (pi-summands n) 
(cons-stream (/ 1.0 n) 
(stream-map ~ (pi-summands (+ n 2))))) 
(define pi-stream 
(scale-stream (partial-sums (pi-summands 1)) 4)) 


(display-stream pi-stream) 


-666666666666667 
-466666666666667 
-8952380952380956 
.3396825396825403 
.9760461760461765 
.2837384837384844 
.017071817071818 


wu Ww ID U N Ww N b 
+ 


这 样 就 给 出 了 一 个 逐步 逼近 的 流 。 这 一 逼近 收敛 得 非常 慢 ， 序 列 中 的 8 项 只 能 将 r 值 界定 
到 3.284 和 3.017 之 间 。 

到 现在 为 止 ， 我 们 对 状态 的 流 的 使 用 方式 与 做 状态 变量 更 新 还 没有 多 大 差别 。 但 是 ， 流 
确实 提供 了 一 些 机 会 ， 使 我 们 可 以 采用 一 些 非常 有 趣 的 技巧 。 举 例 来 说 ， 我 们 可 以 用 一 个 库 
列 加 束 器 对 流 做 一 个 变换 ， 这 种 加 速 器 可 以 将 一 个 允 近 序列 变换 为 另 一 个 新 序列 ， 该 新 序列 
也 收敛 到 与 原 序列 同样 的 值 ， 只 是 收敛 速度 快 得 多 。 





这 种 加速 器 中 的 一 个 应 该 归功 于 瑞士 数学 家 利 昂 哈 德 . 欧 拉 ， 这 一 加 速 器 对 于 交错 级 数 
(具有 交错 符号 的 项 的 级 数 ) 的 部 分 和 工作 得 特别 好 。 按 照 欧 拉 的 技术 ， 假设 5, 是 原 有 的 和 序 
列 的 第 nh 项， 那么 加 速 序 列 的 形式 就 是 : 

Sn -CS 
S$ ,~2S$ +5, 
也 就 是 说 ， 如 果 原 序列 采用 一 个 值 的 流 表示 ， 变 换 后 的 序列 可 以 如 下 给 出 : 


(define (euler-transform s) 


(let ({80 (stream-ref s 0)) ; Si 
(sl (stream-ref s 1)) ; Sa 

(s2 (stream-ref s 2))) > Spe 
(cons-stream (- s2 (/ (square (- s2 s1)) 


(+ s0 (* -2 sl) s2))) 
(euler-transform (stream-cdr s))))) 


RAET AFA AE A HE he KED SR AS : 
(display-stream (euler-transform pi-stream) ) 
-166666666666667 

. 1333333333333337 

.1452380952380956 

.13968253968254 

.1427128427128435 

.1408813408813416 

-142071817071818 

-1412548236077655 


Ww w W w Ww Ww w 


还 可 以 做 得 更 好 些 ， 因 为 我 们 甚至 可 以 去 加 速 由 前 面 的 加 速 得 到 的 序列 ， 或 者 递归 地 加 
速 下 去 ， 如 此 等 等 。 也 就 是 说 ,我们 可 以 构造 出 一 个 流 的 流 (一 种 我 们 称 为 表 列 的 结构 )， 其 
中 的 每 个 流 都 是 前 一 个 流 的 变换 结 霖 : 

(define (make-tableau transform s) 

({cons-stream s 


(make-tableau transform 
{transform s)))) 


这 样 得 到 的 表 列 具有 如 下 形式 : 


最 后 取出 表 列 中 每 行 的 第 一 项 ， 这 样 就 可 以 形成 一 个 序列 : 
(define (accelerated-sequence transform $s) 


(stream-map stream-car 
(make-~tableau transform s))) 


PEAT AT WA FAVE WO PES He ik — “RT a aE” : 
(display-stream (accelerated-sequence euler-transform 
pi-stream) ) 
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w 
Un 
ai 


- 166666666666667 
»142105263157895 
© 141599357319005 
-1415927140337785 
-1415926539752927 
-1415926535911765 
-141592653589778 


Ww WW WwW Ww WwW U U e 
b 


结果 非常 令 人 振奋 。 取 出 序列 的 8 项 ， 就 产生 出 r 的 直至 14 位 数字 的 正确 值 。 如 果 我 们 用 的 是 
原来 的 逼近 序列 ， 那 么 将 需要 计算 105 数 量 级 的 项 才能 达到 同样 精确 程度 〈 也 就 是 说 ， 需 要 展 
开 足 够 多 的 项 , 使 一 个 项 的 绝对 值 小 于 10 ”) 。 如 果 不 使 用 流 , 我 们 也 可 以 实现 这 些 加 速 技术 ， 
但 流 的 描述 形式 特别 优美 而 又 方便 ， 因 为 整个 状态 序列 就 像 一 个 数据 结构 一 样 ， 可 以 通过 一 
集 统一 的 操作 直接 地 随意 使 用 。 

练习 3.63 Louis Reasoner|a] 4 ft Aasqrt- _stream 过 程 没 采用 下 述 更 加 直截了当 的 形式 
写 出 ， 其 中 根本 不 用 局 部 变量 guesses : 


(define (sqrt-stream x) 
(cons-stream 1.0 
(stream-map (lambda (guess) 
(sqrt-improve guess x)) 
(sqrt-stream x)))) 

Alyssa P. Hacker 对 所 说 过 程 的 这 个 版 本 的 评价 是 ， 它 过 于 低 效 ， 因为 其 中 执行 了 一 些 多 余 的 
操作 。 请 解释 Alyssa 的 回答 。 如 果 我 们 的 Gelay 直接 采用 (lambda () <exp>) 实现 ， 而 不 
用 memo-proc 所 提供 的 优化 ( 见 3.5.1 节 )， 这 两 个 版 本 在 效率 方面 还 会 有 差异 吗 ? 

练习 3.64 ”请 写 出 过 程 stream-1limit， 它 以 一 个 流 和 一 个 数 ( 当 作 容许 误差 ) 作为 参 
数 ， 检 查 这 个 流 ， 直 至 发 现 连 续 两 项 之 差 的 绝对 值 小 于 给 定 容 许 误 差 。 这 时 该 过 程 返 回 后 一 
个 项 。 利 用 这 一 过 程 ， 我 们 就 可 以 用 下 面 方式 计算 出 满足 给 定 误差 的 平方 根 : 

(define (sqrt x tolerance) 


(stream-limit (sqrt-stream x) tolerance) ) 


练习 3.65 ”用 级 数 : 


In 2 = Aly... 
2 3 4 


参照 上 面 计算 的 方式 ， 计 算出 逼近 2 的 自然 对 数 的 三 个 序列 。 这 些 序列 的 收敛 速度 怎么 样 ? 


在 2.2.3 节 里 ， 我 们 看 到 过 如 何 通 过 序列 范 型 去 处 理 传统 的 能 套 循 环 ， 将 其 作为 定义 在 序 
对 的 序列 上 的 计算 过 程 。 如 果 将 这 一 技术 推广 到 无 穷 流 ， 我 们 就 可 以 写 出 一 些 很 不 容 多 用 循 
环 表示 的 程序 ， 因 为 要 想 那样 做 ， 就 必须 对 无 穷 集 合 做 “循环 。 

举例 说 ， 假 定 我 们 希望 推广 2.2.3 节 的 prime-sum-pairs 过 程 ， 生 成 所 有 整数 序 对 Jj) 
的 流 ， 其 中 有 i <j 而 且 i +j 是 素数 。 如 果 int-pairs 是 所 有 满足 i <j 的 整数 序 对 (i, 让 的 序列 ， 
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那么 我 们 的 需求 就 很 简单 了 ”: 
(stream-filter (lambda (pair) 
{prime? (+ (car pair) (cadr pair)))) 
int-pairs) 
现在 丫 题 就 转化 为 流 int-pairs 的 生成 。 更 一 般 些 ,假定 我 们 现在 有 了 两 个 流 S = (SF 
T= (Tj)， 设 想 下 面 的 无 穷 矩 形 阵 列 ，; 
(So, To) (So, Ti) (So, T2) ... 
(Si, To (Si, 71) ($, T3) .. 
(So, To) ($2 T) ($2, 72)... 


我 们 需要 的 是 生成 一 个 流 ， 其 中 包含 了 在 这 一 阵列 中 位 于 对 角 线 及 其 上 方 的 所 有 序 对 ， 即 如 
下 的 这 些 序 对 : 
(So, To) (So, Ti) (So, T2) ... 
(Si, Ti) (Si, T2) ... 
(S2, Tə) ee 


(如 果 S FIT BB AE EE BAIT, MARERA RA int-pairsyH.) 
我 们 把 这 个 一 般 性 的 流 称 为 (pairs S T)， 并 认为 它 由 三 部 分 组 成 : 序 对 So To), 8 
一 行 里 的 所 有 其 他 序 对 ， 以 及 其 余 的 序 对 “: 
(So, To) | (So, T) (So, T2) . 
(S T) (i, 72) … 
(S2, T) 






可 以 看 出 ， 这 一 分 解 的 第 三 部 分 (那些 不 在 第 一 行 的 序 对 ) FE (递归 地 ) 由 (stream-cdr 
S) 和 (stream-cdr T) 形成 的 那些 序 对 。 还 可 以 看 到 其 第 二 部 分 (第 一 列 其 余 序 对 ) 就 
是 : 


(stream-map (lambda (x) (list (stream-car s) x)) 
(stream-cdr t)) . 


iP RE VaR PT DA $e PR ao Ba PP Tate T : 
(define (pairs s t) 
(cons-stream 
(list (stream-car s) (stream-car t)) 
(< 按 某 种 方式 组 合 > 
(stream-map (lambda (x) (list (stream-car s) x)) 
(stream-cdr t)) 

(pairs (stream-cdr s) (stream-cdr t))))) 


为 了 完成 这 一 过 程 ， 我 们 还 必须 选择 一 种 方式 ， 通 过 它 组 合 起 两 个 内 部 的 流 。 一 种 想法 


94 正 像 2.2.3 节 一 样 ， 我 们 在 这 里 将 整数 的 序 对 表示 为 两 个 元 素 的 表 ， 而 不 是 表示 为 Lisp 的 序 对 。 
195 有 关 为 什么 选择 这 种 分 解 的 考虑 ， 请 参考 练习 3.68 。 
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ERM -32.2.14 p append i BR MA E : 
(define (stream-append sl s2) 
(if (stream-null? s1) 
32 
(cons-stream (stream-car 8S1) 
(stream-append (stream-cdr sl) s2)))) 


Ri, MRAM, A-KMBCST eH, AA ERE RAS —A MH I ATRL Me , 
才 去 结合 进 第 二 个 流 的 元 素 。 特 别 是 如 果 我 们 试图 用 如 下 方式 生成 所 有 正 整 数 的 序 对 : 


(pairs integers integers) 


结果 得 到 的 流 将 会 试图 首先 生成 出 第 一 个 元 素 等 于 1 的 所 有 序 对 ， 因 此 也 就 根本 不 会 产生 出 以 
其 他 整数 作为 第 一 个 元 素 的 序 对 了 。 

为 了 处 理 无 穷 的 流 ， 我 们 需要 设计 另 一 种 组 合 顺 序 ， 以 保证 只 要 这 个 程序 运行 的 时 间 足 
够 长 ， 那 么 最 终 就 能 得 到 流 中 的 每 一 个 元 素 。 做 到 这 一 点 的 一 种 很 美妙 的 方式 是 采用 下 面 的 
interleave tf”, 


(define (interleave sl s32) 
(if (stream-null? sl) 
s2 
(cons-stream (stream-car 81) 
(interleave s2 (stream-cdr si))))) 


HAinterleave S#WM ATH PRICK, A, MERSER, BA 
个 元 素 最 终 都 能 在 这 样 交 错 得 到 的 流 里 有 目 己 的 位 置 。 
现在 ， 我 们 已 经 可 以 通过 如 下 方式 生成 所 需 的 流 了 : 


(define (pairs s 七 ) 
(cons-stream 
(list (stream-car s) (stream-car t)) 
(interleave 
(stream-map (lambda (x) (list (stream-car s) x)) 
(stream-cdr t)) 
(pairs (stream-cdr s) (stream-cdr t))))) 
练习 3.66 ”请 仔细 检查 流 (pairs integers integers )， 你 能 对 各 个 序 对 放 入 在 六 
中 顺序 做 出 任何 一 般 性 的 说 明 吗 ? 比如 说 ， 在 序 对 (1，100) 之 前 大 约 有 多 少 个 序 对 ? 在 序 对 
(100, 100) 之 前 呢 ? (如 果 你 能 在 这 里 做 出 精确 的 数学 描述 ， 那 当然 更 好 了 。 但 如 要 觉得 很 
难 做 好 定量 的 回答 ， 你 也 完全 不 必 感 到 诅 臣 。) 
练习 3.67 ”请 修改 过 程 pairs, 使 (pairs integers integers) 能 生成 所 有 整数 
序 对 (i,j) 的 流 (不 考虑 条 件 i <j)。 提 示 : 你 需要 混合 进去 另 一 个 流 。 
练习 3.68 Louis Reasoner 认 为 从 上 述 三 个 部 分 出 发 构造 流 ， 是 把 事情 弄 得 过 于 复 洒 了 。 
他 建议 不 要 把 (So T) 与 第 一 行 的 其 他 部 分 分 开 ， 而 是 直接 对 整个 这 一 行 工作 ， 采 用 下 面 方 
式 : 


196 这 一 组 合 顺 序 所 需 的 性 质 可 以 精确 地 陈述 如 下 : 应 该 有 一 个 两 参数 的 函数 /， 使 对 应 于 第 一 个 流 的 元 素 : 和 第 
二 个 流 的 元 素 j 的 那个 序 对 出 现 输出 流 中 ， 作 为 其 中 的 第 Ki, 有) 个 元 素 。 使 用 inter1leave 达 到 这 一 效果 的 
技巧 是 David Turer 教 给 我 们 的 ， 他 在 语言 KRC (Turner 1981) 里 使 用 了 这 种 技术 。 
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(define (pairs s t) 
(interleave 
(stream~map (lambda (x) (list (sStream-car S) x)) 
t) 


(pairs (stream-cdr s) (stream-cdr t)))) 


这 样 做 能 行 吗 ? 请 考虑 一 下 ， 如 果 我 们 采用 [Louis 对 pairs 的 定义 去 求 值 (pairs integers 
integers )， 那 会 出 现 什 么 情况 。 

练习 3.69 ”请 写 一 个 过 程 triples ， 它 以 三 个 无 穷 流 $、T 和 U0 为 参数 ， 生 成 三 元 组 (S, 
T,, U) 的 流 ， 其 中 要 求 有 i<j <。 利用 triples 生 成 所 有 正 的 毕 达 哥 拉 斯 三 元 组 的 流 ， 也 就 
是 说 ， 生 成 所 有 的 三 元 组 (i, j, h, Hi<j, MEAP +F =R, 

练习 3.70 如 果 能 够 让 生成 的 流 中 的 序 对 按照 某 种 有 用 的 顺序 排列 ， 而 不 仅仅 是 顺便 地 
任 由 某 种 实际 交错 过 程 产生 ， 也 可 能 是 很 有 价值 的 事情 。 问 题 是 要 定义 好 一 种 方式 ， 使 我 们 
能 够 说 某 个 序 对 “小 于 ” 另 一 个 ,而 后 就 可 以 采用 某 种 类 似 于 练习 3.56 里 的 merge 过 程 的 技 
术 了 。 完 成 此 事 的 一 种 方式 是 定义 一 个 “权重 函数 ”W(i, ))， 并 规定 当 W(ii, Jj) <W(is ,Jj2) 
时 (i, i) 就 小 于 (2， 门 。 请 写 出 过 程 merge-weighted， 它 很 像 merge， 但 还 多 了 一 个 参 
数 weight ， 这 是 一 个 用 于 计算 序 对 权重 的 过 程 ， 用 于 确定 元 素 在 归并 所 产生 的 流 中 出 现 的 顺 
序 ”。 利 用 这 个 函数 将 pairs 推 广 为 过 程 weighted-pairs， 这 个 过 程 的 参数 包括 两 个 流 ， 
还 有 一 个 用 于 计算 权重 函数 的 过 程 。 它 按照 给 定 的 权重 顺序 生成 出 序 对 的 流 。 请 用 你 的 过 程 
生成 出 : 

a) 所 有 正 整 数 序 对 G, J) 的 流 ， 其 中 要 求 i <j， 按 照 和 数 i+j 的 顷 序 排列 。 

b) 所 有 正 整数 序 对 (i, D 的 流 ， 其 中 要 求 i <j， 而 且 这 里 的 i 或 者 可 以 被 、3 或 者 5 整除 ， 
这 些 序 对 按照 和 数 2i +3j 十 5ij 的 顺序 排列 。 

练习 3.71 可 以 以 多 于 一 种 方式 表达 为 两 个 立方 数 之 和 的 数 有 了 时 被 称 为 Ramanujan 数 ， 以 
纪念 数学 家 Srinivasa Ramanujan'%。 序 对 的 有 序 流 为 计算 这 些 数 的 问题 提供 了 一 种 非常 优美 
的 解决 方案 。 为 了 能 够 找到 所 有 能 以 两 种 不 同方 式 写 为 两 个 立方 之 和 的 数 ， 我 们 只 需要 以 和 
数 + PE ALE ( 见 练习 3.70) 顺序 地 生成 整数 序 对 的 流 ， 而 后 在 这 个 流 里 寻找 具有 同样 权 
重 的 两 个 前 后 相 邻 排列 的 序 对 。 请 写 一 个 过 程 生成 Ramanujan 数 。 第 一 个 这 样 的 数 是 1729， 
随后 的 5 个 数 是 什么 ? 

练习 3.72 ”请 采用 类 似 于 练习 3.71 的 方式 ， 生 成 出 所 有 满足 下 面条 件 的 数 的 流 : 这 些 数 都 
能 够 以 三 种 不 同方 式 表 示 为 两 个 平方 数 之 和 (并 请 显示 出 它们 的 分 解 形 式 )。 


将 流 作 为 信和 号 
在 开始 有 关 流 的 讨论 时 ， 我 们 将 它们 描述 为 信号 处 理 系 统 里 的 “信号 在 计算 中 的 对 应 
物 。 事 实 上 ， 我 们 可 以 采用 流 ， 以 一 种 非常 直接 的 方式 为 信号 处 理 系 统 建 模 ， 用 流 的 元 素 表 

7 需要 对 权重 函数 提出 以 下 要 求 : 当 沿 着 序 对 阵列 的 任何 一 行 向 右 ， 或 者 沿 着 任何 一 列 向 下 时 ， 序 对 的 权重 一 
定 增加 。 

98 引用 哈代 有 关 Ramanujan 的 传略 (Hardy 1921 ):“ 那 是 Littlewood 先 生 (我 认为 ) 说 的 ， ‘每 一 个 正 整 数 都 是 
他 的 朋友 " 。 记 得 有 一 次 我 去 看 他 ， 他 当时 正 因 病 住 在 Patney 。 我 刚刚 坐 的 出 租车 号 码 是 1729 ， 我 说 这 个 数 
实在 没 趣 ， 但 愿 这 不 是 一 个 坏 兆 头 。 他 回答 说 :;“ 不 ， 这 是 一 个 非常 有 趣 的 数 ， 它 是 能 以 两 种 不 同方 式 表达 
为 两 个 立方 数 之 和 的 最 小 的 数 。 ”利用 带 权 数 的 序 对 生成 Ramanujan 数 的 技 巧 是 Charles Leiserson 告 诉 我 们 的 。 
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示 一 个 信和 号 在 顺序 的 一 系列 时 间 间 隔 上 的 值 。 举 例 来 说 ， 我 们 可 以 实现 一 个 积分 器 或 者 求 和 
器 ， 对 于 输入 流 x =(Xi)， 初 始 值 C 和 一 个 小 增 量 dft， 累 积 下 面 的 和 : 


i 


Sa C+ Dx, 出 


并 返回 值 $ =(S) 的 流 。 下 面 的 jntegral 过 程 使 我 们 回想 起 前 面 给 出 的 整数 流 的 “ 隐 式 风格 
的 ”定义 〈 见 3.5.2 节 )。 


(define (integral integrand initial-value dt) 
(define int 
(cons-stream initial-value 
(add-streams (scale-stream integrand dt) 
int))) 
int) 


图 3-32 是 对 应 于 integral 过 程 的 信号 处 理 系 统 的 一 个 图 示 。 输 入 流 经 过 dt 做 尺度 变换 后 送 给 
一 个 加 法 器 ， 加 法 器 的 输出 又 重新 送 回 同一 个 加 法 器 。 位 于 int 定 义 里 的 自 引 用 ， 在 图 中 的 
反应 就 是 从 加 法 器 的 输出 到 其 一 个 输入 的 反馈 循环 。 


initial~value 
I 





L integral 





input 


图 3-32 将 integral 过 程 看 作 信号 处 理 系统 


练习 3.73 ”我 们 可 以 用 流 表示 电流 或 者 电压 在 时 间 序 列 上 的 值 ， 用 以 模拟 电子 线路 。 举 
例 说 ， 假 定 有 一 个 RC 电路 ， 它 由 一 个 阻 值 为 R 的 电阻 和 一 个 容量 为 C 的 电容 器 串联 而 成 。 该 电 
路 对 输入 电流 i 的 电压 响应 v 由 图 3-33 里 的 公式 表示 ， 其 结构 由 对 应 的 信号 流 图 表示 。 


十 v — 
vey, +—fidt+ Ri 
i cH" 
R C 






图 3-33 一 个 RC 电路 与 关联 的 信号 流 图 
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请 写 出 一 个 过 程 RC 模 拟 这 个 电路 。RC 应 该 以 R、C 和 dt 的 值 作为 输入 ， 它 应 返回 一 个 过 程 ， 
该 过 程 的 输入 是 一 个 表示 电流 的 流 i1 和 一 个 表示 电容 器 初始 电压 值 的 vo, 输出 是 表示 电压 的 流 Y。 
例如 ， 你 应 该 能 通过 求 值 (define RC1 (RC 5 1 0.5))， 用 RC 模拟 一 个 RC 电路 ， 其 中 
R =5 欧 姆 ，C =1 法 ， 以 0.5 秒 作为 时 间 步 长 。 这 一 表达 式 将 定义 出 一 个 过 程 RC1， 它 以 一 个 表 
示 电 流 的 时 间 序 列 的 流 和 电容 絮 的 一 个 初始 电压 量 为 参数 ， 能 产生 出 表示 电压 的 输出 序列 。 


练习 3.74 Alyssa P. Hacker 正 在 设计 一 个 系统 ， 以 处 理 来 自 物理 传感器 的 信号 。 她 希望 
得 到 的 一 个 重要 特性 就 是 一 个 描述 了 输入 信号 过 零点 的 信号 。 也 就 是 说 ， 在 输入 信号 从 负 值 
变 成 正 值 时 这 个 结果 信和 号 应 该 是 +1， 而 当 输 入 信号 由 正 变 负 时 它 应 该 是 -1， 其 他 时 刻 值 为 0 
(0 输入 的 符号 也 假定 为 正 )。 例 如 ， 一 个 典型 的 输入 信号 及 其 相关 的 过 零点 信号 应 该 是 : 
eel 2 1.5 1 0.5 -0.1 -2 -3 -2 -0.5 0.2 3 4... 
. 0 0 0 0 0 -1 0 0 0 0 1 0 0... 
在 Alyssa 的 系统 里 ， 来 自传 感 器 的 信号 用 流 sense-data 表 示 ， 流 zero-crossings 是 对 应 
的 过 零点 流 。Alyssa 首 先 写 出 一 个 过 程 sign-change-~detector， 它 以 两 个 值 作为 参数 ， 
比较 它们 的 符号 产生 出 适当 的 0、1 或 者 -1。 而 后 她 用 下 面 方 式 构造 出 过 零点 流 : 
(define (make-zero-crossings input-stream last-value) 
(cons-stream 
(sign-change-detector (stream-car input-stream) last-value) 


(make-zero-crossings (stream-cdr input-stream) 
(stream-car input-stream)))) 


(define zero-crossings (make-zero-crossings sense-data 0)) 


Alyssa 的 上 司 Eva Lu Ator 走 过 ， 提 出 说 这 一 程序 与 下 面 的 程序 差不多 ， 其 中 采用 了 取 目 练习 
3.50 的 stream-map 的 推广 版 本 : 


(define zero-crossings 
(stream-map sign-change-detector sense-data <expression>) ) 


请 填充 这 里 缺少 的 <expression> ， 完 成 这 一 程序 。 

练习 3.75 ”不幸 的 是 ， 练 习 3.74 中 Alyssa 的 过 零点 检查 程序 被 证 明 效 果 不 好 ， 因 为 来 自传 
感 器 的 噪声 信号 将 导致 一 些 虚假 的 过 零点 。 硬件 专家 Lem E. Tweakit 建 议 Alyssa 对 信号 做 平 请 ， 
在 提取 过 零点 之 前 过 滤 掉 噪声 。Alyssa 接 受 了 他 的 建议 ,决定 先 做 每 个 感应 值 与 前 一 感应 值 
的 平均 值 ， 而 后 在 这 样 构 造 出 的 信号 里 提取 过 零点 。 她 将 这 一 问题 解释 给 自己 的 助手 Louis 
Reasoner ， 让 他 实现 这 一 想法 。Louis 将 Alyssa 的 程序 修改 为 下 面 样子 : 

(define (make-zero-crossings input-stream last~value) 

(let ((avpt (/ (+ (stream-car input-stream) last-value) 2))) 


(cons-stream (sign-change-detector avpt last~-value) 
(make-zero-crossings (stream-cdr input-stream) 


avpt)))) 
这 并 没有 正确 实现 Alyssa 的 计划 。 请 找 出 Louis 留 在 其 中 的 错误 ， 改 正 它 ， 但 不 要 改变 程序 的 
结构 。( 提 示 : 你 将 需要 增加 make-zero-crossings 的 参数 的 个 数 。) 
练习 3.76 Eva Lu Ator 对 练习 .75 中 Louis 的 计划 有 一 个 批评 意见 ， 说 他 写 出 的 程序 不 够 
模块 化 ， 因 为 其 中 的 平滑 运算 和 过 零点 提取 操作 混在 一 起 了 。 举 例 说 ， 如 果 Alyssa 找 到 了 另 一 
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种 改善 输入 信号 的 更 好 方法 ， 不 应 该 修改 这 里 的 提取 程序 。 请 帮助 Louis 写 一 个 过 程 smooth ， 
拒 以 一 个 流 为 输入 ， 产 生出 另 一 个 流 ， 其 中 的 每 个 元 素 都 是 输入 流 中 顺序 的 两 个 元 素 的 平均 
值 。 而 后 以 smooth 作为 部 件 ， 以 更 模块 化 的 方式 实现 这 个 过 零点 检测 器 。 


3.5.4 流 和 延 时 求 值 


前 一 节 里 的 最 后 一 个 过 程 tntegral ， 展 示 了 我 们 可 以 怎样 用 流 去 模拟 包含 反馈 循环 的 
信号 处 理 系统 。 图 3-32 中 所 示 的 加 法 器 的 反馈 人 循环， 是 通过 将 jntegral 的 内 部 流 int 通 过 它 
本 身 定义 的 方式 去 模拟 的 : 

(define int 

(cons-stream initial-value 
(add-streams (scale-stream integrand dt) 
int))) 


解释 器 处 理 这 种 隐 式 定义 的 能 力 依赖 于 delay， 它 被 结合 在 cons-stream 里 面 。 如 果 疫 有 
这 个 delay ， 解 释 器 就 不 可 能 在 完成 对 cons-stream 的 两 个 参数 的 求 值 之 前 构造 出 int， 
为 这 将 要 求 int 已 经 定义 好 。 一 般 说 ， 在 利用 流 去 模拟 包含 循环 的 信号 处 理 系统 时 , delay 
是 至 关 重 要 的 。 如 果 没 有 delay， 我 们 的 模拟 就 不 得 不 这 样 描述 ， 其 中 要 求 对 每 个 信号 处 理 
部 件 的 输入 都 能 在 产生 输出 之 前 完成 求 值 。 这 也 就 完全 把 循环 排除 在 外 了 。 

但 是 ， 对 于 带 有 循环 的 系统 的 流 模拟 ， 除 了 cons-stream 所 提供 的 “隐藏 的 ”aelLay 
之 外 ， 可 能 还 需要 直接 使 用 delay。 举 个 例子 ， 图 3-34 显 示 了 一 个 解 微分 方程 dy/dt =f) 的 
信和 号 处 理 系 统 ， 其 中 的 了 是 一 个 给 定 函 数 。 图 中 显示 了 一 个 映射 部 件 将 函数 了 应 用 于 其 输入 信 
号 的 情况 ， 它 也 连接 在 一 个 反馈 循环 里 ， 循 环 中 包含 一 个 积分 器 ， 连 接 方式 很 像 在 模拟 计算 
机 中 实际 用 于 求解 这 种 方程 的 电路 形式 。 


图 3-34 一 个 求解 方程 dy/di =f(y) 的 “模拟 计算 机 电路 ” 
假定 给 Ty 的 一 个 输入 值 yp， 我 们 可 能 企图 采用 下 面 过 程 模拟 这 个 系统 : 


(define (solve f yO dt) 
(define y (integral dy y0 dt)) 
` (define dy (stream-map f y)) 
y) 
可 是 这 一 过 程 无 法 工作 ， 因 为 在 solve 的 第 一 行 里 对 integral 的 调用 要 求 qy 已 经 定义 ， 但 
这 是 到 solve 的 第 二 行 才 做 的 事情 。 | 
换 句 话说 ， 这 一 定义 的 意图 确实 是 有 意义 的 ， 因 为 从 原则 上 说 ， 我 们 有 可 能 在 不 知道 qy 
的 情况 下 开始 生成 y。 实 际 上 ，integral 和 其 他 的 许多 流 都 有 类 似 cons~stream 的 这 种 性 
质 ， 我 们 可 以 在 只 有 参数 的 一 部 分 信息 的 情况 下 ， 开 始 生成 出 输出 流 的 有 关 部 分 。 对 于 
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integral ， 输 出 流 的 第 一 个 元 素 由 initial-value 描 述 ， 这 样 我 们 就 可 以 在 不 求 值 积分 
对 象 dy 的 情况 下 生成 出 输出 流 里 的 第 一 个 元 素 。 一 旦 我 们 知道 了 Y 的 第 一 个 元 素 ， 位 于 
solve 第 二 行 的 stream-map 就 可 以 开始 工作 ， 生 成 出 dy 的 第 一 个 元 素 ， 这 样 就 可 以 生成 出 
Y 的 下 一 个 元 素 ， 并 可 以 这 样 继续 下 去 了 。 
为 了 利用 这 种 想法 ， 我 们 就 需要 重新 定义 Integzal， 将 被 积 的 流 看 作 一 个 延 时 参数 。 
integral 将 在 需要 生成 输出 流 第 一 个 元 素 之 后 的 元 素 时 force 积 分 对 象 的 求 值 ; 
(define (integral delayed-integrand initial-value dt) 
(define int 
(cons-stream initial-value 
(let ((integrand (force delayed-integrand) )) 
(add-streams (scale-stream integrand dt) 
int)))) 
int) 
现在 我 们 只 需 在 y 的 定义 里 延 时 求 值 qy ， 就 可 以 实现 solve 过 程 了 ”: 
(define (solve f y0 dt) | 
(define y (integral (delay dy) y0 dt)) 
(define dy (stream-map f y)) 
y) 
一 般 而 言 ，integral 的 每 个 调用 者 现在 都 必须 delay 其 被 积 参数 。 下 面 是 展示 solve 过 程 
工作 情况 的 例子 ， 希 望 在 y= 1 处 ， 初 始 条 件 为 yY(0) = 1 的 情况 下 ， 计 算 微 分 方程 dy/dt =y 的 解 ， 


这 将 计算 出 近似 值 e ~ 2.718, 
(stream-ref (solve (lambda (y) y) 1 9.001) 1000) 
2.716924 


练习 3.77 上 面 所 用 的 jntegral 过 程 类 似 于 在 3.5.2 节 里 整数 无 穷 流 的 “ 隐 式 ”定义 。 
换 一 种 方式 ， 我 们 也 可 以 给 出 的 另 一 个 定义 ， 它 更 像 jntegers-starting-from (Hh 
3.5.2 节 )， 


(define (integral integrand initial-value dt) 
(cons-stream initial-value 
(if (stream-null? integrand) 

the-empty-stream 

(integral (stream-cdr integrand) 
(+ (* dt (stream-car integrand) ) 

initial-value) 

qt) ) 1) ) 


在 用 于 带 循 环 的 系统 时 ， 这 个 过 程 有 着 与 开始 integral 版 本 一 样 的 问题 。 请 修改 这 个 过 程 ， 
使 它 将 integrand 看 作 延 时 参数 ， 以 便 能 用 于 上 述 的 solve 过 程 。 
练习 3.78 ”现在 考虑 设计 一 个 信号 处 理 系统 ， 研 究 齐 次 二 阶 线性 微分 方程 ; 
dy dy | 
JP 





99 这 一 过 程 并 不 保证 能 在 所 有 Scheme 实现 中 工作 ， 但 在 每 一 个 实现 中 ， 都 有 它 的 一 个 简单 变形 可 以 工作 。 问 是 
出 在 Scheme 实现 中 对 内 部 定义 的 处 理 方式 的 细微 差异 上 (参见 4.1.6 节 )。 
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输出 流 模拟 y， 它 由 一 个 包含 循环 的 网 络 生成 。 这 是 因为 d?y/df 的 值 依 赖 于 y 和 dy/dt 的 值 ， 而 它 
们 又 都 由 被 积 式 d?y/df? 所 确定 。 图 3-35 显 示 了 我 们 希望 去 编码 的 图 形 。 请 写 出 一 个 过 程 
solve-2nd ， 它 以 常数 4、b 和 dt，y 的 初始 值 yo 和 dyo ， 以 及 dy/dt 为 参数 ， 生 成 绕 的 一 系列 值 





图 3-35 求解 二 次 线性 微分 方程 的 信号 流 图 ， 
练习 3.79 ”请 推广 练习 3.78 里 写 出 的 过 程 solve-2nd ， 使 之 能 用 于 求解 一 般 的 二 次 微分 


方程 d? y/de =fidy/dt, y). 
练习 3.80 ”串联 RLC 电路 由 一 个 电阻 、 一 个 电容 器 和 一 个 电感 串联 组 成 ， 如 图 3-36 所 示 。 


如 果 R、 上 和 C 分 别 是 电路 里 的 电阻 值 、 电 容量 和 电感 量 ， 那 么 由 三 个 部 件 间 的 电压 (v) 和 电流 
(D 关系 由 下 面 方程 描述 : : 





图 3-36 一 个 申 行 RLC 电 路 


电路 连接 导致 下 面 的 关系 : 
ig =i, = —ic 


Vo =VL + VR 
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请 组 合 这 些 方程 ， 证 明 电路 的 状态 《vc 和 六) 可 以 由 以 下 微分 方程 描述 : 





dv, i 
dt C 
di 1) R; 
d LE L* 





scale: —R/L 


图 3-37 求解 帅 行 RLC 电 路 的 信号 流 图 


请 写 出 一 个 过 程 RLC ， 它 以 电路 的 R、L、C 和 时 间 增 量 dt 为 参数 ， 按 类 似 于 练习 3.73 中 过 
程 RC 的 方式 ，RLC 应 该 生成 一 个 过 程 ， 该 过 程 以 状态 变量 的 初始 值 wyco 和 io 为 参数 ， 生 成 出 状 
态 vc 和 的 流 的 一 个 序 对 (用 cons ) 。 利 用 RLC 生 成 出 一 对 流 ， 模 拟 一 个 RLC 电路 的 行为 ， 其 
HR =1 欧 ，C =0.2 法 ,了 =1 享 ，d: =0.1 秒 ， 初 始 值 i。 =0 安 培 ，vco =10 伏 特 。 


规范 求 值 序 

本 节 中 的 实例 说 明 ， 显 式 使 用 delay 和 force 能 够 提供 很 大 的 编程 灵活 性 ， 但 同样 实例 
也 显示 出 这 种 做 法 可 能 如 何 导致 程序 变 得 更 加 复杂 。 举 例 来 说 ,新 的 ijntegral 过 程 给 了 我 
们 模拟 带 有 循环 的 系统 的 能 力 ， 但 现在 我 们 就 必须 记 住 ， 调 用 integral 时 必须 用 一 个 延 时 
参数 ， 每 个 使 用 integral 的 过 程 都 必须 注意 这 一 问题 。 从 效果 上 看 ， 我 们 已 经 构造 出 了 两 
类 过 程 :常规 的 过 程 和 要 求 延 时 参数 的 过 程 。 一 般 说 ， 如 果 创 建 了 不 同 种 类 的 过 程 MA 
使 我 们 同时 去 创建 不 同 种 类 的 高 阶 过 程 ”。 


200 这 是 常规 强 类 型 语言 (如 Pascal) 在 处 理 高 阶 过 程 时 所 遇 到 的 困难 情况 在 Lisp 里 的 一 种 小 小 反应 。 在 那些 语 
言 里 ， 程 序 员 必须 刻画 每 个 过 程 的 参数 和 结果 的 数据 类 型 ， 数 、 逻 辑 值 、 序 列 等 等 。 因 此 我 们 就 无 法 表述 菜 
些 抽象 ， 例 如 用 一 个 如 stream-map 那 样 的 高 阶 过 程 “将 给 定 过 程 Proc 映射 到 一 个 序列 里 的 每 个 元 素 。 相 
反 ， 我 们 将 需要 对 每 种 参数 和 结果 数据 类 型 的 不 同 组 合 定 义 不 同 的 映射 过 程 ， 各 自 应 用 于 特定 的 Proc 。 在 
出 现 了 高 阶 函数 的 情况 下 ， 维 持 一 种 实际 的 “数据 类 型 ”概念 就 变 成 了 一 个 很 困难 的 问题 。 语 言 ML 阐明 了 
处 理 这 一 问题 的 一 种 方法 (Gordon, Milner, and Wadsworth 1979)， 共 中 的 “多 态 数据 类 型 ”包含 着 数据 类 型 
间 高 阶 变 换 的 模式 。 这 就 使 程序 员 不 必 显 式 声明 ML 里 的 大 部 分 过 程 的 数据 类 型 。ML 包 含 一 种 “类 型 推导 
机 制 ， 用 于 从 环境 中 归结 出 新 定义 的 过 程 的 数据 类 型 。 
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为 了 避免 需要 两 类 不 同 过 程 ， 一 种 方式 是 让 所 有 过 程 都 用 延 时 参数 。 我 们 可 以 采纳 一 种 
求 值 模型 ， 其 中 所 有 过 程 参 数 都 自动 延 时 ， 只 有 在 实际 需要 它们 的 时 候 (例如 ， 当 基本 操作 
需要 它们 的 时 候 ) 才 强 迫 参数 求 值 。 这 样 做 ， 就 把 我 们 的 语言 转 到 了 采用 规范 序 的 方式 ,在 
1.1.5 节 介绍 求 值 的 代 换 模型 时 曾 第 一 次 介绍 过 这 一 概念 。 转 到 规范 序 求 值 ， 能 得 到 一 种 简化 
延 时 求 值 使 用 方式 的 统一 的 优雅 途径 ， 如 果 我 们 关心 的 只 是 流 处 理 ， 这 将 是 一 种 应 该 采用 的 
非常 自然 的 策略 。 在 研究 了 求 值 器 之 后 ， 我 们 将 在 4.2 节 里 看 看 怎样 将 所 用 的 语言 变换 到 那 种 
样子 。 不 幸 的 是 ， 把 延 时 包含 到 过 程 调 用 中 ， 将 会 对 我 们 设计 依赖 于 事件 顺序 的 程序 的 能 
造成 极 大 损害 ， 例 如 使 用 赋值 、 变 动 数据 、 执 行 输入 输出 的 程序 等 等 。 甚 至 在 cons-stIeam 
里 的 那个 delay 也 会 产生 极 大 的 迷惑 作用 ,如 练习 3.51 和 练习 3.52 所 示 。 目前 所 有 的 人 都 知道 ， 
变动 性 和 延 时 求 值 在 程序 设计 语言 里 结合 得 非常 不 好 ， 设 计 出 某 些 方式 ,适当 地 处 理 这 两 种 
东西 ， 仍 然 是 一 个 很 活跃 的 研究 领域 。 


3.5.5 函数 式 程序 的 模块 化 和 对 象 的 模块 化 


正如 我 们 在 3.1.2 节 里 所 看 到 的 ， 引 进 赋值 的 主要 收益 就 是 使 我 们 可 以 增强 系统 的 模块 化 ， 
把 一 个 大 系统 的 状态 中 的 某 些 部 分 封装 ,或 者 说 “隐藏 ”到 局 部 变量 里 。 流 模型 可 以 提供 等 
价 的 模块 化 ， 同 时 又 不 必 使 用 赋值 。 为 了 展示 这 方面 的 情况 ， 我 们 可 以 重新 实现 前 而 在， 
节 考 察 过 的 r 的 蒙特 卡 罗 估 计 ， 这 次 从 流 的 观 氮 出 发 来 做 。 

这 里 的 一 个 关键 性 的 模块 化 问题 ， 就 是 我 们 希望 将 一 个 随机 数 生成 器 的 内 部 状态 隐蔽 起 
来 ， 隔 离 在 使 用 随机 数 的 程序 之 外 。 我 们 从 过 程 zand-update 开 始 ， 它 所 提供 的 一 系列 值 
就 是 我 们 所 需 的 随机 数 ， 用 它 作为 一 个 随机 数 生 成 器 : 


(define rand 
(let ((x random-init)) 
(lambda () 
(set! x (rand-update x)) 


x))) 
在 这 一 流 描述 中 ， 我 们 根本 看 不 到 什么 随机 数 生 成 器 。 在 这 里 只 有 一 个 随机 数 的 硫 ， 通 
过 对 rand-update 的 一 系列 顺序 调用 产生 : | 
(define random-numbers 


(cons~stream random-init 
(stream-map rand-update random-numbers) ) ) 


我 们 用 它 构造 出 在 random-numbers 流 中 顺序 的 数 对 上 的 Cesaro 试 验 的 输出 流 : 


(define cesaro-stream 
(map-successive-pairs (lambda (rl r2) (= (gcd rl r2) 1)) 
random-numbers)}) ) 


(define (map-successive-pairs f s) 
(cons-stream 
(£ (stream-car s) (stream-car (stream-cdr s))) 


(map-successive-pairs f (stream-cdr (stream-cdr s))))) 


Mi Hicesaro-stream{fAmonte-carloiw, Ad BAR — TARE EPA ET AY ie. ER 
的 结果 被 变换 到 一 个 估计 r 值 的 流 。 这 一 版 本 的 程序 里 根本 不 需要 用 参数 去 告诉 它 试 多 少 次 ， 
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如 果 去 查看 pi 流 里 更 后 面 的 值 ， 我 们 就 可 以 得 到 ze 的 更 好 估计 (也 就 是 执行 更 多 的 试验 )。 
(define (monte-carlo experiment-stream passed failed) 
(define (next passed failed) 
(cons-stream 
(/ passed (+ passed failed)) 
(monte-carlo 
(stream-cdr experiment-stream) passed failed))) 
(if (stream-car experiment-stream) 
(next (+ passed 1) failed) 
(next passed (+ failed 1)))) 


(define pi 
(stream-map (lambda (p) (sqrt (/ 6 p))) 
({monte-carlo cesaro-stream 0 0))) 


这 一 方法 也 相当 模块 化 ， 因 为 这 里 仍然 构造 出 了 一 个 一 般 性 的 monte-car1o 过 程 ， 它 可 
以 处 理 任何 试验 。 而 且 这 里 没有 赋值 ， 也 没有 局 部 状态 。 

练习 3.81 练习 3.6 讨 论 了 推广 随机 数 生 成 器 ， 使 人 可 以 重 置 随机 数 序列 ， 以 便 生成 出 
“随机 ” 数 的 可 重复 序列 。 请 做 出 这 种 生成 器 的 一 个 流 模 型 ， 它 对 一 个 表示 需求 的 输入 流 操 作 ， 
或 者 是 generate 一 个 新 随机 数 ， 或 者 是 将 序列 reset 为 某 个 特定 值 ， 进 而 生成 所 需 的 随机 
数 流 。 在 你 的 解 中 不 要 使 用 赋值 。 

练习 3.82 以 流 的 方式 重新 做 练习 3.5 里 的 蒙特 卡 罗 积 分 ，estimate-integral 的 流 版 
本 将 不 需要 参数 告知 执行 试验 的 次 数 ， 相 反 ， 它 将 生成 一 个 表示 越 来 越 多 试验 次 数 的 估 值 流 ， 

时 间 的 函数 式 程序 设计 观点 

现在 回 到 有 关 对 象 和 状态 的 问题 ， 这 是 本 章 开始 提出 的 ， 现 在 让 我 们 从 一 种 新 的 角度 去 
看 它们 。 引 进 赋 值 和 变动 对 象 ， 就 是 为 了 提供 一 种 机 制 ， 以 便 能 模块 化 地 构造 出 程序 ， 去 模 
朴 具 有 状态 的 系统 。 我 们 构造 了 包含 内 部 状态 变量 的 计算 对 象 ， 用 赋值 去 修改 这 些 变量 。 我 
们 利用 对 应 计算 对象 的 时 序 行为 去 模拟 现实 世界 中 的 各 种 对 象 的 时 序 行为 。 

现在 已 经 看 到 ， 流 为 模拟 具有 内 部 状态 的 对 象 提供 了 另 一 种 方式 。 可 以 用 一 个 流 去 模拟 
-一 个 变化 的 量 ， 例 如 某 个 对 象 的 内 部 状态 ， 用 流 表示 其 顺序 状态 的 时 间 史 。 从 本 质 上 说 ， 这 
里 的 流 将 时 间 显 式 地 表示 了 出 来 ， 因 此 就 松 开 了 被 模拟 的 世界 里 的 时 间 与 求 值 过 程 中 事件 发 
生 的 顺序 之 间 的 紧密 联系 。 确 实 ， 由 于 delLay 的 出 现 ， 在 模型 中 被 模拟 的 时 间 与 求 值 中 事件 
发 生 的 顺序 之 间 已 经 没有 什么 关系 了 。 

为 了 进一步 对 比 这 两 种 模拟 方式 ， 让 我 们 重新 考虑 一 个 “取款 处 理 器 ”的 实现 ， 它 管理 
着 一 个 银行 账户 的 余额 。 在 3.1.3 节 里 ， 我 们 实现 了 这 一 处 理 器 的 一 个 简化 版 本 : 


(define (make-simplified-withdraw balance) 
(lambda (amount) 
(set! balance (- balance amount) ) 


balance) ) 
调用 make-simplified-withdraw 将 生成 出 这 种 计算 对 象 ， 每 个 这 种 对 象 里 都 有 局 部 变量 
balance， 其 值 将 在 对 这 个 对 象 的 一 系列 调用 中 逐步 减少 。 这 些 对 象 以 amount 为 参数 ， 遂 
回 一 个 新 的 余额 值 。 我 们 可 以 设想 ， 银 行 账户 的 用 户 送 一 个 输入 序列 给 这 种 对 象 ， 由 它 得 到 
一 系列 返回 值 ， 显 示 在 某 个 显示 屏幕 上 。 
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换 一 种 方式 ， 我 们 也 可 以 将 一 个 提 款 处 理 器 模拟 为 一 个 过 程 ， 它 以 一 个 余额 值 和 一 个 提 
款 流 作为 参数 ERR A H AF a EE: 


(define (stream-withdraw balance amount-stream) 
(cons-stream 
balance 
(stream-withdraw (- balance (stream-car amount-stream) ) 
{stream-cdr amount-stream) ))) 


stream-withdraw 实 现 了 一 个 具有 良好 定义 的 数学 函数 ， 其 输出 完全 由 输入 确定 。 当 然 ， 
这 里 假定 了 输入 amount-stream 是 由 用 户 送 来 的 顺序 值 构 成 的 流 ， 作 为 结果 的 余额 流 将 被 
显示 出 来 。 这 样 ， 从 送 入 这 些 值 并 观看 结果 的 用 户 的 角度 看 ， 这 一 流 过 程 的 行为 与 由 make- 
simplified-withdraw 创 建 的 对 象 并 没有 什么 不 同 。 当 然 ， 在 这 种 流 方式 里 没有 赋值 ， 没 
有 局 部 状态 变量 ， 因 此 也 就 不 会 有 我 们 在 3.1.3 节 所 遇 到 的 种 种 理论 困难 。 但 是 这 个 系统 也 有 
状态 ! 

这 确实 是 极其 惊人 的 。 虽 然 stream~withdraw 实 现 了 一 个 具有 良好 定义 的 数学 函数 ， 
其 行为 根本 不 会 变化 ， 用 户 看 到 的 却 是 在 这 里 与 一 个 改变 着 状态 的 系统 交互 。 消 除 这 一 悖 论 
的 一 种 方式 是 认识 到 ， 正 是 由 于 用 户 方 的 时 态 的 存在 ， 为 这 个 系统 赋予 了 状态 特性 。 如 果 用 
户 从 自己 的 交互 问题 上 后 退 一 步 ， 以 余额 流 的 方式 思考 问题 ， 而 不 是 去 看 个 别 的 交易 ， 这 个 
系统 看 上 去 就 是 无 状态 的 了 2” 。 | | 

从 一 个 复杂 过 程 中 的 一 部 分 的 观点 出 发 ， 其 他 的 部 分 看 起 来 正在 随 着 时 间 变 化 ， 它 们 有 
着 隐蔽 的 随时 间 变 化 的 局 部 状态 。 如 果 我 们 希望 去 写 程序 ， 在 计算 机 里 用 某 种 结构 去 模拟 现 
实 世界 中 的 这 类 自然 分 解 (就 像 我 们 从 自己 的 观点 ， 将 它 看 作 世 界 的 一 个 部 分 那样 )， 那 么 就 
会 做 出 一 些 不 是 函数 式 的 计算 对 象 一 一 它们 必须 随 着 时 间 不 断 变化 。 我 们 用 局 部 状态 变量 去 
模拟 状态 ， 用 对 这 些 变量 的 赋值 模拟 状态 的 变化 。 在 这 样 做 的 时 候 ， 就 是 在 用 计算 执行 中 的 
时 间 去 模拟 我 们 所 在 的 世界 里 的 时 间 ， 也 就 是 把 “对 象 ” 弄 进 了 计算 机 。 

用 对 象 来 做 模拟 是 威力 强大 的 ， 也 很 直观 ， 这 一 情况 的 主要 根源 ， 就 在 于 它 非 党 符合 我 
们 对 自己 身 处 其 中 并 与 之 交流 的 世界 的 看 法 。 然 而 ， 正 如 在 读 完 这 一 章 的 整个 过 程 中 我 们 已 
经 反复 看 到 的 ， 这 种 模型 也 产生 了 对 于 事件 的 顺序 ,以 及 同步 多 个 进程 的 棘手 问题 。 迟 免 这 
些 问 题 的 可 能 性 推动 着 函数 式 程 序 设 计 语言 的 开发 ， 这 类 语言 里 根本 不 提供 赋值 或 者 变动 对 
象 。 在 这 样 的 语言 里 ， 所 有 过 程 实现 的 都 是 它们 的 参数 上 的 定义 良好 的 数学 函数 ， 其 行为 不 
会 变化 。 函 数 式 途 径 对 于 处 理 并 发 系统 特别 有 吸引 力 ”。 

但 是 ， 在 另 一 方面 ， 如 果 我 们 贴近 观察 ， 就 会 看 到 与 时 间 有 关 的 问题 也 潜入 了 函数 式 模 
型 之 中 。 一 个 特别 麻烦 的 领域 出 现在 我 们 希望 设计 交互 式 系统 的 时 候 ， 特 别 是 如 果 需 要 去 模 
拟 一 些 独 立 对 象 之 间 的 交互 。 举 个 例子 ， 我 们 再 次 考虑 允许 共用 账户 的 银行 系统 的 实现 。 普 
通 系统 里 将 使 用 赋值 和 状态 ， 在 模拟 Peter 和 Paul 共 享 一 个 账户 时 ， 我 们 让 Peter 和 Faul 将 他 们 
的 交易 请 求 送 到 同一 个 银行 账户 对 象 ， 就 像 在 3.1.3 节 里 所 看 到 的 那样 。 从 流 的 观点 看 ， 在 这 


201 物理 中 也 类 似 ， 当 我 们 观察 一 个 正在 移动 的 粒子 时 ， 我 们 说 该 粒子 的 位 置 ( 状 态 ) 正在 变化 。 然 而 ， 从 粒子 
的 世界 线 的 观点 看 ， 这 里 根本 就 不 涉及 任何 变化 。 

2 John Backus (Fortran 的 发 明 者 ) 在 1978 年 得 到 图 灵 奖 时 特别 赞赏 函数 式 程序 设计 。 在 他 的 授奖 讲演 中 
(Backus 1978) 强烈 地 推 岩 函数 式 途径 。Henderson 1980 和 Darlington, Henderson, and Turner 1982 给 出 了 有 


关 函 数 式 程序 设计 的 很 好 综述 。 
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里 根本 就 没有 什么 “对 象  ， 我 们 已 经 说 明了 可 以 用 一 个 计算 过 程 去 模拟 银行 账户 ， 该 过 程 在 
一 个 请 求 交 易 的 流 上 操作 ， 生 成 一 个 系统 响应 的 流 。 我 们 也 同样 能 模拟 Peter 和 各 Paul 有 着 共用 
账户 的 事实 ， 只 要 将 Peter 的 交易 请 求 流 与 Paul 的 交易 请 求 流 归 并 ， 并 把 归并 后 的 流 送 给 那个 
银行 账户 过 程 ， 如 图 3-38 所 示 。 


Peter 的 请 求 


Paul 的 请 求 归并 银行 账户 ”一 一 > 
一 


图 3-38 一 个 合用 账户 ， 通 过 合并 两 个 交易 请 求 流 的 方式 模拟 


这 种 处 理 方 式 的 麻烦 就 在 于 归并 的 概念 。 通 过 简单 交替 地 从 Peter 的 请 求 中 取 一 个 ， 而 后 
从 Paul 的 请 求 中 取 一 个 的 方式 根本 不 行 。 假 定 Paul 很 少 访问 这 个 账户 ， 我 们 将 很 难 强迫 Peter 
等 待 Paul 对 账户 的 访问 ， 而 后 才能 进行 自己 的 第 二 次 访问 。 无 论 这 种 归并 如 何 实 现 ， 它 都 必 
须 在 某 种 由 Peter 和 Paul 可 以 看 到 的 “真实 时 间 ” 的 约 东 之 下 交错 归并 这 两 个 交易 流 ， 这 也 束 
是 说 ， 如 果 Peter 和 Paul 会 面 了 ， 他 们 总 可 以 一 致 地 认为 ， 某 些 交 易 已 经 在 这 次 会 面 之 前 做 了 ， 
其 他 交易 将 在 这 次 会 面 之 后 做 ”。 这 正好 是 在 3.4.1 节 里 我 们 不 得 不 去 处 理 的 同一 个 约束 条 件 ， 
在 那里 我 们 发 现 需要 引进 显 式 同 步 ， 以 确保 在 并 发 处 理 具 有 状态 的 对 象 的 过 程 中 ， 各 个 事件 
是 按照 “正确 ”顺序 发 生 的 。 这 样 ， 虽 然 这 里 试图 支持 函数 式 的 风格 ,但 在 需要 归并 来 日 不 
同 主体 的 输入 时 ， 又 要 重新 引入 函数 式 风格 致力 于 消除 的 同一 个 问题 。 

本 章 开始 时 提出 了 一 个 目标 ， 那 就 是 构造 出 一 些 计 算 模 型 ， 使 其 结构 能 够 符合 我 们 对 于 
试图 去 模拟 的 真实 世界 的 看 法 。 我 们 可 以 将 这 一 世界 模拟 为 一 集 相 互 分 离 的 、 受 时 间 约束 的 、 
具有 状态 的 相互 交流 的 对 象 ， 或 者 可 以 将 它 模拟 为 单一 的 、 无 时 间 也 无 状态 的 统一 体 。 每 种 
观点 都 有 其 强 有 力 的 优势 ， 但 就 其 自身 而 言 ， 又 没有 一 种 方式 能 够 完全 令 人 满意 。 我 们 还 在 
等 待 着 一 个 大 统一 的 出 现 ”。 


03 请 注意 ， 一 般 地 说 ， 对 于 任意 两 个 流 ， 存 在 着 多 于 一 种 可 接受 的 交错 顺序 。 这样 ， 从 技术 上 看 ，“ 归 并 ”就 
是 一 个 关系 而 不 是 一 个 函数 一 得 到 的 回答 并 不 是 输入 的 确定 性 函数 。 我 们 已 经 提 到 过 (脚注 167)， 非 确定 
性 在 处 理 并 发 方面 是 本 质 性 的 。 这 一 归并 关系 展示 了 同样 本 质 性 的 非 确定 性 。 在 4.3 节 里 我 们 将 看 到 来 BA 
种 观点 的 非 确定 性 。 

204 对 象 模型 对 世界 的 近似 在 于 将 其 分 割 为 独立 的 片断 ， 函 数 式 模型 则 不 是 沿 着 对 象 间 的 边界 去 做 模块 化 。 当 
“对 象 ” 之 间 不 共享 的 状态 远 远大 于 它们 所 共享 的 状态 时 ， 对 象 模型 就 特别 好 用 。 这 种 对 象 观 点 失效 的 一 个 
地 方 就 是 量子 力学 ， 在 那里 ,将 物体 看 作 独 立 的 粒子 就 会 导致 悖 论 和 混乱 。 将 对 象 观点 与 函数 式 观 点 合并 可 
能 与 程序 设计 的 关系 不 大 ， 而 是 与 基本 认识 论 有 关 的 论题 。 





第 4 章 元 语言 抽象 





bh eM TEE Z — 故事 里 就 不 灵 了 。 真正 的 麻 力 在 于 知道 哪个 兄 
语 有 用 ， 在 什么 时 候 ， 用 于 做 什么 ， 其 诀 窃 就 在 于 学 会 有 关 的 诀 穷 。 

而 这 些 咒 语 也 是 用 我 们 的 字母 表 里 的 字母 拼 出 来 的 ， 这 个 字母 表 中 不 过 是 几 十 
STARE WK ROSH we, RHR RK) 而 那些 珍宝 也 是 如 此 ， 如 果 我 们 
能 将 它们 售 到 手中 的 话 | 这 就 像 是 说 ， 就 像 通 向 珍宝 的 钥匙 就 是 珍宝 1 | 


——John Barth, CGhaens ( 奇想 ) 


在 前 面 有 关 程 序 设计 的 研究 中 ， 我 们 已 经 看 到 专业 程序 员 在 设法 控制 他 们 的 设计 的 复杂 
性 时 ， 采 用 的 正 是 与 所 有 复杂 系统 的 设计 者 同样 的 通用 技术 。 他 们 将 基本 元 素 组 合 起 来 ， 形 
成 复合 元 素 ， 从 复合 元 素 出 发 通过 抽象 形成 更 高 一 层 的 构件 ， 并 通过 采取 某 种 适当 的 关于 系 
统 结构 的 大 尺度 观点 ， 保 持 系统 的 模块 性 。 为 了 阐释 这 些 技术 ， 我 们 一 直 用 Lisp 作 为 语言 ， 
描述 计算 过 程 ， 构 造 用 于 模拟 现实 世界 中 复杂 现象 的 复合 性 计算 对 象 和 计算 过 程 。 然 而 ， 随 
着 所 面 对 的 问题 变 得 更 加 复杂 ， 我 们 会 发 现 Lisp ， 以 及 任何 一 种 确定 的 程序 设计 语言 ， 都 不 
足以 满足 我 们 的 需要 。 我 们 必须 经 常 转向 新 的 语言 ， 以 便 能 够 更 有 效 地 表述 自己 的 想法 。 建 
立新 语言 是 在 工程 设计 中 控制 复杂 性 的 一 种 威力 强大 的 工作 策略 ， 我 们 常常 能 通过 采用 一 种 
新 语言 而 提升 处 理 复杂 问题 的 能 力 ， 因 为 新 语言 可 能 使 我 们 以 一 种 完全 不 同 的 方式 ， 利 用 不 
同 的 原 语 ， 不 同 的 组 合 方式 和 抽象 方式 去 描述 (因此 也 是 思考 ) 所 面 对 的 问题 ， 而 这 些 都 可 
以 是 为 了 手头 需要 处 理 的 问题 而 专门 打造 的 25。 | 

程序 设计 中 总 会 涉及 到 多 种 语言 。 这 里 有 物理 的 语言 ， 例 如 针对 特定 计算 机 的 机 器 语言 。 
这 些 语言 关注 的 是 数据 和 控制 在 存储 器 和 基本 机 器 指令 中 一 系列 二 进 制 位 上 的 表示 。 机 器 语 
言 程序 员 关 心 的 是 如 何 利用 给 定 硬件 构造 出 各 种 系统 和 有 用 功能 ， 以 便 在 资源 受 限 的 条 件 下 
有 效 地 实现 计算 过 程 。 高 级 语言 构筑 在 机 器 语言 之 上 ， 它 们 隐藏 起 数据 被 表示 为 一 些 二 进 制 
位 ， 程 序 被 表示 5% 一 个 基本 指令 序列 的 许多 细节 。 这 些 语 言 提供 了 一 些 组 合 和 抽象 机 制 ， 例 
如 过 程 定 义 ， 因 此 更 适合 大 规模 的 系统 组 织 。 


205 同样 的 想法 在 工程 中 随处 可 见 。 举 例 来 说 ， 电 子 工 程 师 使 用 许多 不 同 的 语言 去 描述 电路 ， 其 中 的 两 种 语言 是 
电子 网 络 的 语言 和 电子 系统 的 语言 。 网 络 语言 强调 的 是 基于 各 种 电子 元 件 为 设备 建 模 ， 在 这 个 语言 里 的 基本 
对 象 是 各 种 基本 电子 元 器 件 ， 如 电阻 器 、 电 容 器、 电感 器 和 晶体 管 ， 它 们 的 特征 采用 电压 和 电流 等 物理 变量 
刻画 。 在 采用 网 络 语言 描述 电路 时 ， 工 程 师 关心 的 是 一 个 设计 的 物理 特性 。 与 此 相对 应 ， 系 统 语言 中 的 基本 
对 象 是 信号 处 理 模块 ， 如 过 滤器 和 放大 器 。 此 时 需要 关心 的 只 是 这 些 模块 的 功能 行为 以 及 对 信号 的 操作 ， 并 
不 关心 它们 在 物理 的 电流 电压 上 的 实现 。 这 种 系统 语言 是 在 网 络 语言 的 基础 上 构造 起 来 的 ， 因 为 信号 处 理 系 
统 的 元 素 是 用 电子 网 络 构造 起 来 的 。 但 是 ， 设 计 者 在 这 里 关心 的 是 为 解决 给 定 的 应 用 问题 而 做 的 电子 设备 的 
大 规模 组 织 ， 并 假定 了 其 中 各 部 分 的 物理 可 行 性 。2.2.4 节 中 的 图 形 语言 所 展示 的 分 层 设 计 技 术 正 好 是 分 层 语 
言 的 另 一 个 例子 。 





e THR 


元 语言 抽象 就 是 建立 新 的 语言 。 它 在 工程 设计 的 所 有 分 支 中 都 扮演 着 重要 的 角色 ， 在 计 
算 机 程序 设计 领域 更 是 特别 重要 ， 因 为 这 个 领域 中 ， 我 们 不 仅 可 以 设计 新 的 语言 ， 还 可 以 通 
过 构造 求 值 器 的 方式 实现 这 些 语 言 。 对 于 某 个 程序 设计 语言 的 求 值 器 (或 者 解释 器 ) 也 是 一 
个 过 程 ， 在 应 用 于 这 个 语言 的 一 个 表达 式 时 ， 它 能 够 执行 求 值 这 个 表达 式 所 要 求 的 动作 。 

把 这 一 点 看 做 是 程序 设计 中 最 基本 的 思想 一 点 也 不 过 分 ; 

求 值 器 决定 了 一 个 程序 设计 语言 中 各 种 表达 式 的 音义， 而 它 本 身 也 不 过 就 是 另 一 个 

程序 。 

认识 到 这 一 点 ， 我 们 就 需要 修正 有 关 自 己 作 为 程序 员 的 看 法 。 现 在 应 该 开始 将 自己 看 做 
语言 的 设计 师 ， 而 不 仅仅 是 别人 设计 好 的 语言 的 使 用 者 。 

事实 上 ， 我 们 几乎 可 以 把 任何 程序 看 做 是 某 个 语言 的 求 值 器 。 举 例 说 ，2.5.3 节 的 多 项 式 
运算 系统 里 包含 着 多 项 式 的 算术 规则 ， 以 及 它们 基于 表 结 构 数 据 操作 的 实现 。 如 果 我 们 扩充 
这 一 系统 ， 加 进 读 入 和 打印 多 项 式 的 过 程 ， 我 们 就 有 了 一 个 用 于 处 理 符 号 数学 问题 的 专用 语 
言 的 核心 部 分 。3.3.4 节 的 数字 逻辑 模拟 器 和 3.3.5 节 的 约束 传播 系统 ， 从 它们 自己 的 角度 看 ， 
也 都 是 完全 合格 的 语言 。 它 们 都 有 自己 的 基本 操作 ， 组 合 手段 和 抽象 手段 。 从 这 样 一 种 观点 
看 问题 ， 处 理 大 规模 计算 机 系统 的 技术 ， 与 构造 新 的 程序 设计 语言 的 技术 有 紧密 的 联系 ， 而 
计算 机 科学 本 身 不 过 〈 也 不 更 少 ) 就 是 有 关 如 何 构造 适当 的 描述 语言 的 学 科 。 

现在 我 们 将 要 启程 ， 去 讨论 有 关 如 何在 一 些 语言 的 基础 上 构造 新 语言 的 技术 。 在 这 一 章 
里 ， 我 们 将 用 Lisp 语 言 作 为 基础 ， 将 各 种 求 值 器 实现 为 一 些 Lisp 过 程 。 因 为 Lisp 的 描述 能 力 和 
操作 符号 表达 式 的 能 力 ， 它 特别 适合 用 于 这 一 工作 。 作 为 理解 语言 实现 问题 的 第 一 步 ， 我 们 
将 首先 构造 起 一 个 针对 Lisp 本 身 的 求 值 器 。 由 我 们 的 求 值 器 实现 的 语言 将 是 Lisp 的 Scheme 方 
言 的 一 个 子 集 ， 也 就 是 本 书 中 所 使 用 的 语言 。 虽 然 本 章 描述 的 求 值 器 针对 的 是 Lisp 的 一 个 特 
定 方言 ， 但 是 它 已 经 包含 了 任何 为 在 顺序 计算 机 上 写 程序 而 设计 的 表达 式 语言 的 求 值 器 的 基 
本 结构 (事实 上 ， 大 部 分 语言 的 处 理 器 ， 在 其 深 处 都 包含 了 一 个 小 小 的 “Lisp” 求 值 器 ) 。 为 
便于 展示 和 讨论 ， 我 们 对 这 个 求 值 器 做 了 一 些 简 化 ， 某 些 特征 被 放 到 一 边 ， 其 中 有 一 些 对 于 
产品 质量 的 Lisp 系 统 可 能 是 非常 重要 的 。 但 无 论 如 何 ， 这 个 简单 求 值 器 已 经 足以 执行 本 书 中 
的 大 部 分 程序 了 2 。 

将 求 值 器 实现 为 一 个 清 清楚 楚 的 Lisp 程 序 ， 还 带 来 了 另 一 个 好 处 ， 这 使 我 们 可 以 通过 修 
改 这 个 求 值 器 程序 ， 实 现 各 种 不 同 的 求 值 规则 。 能 够 很 好 利用 这 一 优势 的 一 个 地 方 BBM 
可 以 取得 对 计算 模型 中 所 由 入 的 时 间 概 念 的 进一步 控制 ， 这 也 是 第 3 章 讨 论 的 核心 问题 。 在 那 
里 ， 我 们 利用 流 的 概念 去 松 开 计 算 机 里 的 时 间 表 示 与 现实 世界 的 时 间 之 间 的 联系 ， 以 降低 由 
状态 和 赋值 带 来 的 复杂 性 。 然 而 ， 我 们 的 流程 序 有 时 写 起 来 很 罗 嗪 ， 因 为 受到 了 Scheme 的 应 
用 顺序 求 值 的 限制 。 在 4.2 节 里 我 们 要 修改 基础 语言 ， 提 供 一 个 更 优雅 的 途径 ， 采 用 的 方式 就 
是 修改 求 值 器 ， 提 供 按照 正则 序 求 值 的 能 力 。 

4.3 节 将 要 实现 一 项 更 加 雄心 勃勃 的 语言 修改 ， 在 那里 ， 表 达 式 可 以 有 多 重 的 值 ， 而 不 仅 
仅 是 一 个 值 。 在 那里 的 非 确 定性 计算 的 语言 里 ， 我 们 可 以 很 自然 地 表达 这 样 的 计算 过 程 E 


206 我 们 的 求 值 器 所 没有 涉及 的 最 重要 特征 是 有 关 处理 错误 和 支持 查 错 的 机 制 。 有 关 求 值 器 的 更 深入 讨论 可 多 
Friedman, Wand, and Haynes 1992， 那 里 通过 一 系列 收 cheme 写 出 的 求 值 闫 ， 揭 示 了 程序 设计 语言 里 的 各 种 


有 关 现 象 。 





其 中 生成 出 一 个 表达 式 的 所 有 值 ， 而 后 从 中 搜索 出 满足 某 些 特定 约束 条 件 的 值 。 从 计算 和 时 
间 模 型 的 角度 看 ， 这 样 做 就 像 是 允许 时 间 有 分 岔 ， 形 成 一 集 “ 可 能 的 未 来 ， 而 后 搜索 出 适当 
的 时 间 线 路 。 借 助 于 这 个 非 确 定性 求 值 器 ， 维 护 多 重 值 的 轨迹 并 执行 搜索 的 工作 都 将 由 语言 
的 基础 机 制 目 动 处 理 。 

在 4.4 节 里 实现 了 一 个 未 辑 程 序 设计 语言 ， 在 那里 知识 用 关系 的 形式 描述 ， 而 不 是 描述 为 
带 有 输入 输出 的 计算 过 程 。 虽 然 这 样 得 到 的 语言 与 Lisp 大 相 径 庭 ， 也 与 所 有 常规 语言 根本 不 
同 ， 但 我 们 还 是 会 看 到 ， 这 个 逻辑 程序 设计 的 求 值 器 仍然 享用 着 Lisp 求 值 器 的 基本 结构 。 


4.1 元 循环 求 值 器 


现在 我 们 要 把 Lisp 求 值 器 实现 为 一 个 Lisp 程 序 ， 考 虑 用 一 个 本 身 也 在 Lisp 里 实现 的 求 值 器 
去 求 值 Lisp 程 序 。 这 看 起 来 似乎 是 一 种 循环 定义 。 不 过 ， 求 值 是 一 种 计算 过 程 ， 所 以 用 Lisp 来 
描述 这 个 过 程 也 是 合适 的 ， 因 为 毕竟 它 一 直 是 我 们 用 来 描述 计算 过 程 的 工具 ”。 用 与 被 求 值 
的 语言 同样 的 语言 写 出 的 求 值 器 被 称 为 元 循环 。 

从 根本 上 说 ， 元 循环 求 值 器 也 就 是 3.2 节 所 描述 求 值 A SR 的 一 个 Scheme 表达 形式 。 
回忆 一 下 ， 该 模型 包括 两 个 部 分 : 

1) 在 求 值 一 个 组 合式 (一 个 不 是 特殊 形式 的 复合 表达 式 ) 时 ， 首 先 求 值 其 中 的 子 表 达 式 ， 
而 后 将 运算 符 子 表达 式 的 值 作用 于 运算 对 象 子 表达 式 的 值 。 

2) 在 将 一 个 复合 过 程 应 用 于 一 集 实际 参数 时 ， 我 们 在 一 个 新 的 环境 里 求 值 这 个 过 程 的 体 。 
构造 这 一 环境 的 方式 就 是 用 一 个 框架 扩充 该 过 程 对 象 的 环境 部 分 ， 框 架 中 包含 的 是 这 个 过 程 
的 各 个 形式 参数 与 这 一 过 程 应 用 的 各 个 实际 参数 的 约束 。 

这 两 条 规则 描述 了 求 值 过 程 的 核心 部 分 ， 也 就 是 它 的 基本 循环 。 在 这 一 循环 中 ， 表 达 式 
在 环境 中 的 求 值 被 归 约 到 过 程 对 实际 参数 的 应 用 ， 而 这 种 应 用 又 被 归 约 到 新 的 表达 式 在 新 的 
环境 中 的 求 值 ， 如 此 下 去 ， 直 至 我 们 下 降 到 符号 〈 其 值 可 以 在 环境 中 找到 ) 或 者 基本 过 程 
(它们 可 以 直接 应 用 ) ， 见 图 4-1”。 这 一 求 值 循环 实际 体现 为 求 值 器 里 的 两 个 关键 过 程 eval 
和 apply 的 相互 作用 ,4.1.1 节 将 描述 它们 (参看 图 4-1)。 

求 值 器 的 实现 依赖 于 一 些 定义 了 被 求 值 表达 式 的 语法 形式 的 过 程 。 我 们 仍 将 采用 数据 抽 
象 技术 ， 设 法 使 求 值 器 独立 于 语言 的 具体 表示 。 例 如 ， 我 们 并 不 事先 约定 一 些 选择 ， 例 如 确 


207 即便 如 此 ， 这 里 的 求 值 器 还 是 没有 表现 出 来 求 值 过 程 的 某 些 重要 方面 。 其 中 最 重要 的 就 是 一 个 过 程 调用 其 他 
过 程 以 及 将 值 返回 调用 者 的 机 制 的 细节 。 我 们 将 在 第 5 章 里 讨论 这 些 问题 ， 那 里 通过 将 求 值 器 实现 为 一 个 简 
单 的 寄存 器 机 器 的 方式 ， 更 贴近 地 观察 这 一 求 值 过 程 。 

28 如 果 我 们 已 经 得 到 了 应 用 基本 过 程 的 能 力 ， 那 么 在 实现 这 种 求 值 器 时 还 需要 做 些 什 么 呢 ? 求 值 器 的 工作 并 不 
是 去 描述 语言 的 基本 过 程 ， 而 是 提供 一 套 连 接 方式 ， 提 供 一 些 组 合 手段 和 抽象 手段 ， 借 助 于 它们 将 基本 过 程 
联系 起 来 ， 形 成 一 个 语言 。 特 别 是 : 

* RAR ERNER BRED RAK. 举例 来 说 ， 虽然 简单 地 应 用 基本 过 程 足以 求 值 表 达 式 (+ 1 6)， 
但 却 无 法 处 理 (+ 1 (* 2 3))。 如 果 仅 仅 考虑 基本 过 程 + ， 它 要 求 的 实际 参数 必须 是 数 。 如 果 将 表 
达 式 (* 2 3) 作为 实际 参数 送 给 它 ， 就 会 把 它 吐 死 。 求 值 器 所 扮演 的 一 个 重要 角色 就 是 安排 好 一 套 
办 法 ， 在 需要 将 像 (* 2 3) 这 样 的 复合 参数 传递 给 + 作为 实 参 之 前 ， 首 先 把 它 归 约 到 6。 

。 求 值 器 使 我 们 可 以 使 用 变量 。 举 例 说 ， 做 加 法 的 基本 过 程 不 能 处 理 像 (+ x 1) 这 样 的 表达 式 。 我 们 
需要 求 值 器 维护 一 批 变量 的 轨迹 ， 在 调用 基本 过 程 之 前 取得 有 关 变 量 的 值 。 

。 求 值 器 使 我 们 可 以 定义 复合 过 程 。 这 涉及 到 维护 过 程 定义 的 轨迹 ， 知 道 如 何在 求 值 表 达 式 的 过 程 中 去 
使 用 这 种 定义 ， 为 过 程 接受 实际 参数 提供 一 种 机 制 等 。 

- 求 值 器 还 要 提供 一 批 特殊 形式 ， 它 们 的 求 值 方式 与 普通 过 程 调用 不 同 。 
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定 一 个 赋值 是 用 符号 set! 开头 的 表 的 形式 表示 ， 而 是 用 一 个 谓词 as signment? 去 检查 是 不 
是 赋值 ， 并 用 抽象 的 选取 函数 assignment-variable 和 assignment-value 去 访问 赋值 
中 相应 的 部 分 。 表 达 式 的 实现 将 在 4.1.2 节 里 描述 。 在 4.1.3 节 里 还 要 描述 一 些 操 作 ， 它 们 刻画 
了 过 程 和 环境 的 表示 形式 。 举 例 来 说 ，makxke-pIocedurIe 将 构造 起 一 个 复合 过 程 ， 
lookup-variable-value 提 取 变 量 的 值 ，apP1YyY-pPIimitive-procedure 将 一 个 基本 
过 程 应 用 于 一 组 给 定 的 实际 参数 。 


表达 式 ， 
过 程 ， 环境 
实际 参数 


图 4-1 揭示 计算 机 语言 本 质 的 eval-apply 和 人 循环 
4.1.1 求 值 器 的 内 核 
求 值 过 程 可 以 描述 为 两 个 过 程 eval 和 apply 之 间 的 相互 作用 。 


eval 
eval 的 参数 是 一 个 表达 式 和 一 个 环境 。eval 对 表达 式 进 行 分 类 ， 依 此 引导 目 己 的 求 值 
工作 。eval 的 构造 就 像 是 一 个 针对 被 求 值 表达 式 的 语法 类 型 的 分 情况 分 析 。 为 了 保持 这 一 过 
程 的 通用 性 ， 我 们 将 采用 抽象 的 方式 描述 表达 式 类 型 的 判定 工作 ， 其 中 并 不 为 各 种 表达 式 确 
定 任何 特殊 表示 方式 。 针 对 每 类 表达 式 有 一 个 谓词 完成 相应 的 检测 ， 有 一 套 抽 象 方法 去 选择 
表达 式 里 的 各 个 部 分 。 这 种 抽象 语法 使 我 们 很 容易 想到 ， 可 以 怎样 改变 这 个 求 值 器 所 处 理 的 
语言 的 语法 形式 。 为 此 只 需 采 用 另 一 组 不 同 的 语法 过 程 。 
EEREN: 
。 对 于 自 求 值 表达 式 ， 例 如 各 种 数 ，eval 直接 返回 这 个 表达 式 本 身 。 
. eval 必须 在 环境 中 查找 变量 ， 找 出 它们 的 值 。 
特殊 形式 .: 
。 对 于 加 引号 的 表达 式 ，eval 返 回 被 引 的 表达 式 。 
。 对 于 变量 的 赋值 (或 者 定义 ) ， 就 需要 递归 地 调用 eval 去 计算 出 需要 关联 于 这 个 变量 的 
新 值 。 而 后 需要 修改 环境 ， 以 改变 (或 者 建立 ) 相应 变量 的 约束 。 
。 一 个 i£ 表 达 式 要 求 对 其 中 各 部 分 的 特殊 处 理 方式 ， 在 谓词 为 真 时 求 值 其 推论 部 分 ， 否 
则 就 求 值 其 替代 部 分 。 
。 一 个 lambda 必须 被 转换 成 一 个 可 以 应 用 的 过 程 ， 方 式 就 是 将 这 个 1ambda 表 达 元 所 摘 
述 的 参数 表 和 体 与 相应 的 求 值 环境 包装 起 来 。 | 
。 一 个 begin 表 达 式 要 求 求 值 其 中 的 一 系列 表达 式 ， 按 照 它们 出 现 的 顺序 。 
* 分 情况 分 析 (cond) 将 被 变换 为 一 组 嵌 套 的 让 表达 式 mak. 





组 合式 : 
。 对 于 一 个 过 程 应 用 ，eval 必 须 递归 地 求 值 组 合式 的 运算 符 部 分 和 运算 对 象 部 分 。 而 后 
将 这 样 得 到 的 过 程 和 参数 送 给 apply ， 由 它 去 处 理 实 际 的 过 程 应 用 。 
这 里 是 eval 的 定义 : 
(define (eval exp env) 
(cond ((self-evaluating? exp) exp) 
((variable? exp) (lookup-variable-value exp env) ) 
( (quoted? exp) (text-of-quotation exp) ) 
( (assignment? exp) (eval-assignment exp env) ) 
( (definition? exp) (eval-definition exp env) ) 
((if? exp) (eval-if exp env) ) 
( (lambda? exp) 
(make-procedure (lambda-parameters exp) 
(lambda-body exp) 
env) ) 
( (begin? exp) 
(eval-sequence (begin-actions exp) env)) 
( (cond? exp) (eval (cond->if exp) env)) 
( (application? exp) 
(apply (eval (operator exp) env) 
(list-of-values (operands exp) env) )) 
(else 
(error "Unknown expression type -- EVAL" exp)))) 


为 了 清晰 起 见 ， 这 里 将 eval 实 现 为 一 个 采用 cond 的 分 情况 分 析 。 这 样 做 的 缺点 是 我 们 
的 过 程 只 处 理 了 若干 种 不 同类 型 的 表达 式 ， 如 果 要 加 入 新 定义 的 表达 式 类 型 ， 那 么 就 必须 直 
接 去 编辑 eval 的 定义 。 在 大 部 分 的 Lisp 实 现 里 ， 针 对 表达 式 类 型 的 分 派 都 水 用 了 数据 导向 的 
方式 。 这 种 做 法 使 用 户 可 以 更 容易 增加 eval 能 分 辨 的 表达 式 类 型 ， 而 又 不 必修 改 eval 的 定 
义 本 身 (参见 练习 4.3 ) 。 


apply 
app1LY 有 两 个 参数 ， 一 个 是 过 程 ， 一 个 是 该 过 程 应 该 去 应 用 的 实际 参数 的 表 。apP1Y 将 
过 程 分 为 两 类 。 它 直接 调用 apply-primitive-procedure 去 应 用 基本 过 程 ， 应 用 复合 过 
程 的 方式 是 顺序 地 求 值 组 成 该 过 程 体 的 那些 表达 式 。 在 求 值 复合 过 程 的 体 时 需要 建立 相应 的 
环境 ， 这 个 环境 的 构造 方式 就 是 扩充 该 过 程 所 携带 的 基本 环境 ， 并 加 入 一 个 框架 ， 其 中 将 过 
程 的 各 个 形式 参数 约束 于 过 程 调用 的 实际 参数 。 下 面 是 apply 的 定义 : 
(define (apply procedure arguments) 
(cond ( (primitive-procedure? procedure) 
(apply-primitive-procedure procedure arguments)})) 
((compound-procedure? procedure) 
(eval-sequence 
(procedure-body procedure) 
(extend-environment 
(procedure-parameters procedure) 
arguments | 
(procedure-environment procedure) ) ) ) 


(else 
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(error 
"Unknown procedure type -- APPLY" procedure)))) 
过 程 参数 - 
人 数 表 ， 以 便 完 成 这 一 过 程 应 用 。 
list-of~values 以 组 合式 的 运算 对 象 为 参数 ， 求 值 各 个 运算 对 象 ， 返 回 这 些 值 的 表 *”; 


(define (list-of-values exps env) 
(if (no-operands? exps) 
() 
(cons (eval (first-operand exps) env) 
(List-of-values (rest-operands exps) env)))) 


条 件 
eval-if 在 给 定 环 境 中 求 值 if 表 达 式 的 谓词 部 分 ， 如 果 得 到 的 结果 为 真 ，eval-if 就 
去 求 值 这 个 if 的 推论 部 分 ， 否 则 它 就 求 值 其 替代 部 分 : 
(define (eval-if exp env) 
(if (true? (eval (if-predicate exp) env)) 
(eval (if-consequent exp) env) 
(eval (if-alternative exp) env))) 


从 eval-if 里 对 true? 的 使 用 中 ， 可 以 清楚 地 看 到 在 被 实现 语言 与 实现 所 用 的 语言 
的 联系 。if-predicate 在 被 实现 的 语言 里 求 值 ， 产 生出 这 一 语言 里 的 一 个 值 。 ene Oi 
词 true? ”将 该 值 翻译 为 可 以 由 实现 所 用 的 语言 里 的 if 检测 的 值 。 由 此 可 见 ， 在 这 个 元 循环 
求 值 器 中 所 采用 的 真 值 表 示 ， 完 全 可 以 与 作为 其 基础 的 Scheme 不 同 ”。 


序列 

eval- sequence }ifrapply ®, 用 于 求 值 过 程 体 里 的 表达 式 序 列 。 它 也 用 在 eval 里 ， 
用 于 求 值 begin 表 达 式 里 的 表达 式 序列 。 这 个 过 程 以 一 个 表达 式 序 列 和 一 个 环境 为 参数 ， 按 
照 序列 里 表达 式 出现 的 顺序 对 它们 求 值 。 它 返回 最 后 一 个 表达 式 的 值 。 


(define (eval-sequence exps env) 
(cond ((last-exp? exps) (eval ({first-exp exps) env) ) 
(else (eval (first-exp exps) env) 
(eval-sequence (rest-exps exps) env)))) 


赋值 和 定义 
下 面 过 程 处 理 变量 赋值 。 它 调用 eval 找 出 需要 赋 的 值 ， 将 变量 和 得 到 的 值 传 给 过 程 
set-variable-value! ,将 有 关 的 值 安置 到 指定 环境 里 : 


(define {eval-assignment exp env) 
(set-variable-value! (assignment-variable exp) 
(eval (assignment-value exp) env) 
env) 


'ok) 


209 我 们 也 可 以 使 用 map (并 假定 operands 返 回 的 是 表 ) 简化 eval 里 的 apP1ication? 部 分 ， 而 不 是 自己 另 
写 一 个 List-of-values 过 程 。 这 里 选择 不 用 map 是 为 了 强调 一 个 事实 ; 我 们 完全 可 以 不 用 任何 高 阶 过 程 
实现 这 个 求 值 器 (这样 就 可 以 用 不 支持 高 阶 过 程 的 语言 来 写 求 值 器 ) ， 即 使 被 实现 的 语言 里 包含 高 阶 过 程 。 

00 在 目前 情况 下 ， 被 实现 的 语言 与 实现 所 用 的 语言 一 样 。 在 这 里 仔细 考究 true? 的 意义 ， 得 到 的 是 对 情况 的 更 
深入 的 认识 ， 并 不 会 破坏 事情 的 本 质 。 
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变量 定义 也 用 类 似 方 式 处 理 …: 
(define (eval-definition exp env) 
(define-variable! (definition-variable exp) 
(eval (definition-value exp) env) 
‘Ok ) | 
这 里 的 选择 是 返回 一 个 符号 ok ， 作 为 赋值 和 定义 的 返回 值 “。 
练习 4.1 注意 ， 我 们 没 办 法 说 循环 求 值 器 是 从 左 到 右 还 是 从 右 到 左 求 值 各 个 运算 对 象 ， 
因为 这 一 求 值 顺 序 是 从 作为 其 基础 的 Lisp 那 里 继承 来 的 ， 如 果 在 ist~of~values 里 的 cons 
从 左 到 右 求 值 ， 那 么 1ist-of-values 也 将 从 左 到 右 求 值 ， 如 果 cons 的 参数 从 右 到 左 求 值 ， 
那么 list-of-values 也 将 从 右 到 左 求 值 。 
请 写 出 一 个 list~of-values 版 本 ,使 它 总 是 从 左 到 右 求 值 其 运算 对 和 象 ， 无 论 作为 其 基 
础 的 Lisp 采 用 什么 求 值 顺序 。 另 外 写 出 一 个 总 是 从 右 到 左 求 值 的 l1st-of -values 版 本 。 


4.1.2 表达 式 的 表示 


这 个 求 值 器 很 像 2.3.2 节 讨论 的 符号 微分 程序 。 这 两 个 程序 完成 的 都 是 一 些 对 符号 表达 式 
的 操作 。 在 两 个 程序 里 ， 对 于 一 个 复合 表达 式 的 操作 结果 ， 也 都 是 由 表达 式 的 片段 递归 地 确 
定 的 ， 结 果 的 组 合 也 是 按照 一 种 由 表达 式 的 类 型 确定 的 方式 。 在 这 两 个 程序 里 ， 我 们 都 采用 
了 数据 抽象 技术 ， 借 以 松 开 一 般 性 的 操作 规则 与 表达 式 特定 表示 的 细节 方式 之 间 的 联系 。 在 
微分 程序 里 ， 这 意味 着 同一 个 微分 过 程 可 以 处 理 前 级 形式 的 、 中 缀 形式 的 ， 或 者 其 他 形式 的 
代数 表达 式 。 对 于 求 值 器 ， 这 意味 着 ， 被 求 值 语 言 的 语法 形式 可 以 仅仅 由 一 些 对 表达 式 进 行 
分 类 和 提取 表达 式 片段 的 过 程 确定 。 

这 里 是 我 们 的 语言 的 语法 规范 ， 

"这 里 的 自 求 值 表达 式 只 有 数 和 字符 串 : 

. (define (self-evaluating? exp) 

(cond ((nmumber? exp) true) 
((string? exp) true) 
(else false))) 

。 变量 用 符号 表示 : 

(define (variable? exp) (symbol? exp)) 

。 引 号 表达 式 的 形式 是 (quote <text-of-quotation>) 全 : 


(define (quoted? exp) 
(tagged-list? exp ‘quote) ) 
(define (text-of-quotation exp) (cadr exp)) 


n define 的 实现 中 忽略 了 处 理 内 部 定义 时 的 一 个 微妙 问题 ， 虽 然 这 里 的 做 法 对 于 大 部 分 情况 都 能 工作 。 我 们 


将 在 4.1.6 节 看 到 如 何 解 决 有 关 问题 。 
“2 正如 在 前 面 介绍 define 和 set1 时 所 说 的 ， 在 Scheme 里 这 些 值 依赖 于 具体 的 实现 一 一 也 就 是 说 ， 实 现 者 可 以 
选择 返回 任意 的 值 。 | 
213 正如 2.3.1 节 所 说 , 求 值 器 看 到 的 引号 表达 式 是 以 guote 开 头 的 表 ,， 即使 这 种 表达 式 在 输入 时 用 的 是 一 个 引号 。 
举例 来 说 ， 求 值 器 看 到 的 表达 式 "a 实 际 上 是 (quote a)， 见 练习 2.55 。 





quoted? 借 助 于 过 程 tagged-1list? 定 义 ， 它 确定 一 个 表 的 开始 是 不 是 某 个 给 定 符号 : 
(define (tagged-list? exp tag) 
(if (pair? exp) 
(eq? (car exp) tag) 
false) ) 


* 赋值 的 形式 是 (set! <var> <value>) , 


(define (assignment? exp) 
(tagged-list? exp ‘set!)) 


(define (assignment-variable exp) (cadr exp) ) 


(define (assignment-value exp) (caddr exp)) 
* 定义 的 形式 是 : 
(define <var> <value>) 


或 者 


(define (<var> <parameter,> ... <parameter,> ) 

<body>) 
后 一 形式 (标准 的 过 程 定义 ) 只 是 下 面 形式 的 一 种 语法 包装 : 
(define <var> 


(lambda (<parameter,> ... <parameter,>) 
<body>) ) 


相应 的 语法 过 程 是 
(define {definition? exp) 


(tagged-list? exp ‘define)) 


(define (definition-variable exp) 
(if (symbol? (cadr exp)) 
(cadr exp) 
(caadr exp))) 


(define (definition-value exp) 
(if (symbol? {cadr exp)) 
(caddr exp) 
(make-lambda (cdadr exp) ; formal parameters 
(cddr exp)))) ; body 


。lambda 表 达 式 是 由 符号 lambda 开 始 的 表 ， 

(define (lambda? exp) (tagged-list? exp "Lambda ) ) 

(define (lambda-parameters exp) (cadr exp)) 

(define (lambda-body exp) (cddr exp)) 

我 们 还 为 lambda 表 达 式 提供 了 一 个 构造 函数 ， 它 用 在 上 面 的 definition-value 里 : 


(define (make-lambda parameters body) 
(cons ’lambda (cons parameters body))) 


。 条 件 式 由 if 开始 ， 有 一 个 谓词 部 分 、 一 个 推论 部 分 和 一 个 〈 可 缺 的 ) 替代 部 分 。 如 采 





这 一 表达 式 没 有 替代 部 分 ， 我 们 就 以 false 作 为 其 替代 *。 


(define (if? exp) (tagged-list? exp ’if)) 
(define (if-predicate exp) (cadr exp)) 
(define (if-consequent exp) (caddr exp)) 


(define (if-alternative exp) 
(if (not (null? (cdddr exp))) 
(cadddr exp) 
"false)})) 


我 们 也 为 if£ 表 达 式 提供 了 一 个 构造 函数 ， 它 在 cond->if 里 使 用 ， 用 于 将 cond 表 达 式 变 
HIER. | 
(define (make-if predicate consequent alternative) 
(list ’if predicate consequent alternative) ) 


。begin 包 装 起 一 个 表达 式 序 列 ， 在 这 里 提供 了 对 begin 表 达 式 的 一 组 语法 操作 ， 以 便 从 
begin 表 达 式 中 提取 出 实际 表达 式 序 列 ， 还 有 选择 函数 返回 序列 中 的 第 一 个 表达 式 和 其 
RKRN. 

(define (begin? exp) (tagged-list? exp *begin) ) 

(define (begin-actions exp) (cdr exp)) 

(define (last-exp? seq) (null? (cdr seq))) 

(define (first-exp seq) (car seq)) 

(define (rest-exps seq) (cdr seq)) 

我 们 还 包括 了 一 个 构造 函数 Sequence->exp (用 在 cond->if 里 )， 它 把 一 个 序列 变换 

为 一 个 表达 式 ， 如 果 需 要 的 话 就 加 上 begin 作 为 开头 : | 

(define (sequence->exp seq) 

(cond ((null? seq) seq) | 
((last-exp? seq) (first-exp seq) ) 
(else (make-begin seq)))) 


(define (make-begin seq) (cons ‘begin seq) ) 


过 程 应 用 就 是 不 属于 上 述 各 种 表达 式 类 型 的 任意 复合 表达 式 。 这 种 表达 式 的 car 是 运算 
符 ， 其 car 是 运算 对 象 的 表 : 


(define (application? exp) (pair? exp)) 

(define (operator exp) (car exp)) 

(define (operands exp) (cdr exp)) 

(define (no-operands? ops) (null? ops) ) 

(define (first-operand ops) (car ops)) 

(define (rest-operands ops) (cdr ops) ) 

26 在 谓词 为 假 时 而 且 没有 替代 部 分 时 ， 让 表达 式 的 值 在 Scheme 里 没有 规定 。 我 们 这 里 的 选择 是 让 它 取 值 假 。 
这 里 将 通过 在 全 局 环境 里 提供 约束 的 方式 支持 对 表达 式 里 变量 true 和 false 的 求 值 ， 见 4.1.4 节 。 


215 这 些 选 择 函 数 都 直接 对 表达 式 的 表 定 义 一 一 对 应 的 是 运算 对 象 的 表 一 一 而 没有 再 做 为 一 种 数据 抽象 。 引 进 它 
们 采用 了 类 似 基 本 表 操 作 的 名 字 ， 以 便 使 人 更 容易 理解 5.4 节 里 的 显 式 控制 求 值 器 。 
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派生 表达 式 

在 我 们 语言 里 ， 一 些 特 殊 形 式 可 以 基于 其 他 特殊 形式 的 表达 式 定 义 出 来 ， 而 不 必 直 接 去 
实现 。 一 个 这 样 的 例子 是 cond ， 它 可 以 实现 为 一 些 娩 套 的 if 表 达 式 。 举 例 来 说 ， 我 们 可 以 将 
对 于 下 述 表 达 式 的 求 值 问 题 : | 

(cond ((> x 0) x) 

((= x 0) (display ‘zero) 0) 
(else (- x))) 

归 约 为 对 下 面 涉及 if 和 begin 的 表达 式 的 求 值 问题 : 

(if (> x 0) 

(if (= x 0) 
(begin (display ‘zero) 
0) 
(~ X))) | 

采用 这 种 方式 实现 对 condG 的 求 值 能 简化 求 值 器 ， 因 为 这 样 就 减少 了 需要 特别 描述 求 值 过 程 的 
特殊 形式 的 数目 。 7 

我 们 在 这 里 包括 了 提取 cond 表 达 式 中 各 个 部 分 的 语法 过 程 ， 以 及 过 程 Ccond->if ， 它 能 
将 conda 表 达 式 变换 为 if 表达 式 。 一 个 分 情况 分 析 以 cond 开 始 ， 并 包含 一 个 谓词 - 动作 子 句 
的 表 。 如 果 一 个 子 句 的 符号 是 else ， 那 么 就 是 一 个 else 子 句 "。 

(define (cond? exp) (tagged-list? exp ‘cond)) 

(define (cond-clauses exp) (cdr exp) ) 


(define (cond-else-clause? clause) 
(eq? (cond-predicate clause) ‘else)) 


(define (cond-predicate clause) (car clause) ) 
(define (cond-actions clause) (cdr clause) ) 


(define (cond->if exp) 
(expand-clauses (cond-clauses exp) )) 


(define (expand-clauses clauses) 
(if (null? clauses) 
"false : clause else no 
(let ((first (car clauses) ) 
(rest (cdr clauses) )) 
(if (cond-else-clause? first) 
(if (null? rest) 
(sequence->exp (cond-actions first)) 
(error "ELSE clause isn’t last -- COND->IF" 
clauses) ) 
(make-if (cond-predicate first) 
(sequence->exp (cond-actions first)) 
{expand-clauses rest)))))) 


216 当 所 有 的 谓词 都 为 假 而 且 又 没有 else 子 句 时 ， 在 Scheme 里 没有 规定 cond 表 达 式 的 值 。 我 们 这 里 的 选择 是 让 
这 时 的 值 为 假 。 
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我 们 这 样 选 出 来 的 ， 采 用 语法 变换 的 方式 实现 的 表达 式 (如 cond RER) RARE AR 
式 。let 表 达 式 也 被 作为 派生 表达 式 ( 见 练习 4.6) ′ 。 
练习 4.2 Louis Reasoner 计 划 重 新 安排 eval 里 cond 子 句 的 位 置 ， 使 得 有 关 过 程 应 用 的 子 
句 出 现在 有 关 赋 值 的 子 句 之 前 。 他 的 论断 是 ， 这 样 做 将 会 提高 求 值 器 的 效率 : 因为 程序 里 通 
常 包 含 的 函数 应 用 比 赋值 和 定义 等 等 更 多 一 些 ， 而 经 他 的 修改 之 后 ，eval 为 确定 一 个 表达 式 
的 类 型 所 需 检 查 的 子 句 将 会 比 原来 的 eval 更 少 些 。 | 
a) Louis 的 计划 有 什么 错 ? (提示 : Louis 的 求 值 器 将 如 何 处 理 表达 式 (define x 3) ? ) 
b) Louis 因 为 其 计划 无 法 工作 而 感到 非常 诅 形 。 他 希望 ， 无 论 要 走 多 远 也 要 让 自己 的 求 值 
器 在 检查 大 部 分 表达 式 之 前 就 识别 出 过 程 应 用 。 请 设法 帮助 他 ， 修 改 被 求 值 语言 的 语法 ， 使 
得 每 个 过 程 应 用 都 以 call 开始 。 例 如 现在 我 们 不 是 直接 写 (factorial 3), 而 是 需要 写 
(call factorial 3) , 不 能 直接 写 (+1 2), 而 将 必须 写 (cal1+1 2), 
练习 4.3 ”请 重 写 eval ， 使 之 能 以 一 种 数据 导向 的 方式 完成 分 派 。 请 将 这 样 做 出 的 程序 与 
练习 2.73 的 数据 导向 的 求 导 程 序 做 一 个 比较 。( 你 可 以 用 一 个 复合 表达 式 的 car 作为 表达 式 的 
类 型 ， 采 用 像 这 一 节 中 所 实现 的 语法 形式 。) 
练习 4.4 回忆 第 1 章 解释 的 特殊 形式 and 和 or 的 定义 : | 
cand, 其 表达 式 从 左 到 右 求 值 。 如 果 某 个 表达 式 求 出 的 值 是 假 ， 那 么 就 返回 假 值 ， 剩 下 
的 表达 式 也 不 再 求 值 。 如 果 所 有 的 表达 式 求 出 的 值 都 是 真 ， 那 么 就 返回 最 后 一 个 表达 式 
的 值 。 如 果 没 有 可 求 值 的 表达 式 就 返回 真 。 
‘or; 其 表达 式 从 左 到 右 求 值 。 如 果 某 个 表达 式 求 出 的 值 是 真 ， 那 么 就 返回 真 值 ， 剩 下 
的 表达 式 也 不 再 求 值 。 如 果 所 有 的 表达 式 求 出 的 值 都 是 假 ， 或 者 根本 就 没有 可 求 值 的 表 
达 式 ， 那 么 返回 假 值 。 | 
请 将 and 和 of 作为 新 的 特殊 形式 安装 到 求 值 器 里 ， 定 义 适 当 的 语法 过 程 和 求 值 过 程 
eval-and 和 evalL-or 。 换 一 种 方式 ， 请 说 明 如 何 将 and 和 or 实现 为 派生 表达 式 。 
练习 4.5 Schemée 还 允许 另 一 种 形式 的 cond 子 名 ，(<iest>=> <recipient> )。 如 果 <test> 
求 出 的 值 是 真 ， 那 么 就 对 <recipient> 求 值 。 这 样 求 出 的 值 必须 是 一 个 单个 参数 的 过 程 ， 将 这 
一 过 程 应 用 于 <test> 的 值 ， 并 将 其 返回 值 作 为 这 个 conQ 表 达 式 的 值 。 例 如 : 
(cond ((assoc 'b '((a 1) (b 2))) => cadr) 
(else false) ) 
返回 值 2。 请 修改 对 cond 的 处 理 ， 使 之 能 支持 这 一 语法 扩充 。 
练习 4.6 ”let 表达 式 也 是 一 种 派生 表达 式 ， 因 为 : 


(let ((<vari> <exp>) ... (<var,> <exp,>) ) 
<body>) 
等 价 于 
((lambda (<vari> ... <var,>) 
<body>) 


217 实际 的 Lisp 系统 提供 了 一 种 机 制 ， 使 用 户 可 以 添加 新 的 派生 表达 式 并 将 它们 的 实现 描述 为 语法 变换 ， 而 又 不 
必修 改 求 值 器 。 这 种 用 户 定义 变换 称 为 宏 。 虽 然 很 容易 为 定义 宏 增 加 一 种 基本 机 制 ， 但 是 这 样 做 出 的 语言 却 
会 产生 一 种 微妙 的 名 字 溃 突 问题 。 关 于 如何 提 供 宏 定义 而 又 不 造成 这 些 麻烦 ， 有 许多 人 进行 过 研究 。 请 看 ， 
例如 Kohlbecker 1986, Clinger and Rees 1991 以 及 Hanson 1991 。 
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请 实现 语法 变换 过 程 let->combination， 它 能 将 对 let 表 达 式 的 求 值 归 约 到 对 于 上 面 类 型 
的 组 合式 的 求 值 。 请 给 eval 增 加 适当 的 子 句 以 处 理 let 表达 式 。 
练习 4.7 let* 与 let 类 似 ,， 但 其 中 对 let 变 量 的 约束 是 从 左 到 右 顺 序 进 行 的 ， 每 个 约束 
都 在 同一 个 环境 中 完成 ， 已 经 做 了 的 约束 都 是 可 见 的 。 例 如 : 
(let* ((X 3) 
(y (+ x 2)) 
(z (+ x y 5))) 
(* x 2)) 
返回 39 。 请 说 明 ， 为 什么 一 个 Let* 表 达 式 可 以 重 写 为 一 些 嵌 套 的 LIet 表 达 式 ， 并 请 写 出 一 个 
过 程 let*->nested-lets 完 成 相应 变换 。 如 果 我 们 已 经 有 了 let 的 实现 (练习 4.6)， 并 项 
望 扩充 求 值 器 去 处 理 let*， 请 给 eval 加 入 一 个 其 中 的 动作 如 下 的 子 句 


(eval (let*->nested-lets exp) env) 


就 够 了 吗 ? 或 者 说 我 们 必须 显 式 地 以 非 派生 方式 来 扩充 对 Let* 的 处 理 ? 

练习 4.8 “命名 let” 是 let 的 一 种 变形 ， 具 有 下 面 的 形式 .: 

(let <var> <bindings> <body>) 
其 中 的 <bindings> 和 <body> 都 与 常规 Let 完全 一 样 ， 只 是 在 <body> 里 的 <var> 应 该 约束 到 一 个 
过 程 ， 该 过 程 的 体 就 是 <body> ， 而 其 参数 就 是 <bindings> 里 的 变量 。 这 样 ， 我 们 就 可 以 通过 
调用 名 字 为 <var> 的 过 程 的 方式 ， 反 复 执 行 这 个 <body> 。 举 例 说 ， 和 迭代 型 的 斐 波 纳 契 过 程 ( 见 
1.2.2 节 ) 可 以 用 命名 let 重 新 写 为 : 

(define (fib n) 

(let fib-iter ((a 1) 
(b 0) 
(count n)) 
(if (= count 0) 
b 
(fib-iter (+ a b) a (- count 1))))) 

请 修改 练习 4.6 里 的 Let->combination， 使 之 能 够 支持 命名 Let。 

练习 4.9 许多 语言 都 支持 多 种 迭代 结构 ,例如 do 、for 、 while 和 until。 在 Scheme 里 ， 
迭代 计算 过 程 可 以 通过 常规 过 程 调用 的 方式 表述 ， 因 此 ， 特 殊 的 迭代 结构 并 不 会 在 计算 能 力 
方面 带 来 任何 真正 的 收获 。 但 在 另 一 方面 ， 这 种 结构 也 确实 能 带 来 很 多 方便 。 请 设计 出 老 干 
种 迭代 结构 ， 给 出 使 用 它们 的 例子 ， 并 说 明 怎 样 将 它们 实现 为 一 些 派 生 表达 式 。 

练习 4.10 ”通过 使 用 数据 抽象 技术 ， 我 们 就 能 够 写 出 独立 于 被 求 值 语 言 的 特定 语法 形式 
的 eval 过 程 。 为 阐释 这 一 点 ， 请 为 Scheme 设 计 和 实现 一 种 新 的 语法 形式 ， 请 仅仅 修改 本 市 的 
有 关 过 程 ， 而 不 修改 eval 或 者 apply。 


4.1.3 求 值 器 数据 结构 
除了 需要 定义 表达 式 的 外 部 语法 形式 之 外 ， 求 值 器 的 实现 还 必须 定义 好 在 其 内 部 实际 操 
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作 的 数据 结构 ， 作 为 程序 执行 的 一 部 分 。 例 如 ， 定 义 好 过 程 和 环境 的 表示 形式 ， 真 和 假 的 表 
示 方 式 等 等 。 

谓词 检测 | 

为 了 实现 条 件 表达 式 ， 我 们 把 除了 false 对 象 之 外 的 所 有 东西 都 接受 为 真 ， 


(define (true? x) 
(not (eq? x false))) 


(define (false? x) 
(eq? x false) ) 


为 能 处 理 基本 过 程 ， 我 们 假定 已 经 有 了 下 述 过 程 : 
* (apply-primitive-procedure <proc> <args>) 
它 能 够 将 给 定 的 过 程 应 用 于 表 <arg8s> 里 的 参数 值 ， 并 返回 这 一 应 用 的 结果 。 
* (primitive-procedure? <proc>) 
检查 <proc> 是 否 为 一 个 基本 过 程 。 
有 关 如 何 处 理 基本 过 程 的 机 制 将 在 4.1.4 节 里 进一步 讨论 。 
复合 过 程 是 由 形式 参数 、 过 程 体 和 环境 ， 通 过 构造 国 数 make-Procedure 做 出 来 的 : 


(define (make-procedure parameters body env) 


(list procedure parameters body env) ) 


(define (compound-procedure? p) 
(tagged-list? p ’procedure) ) 


(define (procedure-parameters p) (cadr p)) 
(define (procedure-body p) (caddr p)) 
(define (procedure-environment p) (cadddr p)) 
对 环境 的 操作 
求 值 器 需要 一 些 对 环境 的 操作 。 正 如 在 3.2 节 里 所 解释 的 ， 一 个 环境 就 是 一 个 框架 的 序列 ， 
每 个 框架 都 是 一 个 约束 的 表格 ， 其 中 的 约束 关联 起 一 些 变量 和 与 之 对 应 的 值 。 我 们 提供 下 面 
这 一 组 针对 环境 的 操作 
* (lookup-variable-value <var> <env>) 
返回 符号 <var> 在 环境 <env> 里 的 约束 值 ， 如 果 这 一 变量 没有 约束 就 发 出 一 个 错误 信号 。 
e (extend-environment <variables> <values> <base-env>) 
返回 一 个 新 环境 ， 这 个 环境 中 包含 了 一 个 新 的 框架 ， 其 中 的 所 有 位 于 表 <variapies> 里 的 
符号 约束 到 表 <values> 里 对 应 的 元 素 ， 而 其 外 围 环境 是 环境 <base-env>。 
¢(define-variable! <var> <value> <env>) 
在 环境 <env> 的 第 一 个 框架 里 加 入 一 个 新 约束 ， 它 关联 起 变量 <var> 和 值 <value>。 
*(set-variable-value! <var> <value> <env>) 
修改 变量 <var> 在 环境 <envy> 里 的 约束 ， 使 得 该 变量 现在 约束 到 值 <value>。 如 果 这 一 变 
量 没有 约束 就 发 出 一 个 错误 信号 。 
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为 了 实现 这 些 操作 ， 我 们 将 环境 表示 为 一 个 框架 的 表 ， 一 个 环境 的 外 围 环 境 就 是 这 个 表 
的 cdr ， 空 环境 则 直接 用 空 表 表示 。 
(define (enclosing-environment env) (cdr env)) 


(define (first-frame env) (car env)) 


(define the-empty-environment ’()) 


在 环境 里 的 每 个 框架 都 是 一 对 表 形 成 的 序 对 ， 一 个 是 这 一 框架 中 的 所 有 变量 的 表 ， 还 有 就 十 
它们 的 约束 值 的 表 ”。 


(define (make-frame variables values) 
(cons variables values)) 


(define (frame-variables frame) (car frame)) 
(define (frame-values frame) (cdr frame)) 


(define (add-binding-to-frame! var val frame) 
(set-car! frame (cons var (car frame)})) 
(set-cdr! frame (cons val (cdr frame)))) 


为 了 能 够 用 一 个 (关联 了 一 些 变量 和 值 的 ) 新 框架 去 扩充 一 个 环境 ， 我 们 让 框架 由 一 个 
变量 的 表 和 一 个 值 的 表 组 成 ， 并 将 它 结合 到 环境 上 。 如 果 变 量 的 个 数 与 值 的 个 数 不 匹 配 ， 我 
们 就 发 出 一 个 错误 信号 。 

(define (extend-environment vars vals base-env) 

(if (= (length vars) (length vals) ) 
(cons (make-frame vars vals) base-env) 
(if (< (length vars) (length vals)) 
(error "Too many arguments supplied" vars vals) 
(error "Too few arguments supplied" vars vals)))) 


要 在 一 个 环境 中 查找 一 个 变量 ， 就 需要 扫描 第 一 个 框架 里 的 变量 表 。 如 果 在 这 里 找到 了 
所 需 的 变量 ， 那 么 就 返回 与 之 对 应 的 值 表 里 的 对 应 元 素 。 如 果 我 们 不 能 在 当前 框架 里 找到 这 
个 变量 ， 那 么 就 到 其 外 围 环境 里 去 查找 ， 并 如 此 继续 下 去 。 如 果 遇 到 了 空 环境 ,那么 就 发 出 
一 个 “未 约束 变量 ”的 错误 信号 。 

(define (lookup-variable-value var env) 

(define (env-loop env) 
(define (scan vars vals) 
(cond ({null? vars) 
(env-loop (enclosing-environment env) )) 
((eq? var (car vars) ) 
(car vals)) 
(else (scan (cdr vars) (cdr vals))))) 
(if (eq? env the-empty-environment ) 
{error "Unbound variable” var) 
(let ((frame (first-frame env) ) ) 


(scan (frame-variables frame) 
(frame-~values frame) )))) 


218 在 下 面 的 代码 里 并 没 有 把 杠 架 做 成 一 种 数据 抽象 : set-variable-~-value! 和 define~variable! 里 是 
直接 用 set-car! 修 改 框架 中 的 值 。 这 样 定义 框架 过 程 ， 是 为 了 使 这 些 环境 操作 函数 更 容易 阅读 。 
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(env-loop env)) 


在 需要 为 某 个 变量 在 给 定 环 境 里 设置 一 个 新 值 上 时 ， 我 们 也 要 扫描 这 个 变量 ， 就 像 在 过 程 
lookup-variable-value 里 一 样 。 在 找到 这 一 变量 后 修改 它 的 值 。 


(define (set-variable-value! var val env) 
(define (env-loop env) 
(define (scan vars vals) 
(cond ((null? vars) 
(env-loop (enclosing-environment env) )) 
((eq? var (car vars) ) 
(set-car! vais val)) 
(else (scan (cdr vars) (cdr vals))))) 
(if (eq? env the-empty-environment ) 
(error “Unbound variable -- SET!" var) 
(let ((frame (first-frame env) ) ) 
(scan (frame-variables frame) 
(frame-values frame) )))) 


(env-loop env) ) 


为 了 定义 一 个 变量 ， 我 们 需要 在 第 一 个 框架 里 查找 该 变量 的 约束 ， 如 果 找 到 就 修改 其 约 
束 (就 像 是 在 set-variable-value1! 里 一 样 )。 如 果 不 存在 这 种 约束 ， 那 么 就 在 第 一 个 框 
架 中 加 入 这 个 约束 。 / 


(define (define-variable! var val env) 
(let ((frame (first-frame env) )) 
(define (scan vars vals) 
{cond ((null? vars) 
(add-binding-to-frame! var val frame) ) 
((eq? var (car vars) } 
(set-car! vals val)) 
(else (scan (cdr vars) (cdr vals))))) 
(scan (frame-variables frame) 
(frame-values frame) ))) 


这 里 所 描述 的 方法 ， 只 不 过 是 表示 环境 的 许多 可 能 方法 之 一 。 由 于 前 面 梁 用 了 数据 抽象 
技术 ， 将 求 值 器 的 其 他 部 分 与 这 些 表示 细节 隔离 开 ， 如 果 需 要 的 话 ， 我 们 也 完全 可 以 修改 环 
境 的 表示 ( 见 练习 4.11 )。 在 产品 质量 的 Lisp 系统 里 ， 求 值 器 中 环境 操作 的 速度 一 一 特别 是 查 
找 变 量 的 速度 一 -对 系统 的 性 能 有 着 重要 的 影响 。 这 里 所 描述 的 表示 方式 虽然 在 概念 上 非常 
简单 ， 但 其 工作 效率 却 很 低 ， 通 常 不 会 被 用 在 产品 系统 里 ”。 

练习 4.11 ”我 们 完全 可 以 不 把 框架 表示 为 表 的 序 对 ， 而 是 表示 为 约束 的 表 ， 其 中 的 每 个 
约束 是 一 个 名 字 一 值 序 对 。 请 重 写 有 关 的 环境 过 程 ， 采 用 这 种 新 的 表示 方式 。 

练习 4.12 过 程 set-variable-value!.、 define- -variable! fflookup- 
variable-value 可 以 基于 更 抽象 的 遍历 环境 结构 的 过 程 描述 。 请 定义 有 关 的 抽象 ， 使 之 能 
够 抓 住 其 中 的 公共 模式 ， 而 后 基于 这 些 抽象 重新 定义 上 述 的 三 个 过 程 。 


29 这 种 表示 (包括 练习 4.11 提 出 的 变形 ) 的 缺点 是 ， 求 值 器 为 了 找到 一 个 给 定 变量 的 约束 ， 可 能 需要 搜索 许多 
个 框架 。 这 样 一 种 方式 称 为 深 约 来。 避免 这 一 低 效 性 的 方法 是 采用 一 种 称 为 语法 作用 域 的 策略 ，5.57.0 站 将 讨 
VOIX AF FENG i 
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练习 4.13 ” Scheme 人 允许 我 们 通过 define 为 变量 创建 新 的 约束 ， 但 却 没 有 提供 消除 约束 的 
方式 。 请 为 求 值 器 实现 一 个 特殊 形式 make-unbound! ， 它 能 从 make-unbound! 表达 式 求 
值 的 哪个 环境 中 删除 给 定 符号 的 约 东 。 这 一 问题 并 没有 完全 刻画 清楚 。 例 如 ， 我 们 应 该 只 删 
除 环境 中 第 一 个 框架 里 的 约束 吗 ? 请 完成 有 关 的 规范 ， 并 说 明 你 所 做 选择 的 合理 性 。 


4.1.4 作为 程序 运行 这 个 求 值 器 


有 了 一 个 求 值 器 ， 我 们 手头 上 就 有 了 一 个 有 关 Lisp 表 达 式 如 何 求 值 的 描述 (也 是 用 Lisp 拼 
述 的 )。 将 求 值 器 描述 为 程序 的 一 个 优点 是 我 们 可 以 运行 这 个 程序 ， 这 样 就 给 了 我 们 一 个 能 够 
在 Lisp 里 运行 的 ， 有 关 Lisp 本 身 如 何 完成 表达 式 求 值 的 工作 模型 。 这 一 模型 可 以 作为 一 个 工作 
框架 ， 使 人 能 够 去 试验 各 种 求 值 规则 。 这 也 是 我 们 在 本 章 后 面部 分 将 要 去 做 的 事情 。 

我 们 的 求 值 器 程序 最 终 将 把 表达 式 归 约 到 基本 过 程 的 应 用 。 因 此 ， 为 了 能 够 运行 这 一 求 
值 器 ， 现 在 需要 做 的 全 部 事情 就 是 创建 一 种 机 制 ， 通 过 它 能 够 去 调用 基础 Lisp 系 统 的 功能 ， 
去 模拟 那些 基本 过 程 的 应 用 。 

每 个 基本 过 程 名 必须 有 一 个 约束 ， 以 便当 eval 求 值 一 个 应 用 基本 过 程 的 运算 符 时 ， 可 以 
找到 相应 的 对 象 ， 并 将 这 个 对 象 传 给 apP1LY 。 为 此 我 们 必须 创建 起 一 个 初始 环境 ， 在 其 中 建 
立 起 基本 过 程 的 名 字 与 一 个 唯一 对 象 的 关联 ， 在 求 值 表达 式 的 过 程 中 可 能 遇 到 这 些 名 字 。 这 
一 全 局 环境 里 还 要 包含 符号 true 和 false 的 约束 ， 这 就 使 它们 也 可 以 作为 变量 用 在 被 求 值 的 
表达 式 里 。 

(define (setup-environment ) 

(let ((initial-env 
(extend-environment (primitive-procedure-names ) 
(primitive-procedure-objects) 
the-empty-environment ) ) ) 
(define-variable! ’true true initial-env) 


(define-variable! ’false false initial-env) 


initial-env) ) 
(define the-global-environment (setup-environment) ) 
基本 过 程 对 象 的 具体 表示 形式 并 不 重要 ， 只 要 apply 能 识别 它们 ， 并 能 通过 过 程 
primitive-procedure? 和 apply-primitive-procedure 去 应 用 它们 。 我 们 所 选择 的 
方式 ， 是 将 基本 过 程 都 表示 为 以 符号 primitive 开 头 的 表 ， 在 其 中 包含 着 基础 Lisp 系 统 里 实 
现 这 一 基本 过 程 的 那个 过 程 。 


(define (primitive-procedure? proc) 
{tagged-list? proc ‘primitive)) 


(define (primitive-implementation proc) (cadr proc)) 
setup-environment 将 从 一 个 表 里 取 得 基本 过 程 的 名 字 和 相应 的 实现 过 程 ”: 


(define primitive-procedures 


220 在 基础 Lisp 里 定义 的 所 有 过 程 ， 都 可 以 用 作 这 个 元 循环 求 值 器 的 基本 过 程 。 在 求 值 器 里 设置 的 名 字 不 必 与 它 
们 在 基础 Lisp 系 统 里 的 名 字 相同 ， 这 里 采用 同样 的 名字 是 因为 这 个 元 循环 求 值 器 实现 的 就 是 Scheme 本 身 。 举 
例 来 说 ， 我 们 完全 可 以 将 (list “first car) 或 者 (list "Square (lambda (x) (* x x))) 放 进 


Primitive-procedures 的 表 里 。 
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{list (list ’car car) 
(list ‘cdr cdr) 
(list ’cons cons) 
(list ’null? null?) 
< 其 他 基本 过 程 > 
)) 


(define (primitive-procedure-names) 
(map car 
primitive-procedures)} ) 


(define (primitive-procedure-objects) 
(map (lambda (proc) (list ‘primitive (cadr proc))) 
primitive-procedures ) ) 


为 了 应 用 一 个 基本 过 程 ， 我 们 只 需要 简单 地 利用 基础 Lisp 系 统 ， 将 相应 的 实现 过 程 应 用 
于 实际 参数 ”: 


(define (apply-primitive-procedure proc args) 
(apply-in-underlying-scheme 
(primitive-implementation proc) args)) 


为 了 能 够 很 方便 地 运行 这 个 元 循环 求 值 器 ， 我 们 提供 了 一 个 驱动 循环 ， 它 模拟 基础 Lisp 
系统 里 的 读 入 一 求 值 一 打印 循环 。 这 个 循环 打印 出 一 个 提示 符 ， 读 入 输入 表达 式 ， 在 全 局 环 
境 里 求 值 这 个 表达 式 ， 而 后 打印 出 得 到 的 结果 。 我 们 在 每 个 对 应 结果 前 面 放 一 个 输出 提示 ， 
以 使 这 些 表达 式 的 值 有 别 于 其 他 输出 。 


(define input-prompt ";;; M-Eval input:") 
(define output-prompt ";;; M-Eval value:") 


(define (driver-loop) 
(prompt-for-input input-prompt) 
(let ((input (read))) 
(let ((output (eval input the-global-environment) ) ) 
(announce-output output-prompt) 
(user-print output) )) 
(driver-loop) ) 


(define (prompt-for-input string) 
(newline) (newline) (display string) (newline) ) 


(define (announce-output string) 
(newline) (display string) (newline) ) 


21 这 里 的 appLy-~in-underlying-scheme 也 就 是 我 们 在 前 面 音节 里 已 经 使 用 过 的 apP1Yy 过 程 。 元 循环 求 值 
器 里 的 app1Y 过 程 〈 见 4.1.1 节 ) 模拟 的 就 是 这 一 过 程 的 工作 。 采 用 两 个 不 同 的 而 名 字 又 同 为 appliy 的 东西 ， 
将 会 在 元 循环 求 值 器 的 运行 中 产生 一 个 技术 问题 ， 因 为 元 循环 求 值 器 的 apP1Y 定 义 会 掩盖 相应 基本 过 程 的 定 
义 ，。 绕 过 这 一 问题 的 一 种 方式 是 重 命名 元 循环 求 值 器 里 的 apPp1YyY ， 以 避免 与 基本 过 程 的 名 字 冲 突 。 我 们 假定 
采用 另 一 方式 ， 在 定义 元 循环 的 apP1Y 之 前 ， 已 经 先 用 下 面 方式 保存 了 基础 apPP1ly 的 一 个 引用 : 


(define apply-in-underlying-scheme apply) 


这 就 使 我 们 可 以 以 另 一 个 不 同 的 名 字 访 问 aPP1lY 的 原来 版 本 了 。 

22 基本 过 程 eag 将 一 直 等 待 用 户 的 输入 ， 并 返回 键 和 人 的 下 一 个 完整 表达 式 。 举 例 来 说 ， 如 果 用 户 的 输入 是 
(+ 23 x), read 将 返回 一 个 包含 三 个 元 素 的 表 ， 其 中 包含 符号 + 、 数 23 以 及 符号 x 。 如 果 用 户 键 和 人 的 是 Xx， 
返回 的 将 是 一 个 包含 两 个 元 素 的 表 ， 其 中 包含 了 符号 SGuote 和 符号 x。 





266 2E E E 


这 里 使 用 了 一 个 特殊 的 打印 过 程 userz-pzrint ， 以 避免 打印 出 复合 过 程 的 环境 部 分 ， 因 为 它 
可 能 是 一 个 非常 长 的 表 (而 且 还 可 能 包含 循环 )。 
(define (user-print object) 
(if (compound-procedure? object) 
(display (list ’compound-procedure 

(procedure-parameters object) 
(procedure-body object) 
*<procedure-env> ) ) 


(display object))) 
为 了 运行 这 个 求 值 器 ， 现 在 我 们 需要 着 的 全 部 事情 就 是 初始 化 这 个 全 局 环境 ， 并 启动 上 
述 的 驱动 循环 。 下 面 是 一 个 交互 过 程 实例 : 
(define the-global-environment (setup-environment) ) 
(driver-loop) 


233 M-Eval input: 
(define (append x y) 
(if (null? x) 
Y 
(cons (car xX) 
(append (cdr x) y)))) 
s; M-Eval value: 
ok 


es: M~Eval input: 

(append ’(a b c) (d e f)) 
?7 7 M-Eval value: 
(abcde f) 


练习 4.14 Eva Lu Ator 和 Louis Reasoner 各 自 实现 了 这 里 的 元 循环 求 值 器 。 Eva 键 人 了 map 
的 定义 ， 并 运行 了 一 些 使 用 它 的 测试 程序 ， 它 们 都 工作 得 很 好 。 而 Louis 则 是 将 系统 的 map 版 
本 作为 基本 过 程 安装 到 自己 的 元 循环 求 值 器 中 。 当 他 去 试验 这 个 过 程 时 ， 却 出 现 了 严重 的 错 
误 。 请 解释 ， 为 什么 Eva 的 map 能 够 工作 而 Louis 的 map 却 失败 了 。 


4.1.5 将 数据 作为 程序 


在 思考 求 值 Lisp 表 达 式 的 Lisp 程 序 时 ， 有 一 个 类 比 可 能 很 有 帮助 。 关 于 程序 意义 的 一 种 操 
作 式 观点 ， 就 是 将 程序 看 成 一 种 抽象 的 (可 能 无 穷 大 的 ) 机 器 的 一 个 描述 。 例 如 ， 考 虑 下 面 


这 个 我 们 已 经 非常 熟悉 的 求 阶乘 程 序 : 
(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (- n 1)) n))) 


我 们 可 以 将 这 一 程序 看 成 一 部 机 器 的 描述 ， 这 部 机 器 包含 的 部 分 有 减 量 、 乘 和 相等 测试 ， 还 
有 一 个 两 位 置 的 开关 和 另 一 部 阶乘 机 器 (这 样 ， 阶 乘机 器 就 是 无 穷 的 ， 因 为 其 中 包 合 看 为 一 
部 阶乘 机 器 )。 图 4-2 是 这 部 阶乘 机 器 的 流程 图 ， 说 明了 有 关 的 部 分 如 何 连 接 在 一 起 。 

按照 类 似 的 方式 ， 我 们 也 可 以 把 求 值 器 看 做 是 一 部 非常 特殊 的 机 器 ， 它 要 求 以 一 部 机 天 





的 描述 作为 输入 。 给 定 了 一 个 输入 之 后 ， 求 值 器 就 能 够 规划 自己 的 行为 ， 模 拟 被 描述 机 器 的 
执行 过 程 。 举 例 来 说 ， 如 果 我 们 将 factorial 的 定义 馈 入 求 值 器 ， 如 图 4-3 所 示 ， 求 值 器 就 
能 够 计算 阶乘 。 


factorial 


(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (- n 1)) n))). 





图 4-3 模拟 一 部 阶乘 机 器 的 求 值 器 


按照 这 一 观点 ， 我 们 的 求 值 器 可 以 看 做 是 一 种 通用 机 器 。 它 能 够 模拟 其 他 的 任何 机 絮 ， 
只 要 它们 已 经 被 描述 为 Lisp 程 序 空 。 这 是 非常 惊人 的 。 请 想 想 如 何 为 电子 电路 设想 一 种 类 似 的 
求 值 器 。 这 将 会 是 一 种 电路 ， 它 能 以 另 一 个 电路 (例如 某 个 过 滤器 ) 的 信号 编码 方案 作为 输 


23 有 关 将 机 器 描述 为 Lisp 程 序 的 畜 情 其 实 并 不 是 最 根本 的 。 如 果 我 们 送 给 自己 的 求 值 器 一 个 Lisp 程 序 ， 其 行为 
是 另 一 种 语言 (例如 C 语言) 的 求 值 器 ， 那 么 这 个 Lisp 求 值 器 就 能 模拟 该 C 求 值 器 ， 进 而 能 够 模拟 任何 用 C 
程序 的 形式 描述 的 机 器 。 同 样 ， 在 C 里 写 出 一 个 Lisp 求 值 器 也 将 产生 出 一 个 能 够 执行 所 有 Lisp 程 序 的 C 程序。 
这 里 的 深刻 思想 是 ， 任 一 求 值 器 都 能 模拟 其 他 的 求 值 器 。 这 样 ， 有 关 “ 原 则 上 说 什么 可 以 计算 ”( 忽略 掉 有 
关 所 需 时 间 和 空间 的 实践 性 问题 ) 的 概念 就 是 与 语言 或 者 计算 机 无 关 的 了 ， 它 反映 的 是 一 个 有 关 可 计 工 性 
的 基本 概念 。 这 一 思想 第 一 次 是 由 图 灵 (Alan M. Turing, 1912-1954) 以 如 此 清晰 的 方式 竟 述 的 ， 图 灵 
1936 年 的 论文 为 计算 机 科学 理论 英 定 了 基础 。 在 这 篇 论文 里 ， 图 灵 给 出 了 一 种 简单 的 计算 模型 一 现在 被 称 
为 图 灵机 一 并 声称 ， 任 何 “ 有 效 过程 ” 都 可 以 描述 为 这 种 机 器 的 一 个 程序 (这 一 论断 就 是 著名 的 详 坷 一 图 
灵 论 题 )。 图 灵 而 后 实现 了 一 台 通 用 机 器 ， 即 一 台 图 灵机 ， 其 行为 就 像 是 所 有 图 灵机 程序 的 求 值 器 。 他 还 用 
这 一 理论 框架 证 明了 ， 存 在 车 能 够 清晰 地 提出 的 问题 ， 而 这 种 问题 是 图 灵机 不 能 计算 的 〈 见 练习 4.15 )。 图 
灵 也 为 实践 性 的 计算 机 科学 做 出 了 黄 基 性 的 贡献 。 例 如 ， 他 发 明了 采用 通用 子 程序 的 结构 化 程序 的 思想 。 
有 关 图 灵 的 生平 参见 Hodges 1283 。 
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A. 在 给 了 它 这 种 输入 之 后 ， 这 一 电路 求 值 器 就 能 有 具有 与 这 一 描述 所 对 应 的 过 滤器 同样 的 行 
为 。 这 样 的 一 个 通用 电子 线路 将 会 难以 想象 的 复杂 。 值 得 提出 的 是 ， 程 序 的 求 值 器 还 是 一 个 
相当 简单 的 程序 ?2 。 

求 值 器 的 另 一 惊人 方面 ， 在 于 它 就 像 是 在 我 们 的 程序 设计 语言 所 操作 的 数据 对 象 和 这 个 
程序 设计 语言 本 身 之 间 的 一 座 桥梁 。 现 在 设想 这 个 求 值 程序 (用 Lisp 实 现 ) 正在 运行 ， 一 个 
用 户 正在 输入 表达 式 并 观察 所 得 到 的 结果 。 从 用 户 的 观点 看 ， 他 所 输入 的 形 如 (* x x) 的 
表达 式 是 程序 设计 语言 里 的 一 个 表达 式 ， 是 求 值 器 将 要 执行 的 东西 。 而 从 求 值 器 的 观点 看 ， 
这 一 表达 式 不 过 是 一 个 表 (在 目前 情况 下 ， 是 三 个 符号 *、x 和 x 的 表 )， 它 所 要 去 做 的 ， 也 就 
是 按照 一 套 良好 定义 的 规则 去 操作 这 个 表 。 | 

这 种 用 户 程 序 也 就 是 求 值 器 的 数据 的 情况 ， 未 必 会 成 为 产生 混乱 的 源泉 。 事 实 上 ， 有 时 
简单 地 忽略 这 种 差异 ， 为 用 户 提供 显 式 地 将 数据 对 象 当 作 Lisp 表 达 式 求 值 的 能 力 ， 允 许 他 们 
在 程序 里 直接 使 用 eval ， 甚 至 可 能 带 来 许多 方便 。 在 许多 Lisp 方 言 里 ， 都 提供 了 一 个 基本 的 
eval 过 程 , 这 个 过 程 以 一 个 表达 式 和 一 个 环境 作为 参数 , 在 这 一 环境 中 求 出 该 表达 式 的 值 ”5。 
例如 : 


(eval ’(* 5 5) user-initial-environment) 


和 


(eval (cons ’* (list 5 5)) user-initial-environment ) 


都 将 返 E257, 

练习 4.15 ”给 定 一 个 单 参数 的 过 程 P 和 一 个 对 象 a&， 称 p 对 a“ 终 止 "， 如 果 对 于 表达 式 (Pp 
a) 的 求 值 能 返回 一 个 值 (与 得 到 一 个 错误 信息 而 终止 或 者 永远 运行 下 去 相对 应 )。 请 证 明 ， 
我 们 不 可 能 写 出 一 个 过 程 halts? ,使 它 能 正确 地 对 任何 过 程 P 和 对 象 a 判 定 是 否 p 对 a 终止 。 
请 采用 如 下 推理 过 程 : 如 果 你 能 有 这 样 一 个 过 程 ， 你 就 可 以 实现 下 述 程序 : 

(define (run-forever) (run-forever) ) | 


(define (try p) 
(if (halts? p p) 
(run-forever ) 

*halted) ) 


现在 考虑 求 值 表达 式 (try try)， 并 说 明 任 何 可 能 的 结果 (无 论 终止 或 者 永远 运行 下 去 ) 
都 将 违背 所 确定 的 halts? 的 行为 ”。 


24 有 人 觉得 这 样 的 求 值 器 是 违反 直觉 的 ， 因 为 它 由 一 个 相对 简单 的 过 程 实现 ， 却 能 去 模拟 可 能 比 求 值 器 本 身 还 
要 复 杂 的 各 种 程序 。 通 用 求 值 器 的 存在 是 计算 的 一 种 深刻 而 美妙 的 性 质 。 递 归 论 是 数理 逻辑 的 一 个 分 支 ， 这 
一 理论 研究 计算 的 逻辑 限制 。Douglas Hofstadter 的 美妙 著作 «Gödel, Escher, Bach) (1979) 里 探索 了 其中 
的 一 些 思想 。 

225 警告 ， 这 一 eval 基 本 过 程 并 不 等 同 于 我 们 在 4.1.1 节 实现 的 eval 过 程 。 因 为 它 使 用 的 是 实际 的 Scheme 环境 ， 
而 不 是 我 们 自己 在 4.1.3 节 里 构造 的 简单 环境 结构 。 这 些 实际 环境 不 能 由 用 户 作 为 常规 的 表 去 操作 ， 而 只 能 通 
过 eval 和 其 他 特殊 操作 去 访问 。 与 此 类 似 ， 我 们 前 面 已 经 看 到 ， 基 本 过 程 apP1Y 人 也 不 等 同 于 元 循环 求 值 器 
里 的 apply ， 因 为 它 使 用 也 是 实际 的 Scheme 过 程 ， 而 不 是 我 们 在 4.1.3 节 和 4.1.4 节 构造 的 过 程 对 象 。 

26 在 MIT 的 Scheme 实现 中 包含 有 eval ， 还 有 一 个 符号 user-initial-environment， 它 约束 到 用 户 输入 表 
达 式 的 求 值 所 用 的 那个 初始 环境 。 

227 虽然 我 们 规定 了 送 给 halts? 的 是 一 个 过 程 对 象 (DME, 这 一 推理 同样 适用 于 halts? 能 够 访问 过 程 
的 正文 或 者 它 的 运行 环境 的 情况 。 这 就 是 图 灵 伟 大 的 停机 定理 ， 是 清晰 给 出 的 第 一 个 不 可 计算 的 问题 ， 也 就 
是 说 ， 是 一 个 良好 刻画 的 工作 ， 但 却 不 能 由 一 个 计算 过 程 完 成 。 





4.1.6 内 部 定义 


我 们 的 求 值 和 元 循环 求 值 器 的 环境 模型 将 按 顺 序 执行 给 它 的 定义 ， 一 次 在 环境 框架 里 扩 - 
充 一 个 定义 。 对 于 交互 式 的 程序 开发 ， 这 样 做 是 特别 方便 的 ， 因 为 程序 员 需 要 自由 地 混合 过 
程 应 用 和 新 过 程 的 定义 。 然 而 ， 如 果 我 们 仔细 想 一 想 用 于 实现 块 结构 的 内 部 定义 (在 1.1.8 节 
介绍 )， 就 会 发 现 ， 这 种 一 次 一 个 名 字 的 环境 扩充 方式 可 能 不 古 定 义 局 部 变量 的 最 好 方式 。 

芳 虚 一 个 带 有 内 部 定义 的 过 程 ， 例 如 : 


(define (f x) 6 
(define (even? n) 
(if (= n 0) 
true . 
(odd? (= n 1)))) 
(define (odd? n) 
(if (=n 0) 
false 
| (even? (- n 1)))) 
<f 体 的 其 余部 分 >) 
我 们 在 这 里 的 意图 是 ， 在 过 程 even? 的 体 里 的 名 字 odd? 应 该 引用 过 程 0dd? ， 而 它 是 在 
even? 之 后 定义 的 。 名 字 odd? 的 作用 域 是 王 的 整个 体 ， 而 不 仅 是 王 的 体 里 从 出 现 odd? 的 
define 点 开始 的 那个 部 分 。 确 实 ， 在 我 们 考虑 odd? 本 身 也 是 基于 even? 定 义 的 时 候 一 一 所 
以 even? 和 odd? 是 相互 递归 定义 的 过 程 一 -就 可 以 看 到 ， 有 关 这 两 个 define 的 最 令 人 满意 
的 解释 ， 应 该 是 认为 两 个 名 字 even? 和 0dd? 被 同时 加 入 环境 中 。 更 一 般 地 说 ， 在 块 结构 里 ， 
一 个 局 部 名 字 的 作用 域 ， 应 该 是 相应 define 的 求 值 所 在 的 整个 过 程 体 。 

在 出 现 这 种 情况 时 ， 我 们 的 解释 器 将 能 正确 求 值 对 f£ 的 调用 ,但 却 是 由 于 一 种 “非常 偶然 
的 ”原因 : 由 于 内 部 过 程 的 定义 出 现在 前 ， 而 在 所 有 这 些 东 西 都 定义 好 之 前 不 会 对 这 些 过 程 
的 调用 求 值 。 因 此 ， 在 even? 被 执行 时 odd? 已 经 定义 好 了 。 事 实 上 ， 只 要 过 程 里 的 内 部 定 
义 出 现在 体 和 用 于 定义 变量 的 值 表 达 式 的 求 值 之 前 ， 而 这 些 值 表达 式 又 不 实际 使 用 任何 被 定 
义 的 变量 ， 我 们 的 顺序 求 值 机 制 给 出 的 结果 就 与 直接 实现 同时 定义 完全 一 样 。 (作为 不 满足 这 
些 限 制 的 一 个 例子 ， 因 此 顺序 定义 将 不 等 价 于 同时 定义 ， 请 参见 练习 4.19。) 778 

不 过 ， 确 实 存 在 一 种 处 理 这 些 定义 的 方法 ， 可 以 使 内 部 名 字 的 定义 真正 具有 同样 的 作用 
域 。 为 此 只 需 在 求 值 任何 值 表达 式 之 前 ， 在 当前 环境 里 建立 起 所 有 的 局 部 变量 。 完 成 这 一 工 
作 的 一 种 方式 时 通过 lambda 表 达 式 的 语法 变换 。 在 求 值 ambda 表 达 式 的 体 之 前 ， 首 先 扫 摘 
并 且 删除 掉 这 个 过 程 体 里 的 所 有 内 部 定义 ， 并 用 一 个 let 创 建 这 些 内 部 定义 的 变量 ， 而 后 遂 
过 赋值 设置 它们 的 值 。 举 个 例子 ， 过 程 

(lambda <vars> 


(define u <el>) 
(define v <e2>) 


228 希望 一 个 程序 不 依赖 于 这 种 求 值 机 制 ， 就 是 第 1 章 中 脚注 28 里 提出 “管理 并 非 一 种 责任 ”的 原因 。 强 调 了 内 
部 定义 应 该 出 现在 前 ， 在 这 些 定义 被 求 值 期 间 不 使 用 它们 ，IEEE 的 Scheme 标准 在 关于 求 值 这 种 定义 所 用 的 
机 制 方面 将 选择 权 留 给 了 实现 者 。 在 这 里 选择 其 种 求 值 方式 而 不 是 另 一 种 ， 看 起 来 像 是 一 个 小 问题 ， 只 会 影 
响 到 那些 “形式 不 好 的 ”程序 的 解释 .。 然 而 ， 在 5.5.6 节 我 们 将 会 看 到 ， 转 变 到 内 部 定义 的 同时 作用 域 ， 将 能 
避免 一 些 很 凉 手 的 难题 ， 如 果 不 这 样 ， 这 些 问 题 就 会 出 现在 编译 器 的 实现 中 。 
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<e3>) 


将 被 翻译 为 
{lambda <vars> 
(let ((u ’*unassigned*) 
(v ’*unassigned*) ) 
(set! u <el>) 
(set! v <e2>) 
<e3>)) 
这 里 的 kunassigned* 是 一 个 特殊 符号 ， 在 查找 一 个 变量 ， 企 图 去 使 用 一 个 尚未 赋值 的 变量 
的 值 时 ， 它 将 导致 发 出 一 个 错误 信号。 
扫描 出 所 有 内 部 定义 的 另 一 种 策略 在 练习 4.18 中 给 出 。 与 上 面 的 变换 方式 不 同 ， 它 将 强加 
一 种 限制 ， 要 求 被 定义 变量 的 值 能 在 不 用 其 他 变量 的 值 的 情况 下 进行 求 值 ”。 
练习 4.16 ”在 这 一 练习 里 ， 我 们 要 实现 刚刚 介绍 的 解释 内 部 定义 的 方式 。 现 在 假定 求 值 
器 已 经 支持 let (练习 4.6)。 
a) 请 修改 lookup-variable-value (第 4.1.3 节 )， 使 它 在 发 现 的 值 是 符号 *unassigned* 
时 发 出 一 个 出 错 信 号 。 
b) 请 写 出 一 个 过 程 scan-out-defines ， 它 以 一 个 过 程 体 为 参数 ， 返 回 一 个 不 包括 内 
部 定义 的 等 价 表达 式 ， 完 成 上 面 描述 的 变换 。 
c) 请 将 scan-out~defines 安 装 到 解释 器 里 ， 或 者 将 其 安 到 make-~procedure 里 , 或 
者 安 到 procedure-body 里 ( 见 4.1.3 节 )。 安 装 在 哪个 位 置 更 好 些 ? 为 什么 ? 
练习 4.17 ”请 画 出 一 个 图 形 ， 说 明 在 求 值 正文 中 过 程 里 的 表达 式 <e3> 时 有 关 环 境 的 作用 。 
请 构造 出 在 按照 顺序 方式 解释 定义 时 的 情况 ， 以 及 如 果 将 内 部 定义 像 上 面 所 说 的 那样 扫描 出 
来 时 的 环境 情况 ， 对 它们 做 一 些 比较 。 为 什么 对 于 变换 之 后 的 程序 多 出 了 一 个 框架 ? 请 解释 
为 什么 环境 结构 的 这 种 差异 不 会 造 出 正确 程序 的 不 同行 为 方式 。 请 设计 一 种 方式 ， 使 解释 老 
能 实现 内 部 定义 的 “同时 性 ”作用 域 规则 ， 而 又 不 需要 构造 额外 的 框架 。 
练习 4.18 考虑 下 面 的 另 一 种 扫描 出 定义 的 方式 ， 它 将 正文 里 的 例子 变换 为 : 
{lambda <vars> | 
(let ((u ‘'*unassigned*) 
(v ’*unassigned*) ) 
(let ((a <e/>) 
(b <e2>)) 
(set! u a) 
(set! v b)) 
<e3>)) 
这 里 的 a 和 b 表 示 的 是 新 变量 名 字 ， 它们 由 解释 器 建立 ， 不 会 出 现在 用 户 程 序 里 。 考 虚 取 日 
3.5.4 节 的 solve 过 程 : 


(define (solve f yO dt) 
(define y (integral (delay dy) y9 dt)) 


29 TEEE 的 Scheme 标 准 oe LA Al ASCH AK, Ho BER EA PR A, EK AALS 强制 要 
求 它 。 有 些 Scheme 实现， 包括 MIT 的 Scheme ， 采 用 了 上 面 所 说 的 变换 。 这 样 ， 一 些 并 不 违反 这 一 限制 的 程序 
将 能 够 在 这 种 实现 上 运行 。 
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(define dy (stream-map f y)) 
y) 、 | 
如 果 采 用 本 练习 所 示 的 扫描 出 内 部 定义 的 方式 ， 这 一 过 程 还 能 工作 吗 ? 如 果 采 用 正文 中 给 
的 扫描 方式 呢 ? 请 给 出 解释 。 
练习 4.19 Ben Bitdiddie 、Alyssa P. Hacker 和 Eva Lu Ator 在 关于 下 面 表达 式 的 期 望 求 值 
结果 上 有 争论 : | | 
(let ((a 1)) 
(define (f x) 
(define b (+ a x)) 
(define a 5) 
(+ a b)) 
(£ 10)) 


Ben 断 言 使 用 daefine 的 顺序 规则 将 能 得 到 结果 ， 那 时 b 被 定义 为 11 ， 而 后 a 定 义 为 5， 所 以 最 
后 的 结果 是 16。Alyssa 反 对 说 ， 相 互 递归 要 求 内 部 过 程 定 义 的 同时 性 作用 域 规则 ， 将 过 程 名 
字 看 做 与 其 他 名 字 不 同 是 不 合理 的 。 因 此 她 为 练习 4.16 提 出 的 机 制 辩护 ， 这 将 导致 在 需要 计 
算 b 值 的 时 候 a 还 没有 赋值 。 按 照 Alyssa 的 观点 ， 这 个 过 程 产 生 一 个 错误 。Eva 持 第 三 种 观点 ， 
她 说 如 果 a 的 bp 的 定义 真正 是 同时 的 ， 那 么 a 的 值 $ 应 该 能 用 在 b 的 求 值 中 。 这 样 ， 按 照 Eva 的 观 
点 ，a 应 该 是 5 ，b 应 该 是 15 ， 而 最 终结 果 应 该 是 20。 你 支持 哪 种 观点 ? 你 能 设计 出 一 种 实现 
内 部 定义 的 方案 ， 使 之 具有 Eva 所 喜欢 的 行为 吗 ? ” 
练习 4.20 由 于 内 部 定义 表面 上 看 是 顺序 的 ， 实 际 上 却 是 同时 性 的 ， 有 些 人 就 希望 完全 
避免 它们 ， 采 用 另 一 种 特殊 形式 letrec。letrec 看 起 来 像 let ， 因 此 毫 不 奇怪 ， 它 的 变量 
约束 都 是 同时 建立 的 ， 各 个 变量 都 具有 同样 的 作用 域 。 与 上 面 一 样 的 过 程 f 现 在 可 以 写成 没有 
内 部 定义 的 形式 ， 但 却 具有 相同 的 意义 : 
(define (f x) 
(letrec ( (even? 
(lambda (n) 
(if (= n 0) 
true 
(odd? (~ n 1))))) 
(odd? 
(lambda (n) 
(if (=n 0) 
false 
(even? (- n 1)))))) 
< 工 体 的 其 余部 分 > ) ) 


letrec 表 达 式 具有 如 下 形式 


(letrec ((<vari> <expi>) ... (<var,> <expr>)) 
<body> ) 


它 是 let 的 一 种 变形 ， 其 中 的 表达 式 <exp 必 为 变量 <vari> 提 供 内 部 值 ， 这 些 表达 式 的 求 值 是 在 


230 MIT 的 Scheme 实现 支持 Alyssa， 基 于 如 下 基础 ， 从 原则 上 说 Eva 是 正确 的 一 定义 应 该 认为 是 同时 的 。 都 是 看 
起 来 很 礁 有 -种 一 般 性 的 有 效 机 制 实现 Eva 的 需求 。 既 然 缺乏 这 样 一 种 机 制 ， 那 么 最 好 就 是 在 过 到 困难 的 同 
时 定义 时 产生 一 个 错误 (Alyssa 的 观点 ) ， 而 不 是 产生 一 个 不 正确 的 结果 (Ben 所 希望 的 )。 
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一 个 包含 了 所 有 letrec 约 束 的 环境 里 完成 的 。 这 样 也 就 允许 了 约束 中 的 递归 ， 例 如 上 面 例子 
里 even? 和 odd? 的 相互 递归 ， 或 者 采用 下 面 方式 求 10 的 阶乘 : 
(letrec ((fact 
(lambda (n) 
(IE (= n 1) 
1 
(* n (fact (~ n 1))))))) 
(fact 10)) 


a) 请 将 letrec 实 现 为 一 种 派生 表达 式 ， 将 这 种 表达 式 变 换 为 如 上 面 正文 中 所 描述 的 ， 或 
者 如 练习 4.18 所 述 的 let 表 达 式 。 也 就 是 说 ， 用 一 个 let 创 建 的 letrec 变 量 ， 而 后 用 set! 给 
它们 赋值 。 

b) Louis Reasoner 对 于 所 有 这 些 有 关内 部 定义 的 大 惊 小 怪 感 到 很 困惑 。 他 看 这 些 问 题 的 方 
式 是 ， 如 果 你 不 喜欢 在 一 个 过 程 里 用 define ， 你 就 可 以 只 用 Let 。 请 画 出 一 个 环境 图 ， 说 明 
在 求 值 表达 式 (£ 5) 的 过 程 中 ， 求 值 到 <rest of body of f> 时 的 环境 情况 ， 以 此 说 明 为 什么 
Louis 的 推理 是 不 严谨 的 。 这 里 的 f 如 本 练习 中 的 定义 。 再 为 同一 个 求 值 画 出 一 个 环境 图 ， 将 f 
定义 中 的 letrec 换 成 let， 

练习 4.21 非常 有 趣 ，Louis 在 练习 4.20 里 的 直觉 是 正确 和 的。 确实 有 可 能 不 用 letrec 而 摘 
述 出 递归 过 程 (甚至 也 不 需要 用 define) ， 虽 然 完 成 此 事 的 方式 远 比 Louls 的 设想 微妙 得 多 。 
下 面 表 达 式 能 通过 应 用 一 个 递归 的 阶乘 过 程 计 算出 10 的 阶乘 汪 ! : 

( (lambda (n) 

(( lambda (fact) 
(fact fact n)) 
(lambda (ft k) 
(if (= k 1) 
1 
(* k (ft ft (- k 1))))))) 


10) 
a) 请 仔细 检查 (通过 求 值 这 个 表达 式 )， 以 确定 这 个 表达 式 确 实 能 算出 阶乘 。 设 计 一 个 计 
算 斐 波 纳 契 数 的 类 似 表 达 式 。 


b) 考虑 下 面 过程 ， 其 中 包含 相互 递归 的 内 部 定义 : 


(define (Ë x) 
(define (even? n) 
(if (=n 0) 
true 
(odd? (- n 1)))) 
(define (odd? n) 
(if (= n 0) 
false 
(even? (- n 1)))) 
(even? x)) 


231 eS OA FRAT — Bho def ine iid Ait ROE PRUE. RARER MORAY EKA, TUE 
给 出 递归 的 一 个 “ 纯 人 演算 ”实现 。( 参 见 Stoy 19774 lambda 演算 的 细节 ， 以 及 Gabriel 1988 有 关 在 ?cheme 
BY 2H AAR.) | 





请 填充 下面 f 的 定义 中 空缺 的 表达 式 ， 完 成 它 ， 其 中 不 使 用 内 部 定义 也 不 用 letrec. 
(define (f x) 

( {lambda (even? odd?) 
(even? even? odd? x)) 

(lambda (ev? od? n) 
(if (= n 0) true (od? <??> <22?> <22>))) 

(lambda (ev? od? n) 
(if (= n 0) false (ev? <??> <??> <?2>))))) 


4.1.7 将 语法 分 析 与 执行 分 离 


上 面 实 现 的 求 值 器 确实 很 简单 ， 但 却 也 非常 低 效 ， 因 为 有 关 表 达 式 的 语法 分 析 与 它们 的 
执行 交织 在 一 起 。 如 果 一 个 程序 要 执行 许多 次 ， 对 于 它 的 语法 分 析 也 就 需要 做 许多 次 。 举 例 
来 说 ， 考 虑 采用 下 面 的 factorial 定 义 求 值 (factorial 4): 


(define (factorial n) 
(if (=n 1) 
1 
(* (factorial (- n 1)) n))) 
在 每 次 调用 factorial 时 ， 求 值 器 就 需要 确定 它 的 体 是 一 个 i£ 表 达 式 ， 而 后 提取 出 其 中 
的 谓词 。 只 有 到 了 此 时 ， 它 才能 去 求 值 这 个 谓词 并 基于 它 的 值 完 成 分 派 。 每 次 去 求 值 表达 式 
(* (factorial (- n 1)) n), 或 者 子 表达 式 (factorial (~ n 1)) MM (- n 1) 时 ， 
求 值 器 都 必须 执行 eval 里 的 分 情况 分 析 ， 以 便 确 定 相应 的 表达 式 是 过 程 应 用 ， 而 且 必 须 提取 
出 有 关 的 运算 符 和 运算 对 象 。 这 种 分 析 是 代价 高 昂 的 ， 反 复 执行 它们 是 一 种 浪费 。 
我 们 可 以 对 这 个 求 值 器 做 一 些 变换 ， 使 它 的 效率 大 大 提高 ， 采 用 的 方法 就 是 重新 安排 其 
中 的 工作 ， 使 有 关 的 语法 分 析 只 进行 一 次 *”?。 我 们 要 将 以 一 个 表达 式 和 一 个 环境 为 参数 的 
eval 分 割 为 两 个 部 分 。 过 程 analyze 只 取 表 达 式 作为 参数 ， 它 执行 语法 分 析 ， 并 返回 一 个 
新 的 过 程 ， 执 行 过 程 ， 其 中 封装 起 在 分 析 表 达 式 的 过 程 中 已 经 完成 的 工作 。 这 个 执行 过 程 以 
一 个 环境 作为 参数 ， 并 完成 实际 的 求 值 工作 。 这 样 就 会 节省 需要 做 的 工作 ， 因 为 对 一 个 表达 
式 只 需要 调用 一 次 analyze ， 而 执行 过 程 却 可 能 被 调用 许多 次 。 
将 语法 分 析 和 执行 分 开 之 后 ，eval 现 在 就 变 成 了 


(define (eval exp env) 
( (analyze exp) env) ) 


调用 analyze 的 结果 得 到 了 一 个 执行 过 程 ， 而 后 将 它 应 用 于 环境 。analyze 过 程 完 成 像 
4.1.1 节 里 原来 eval 那 样 的 分 情况 分 析 ， 除 了 其 中 的 分 派 过 程 只 执行 分 析 工 作 ， 不 进行 完全 的 
求 值 之 外 : 


(define (analyze exp) 
(cond ((self-evaluating? exp) 
(analyze-self-evaluating exp) ) 
( (quoted? exp) (analyze-quoted exp) ) 


22 这 _- 技 术 是 编译 过 程 中 的 一 个 内 在 组 成 部 分 ， 有 关 编 译 的 问题 将 在 第 5 章 讨 论 。Jonathan Rees TMA S T— 
个 类 似 这 里 的 Scheme 编译 器 (Rees and Adams 1982), Marc Feeley (1986) ( 见 Feeley and Lapalme 1987 ) 


在 其 硕士 论文 里 独立 地 发 明了 这 一 技术 。 
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((variable? exp) (analyze-variable exp) ) 

( (assignment? exp) (analyze-assignment exp) ) 
((definition? exp) (analyze-definition exp) ) 

((if? exp) (analyze-if exp) ) 

( (lambda? exp) (analyze-lambda exp) ) 

((begin? exp) (analyze~sequence (begin-actions exp))) 
(({cond? exp) (analyze (cond->if exp))) 

((application? exp) (analyze-application exp)) 

(else 

(error "Unknown expression type -- ANALYZE" exp)))) 


下 面 是 一 个 处 理 自 求 值 表达 式 的 简单 分 析 过 程 ， 它 返回 一 个 忽略 环境 参数 的 执行 过 程 ， 
直接 返回 相应 的 表达 式 : 


(define (analyze-self-evaluating exp) 
(lambda (env) exp) ) 


对 于 引号 表达 式 ， 我 们 可 以 通过 在 分 析 时 提取 出 被 引 表 达 式 ， 而 不 是 在 执行 中 去 做 的 方 
式 ， 使 这 项 工作 只 需要 做 一 次 ， 从 而 提高 一 点 效率 。 
(define (analyze-quoted exp) 


(let ((qval (text-of-quotation exp))) 
(lambda (env) qval))) 


查看 变量 的 值 仍然 需要 在 执行 过 程 中 做 ， 因 为 这 个 值 依赖 于 所 用 的 环境 2 


(define (analyze-variable exp) 
(lambda (env) (lookup-variable-value exp env))) 


analyze-assignment 也 必须 推迟 到 执行 时 才能 去 实际 设置 变量 的 值 ， 因 为 那 时 才 提 
供 了 操作 的 环境 。 然而， 在 分 析 阶 段 已 经 (递归 地 ) 完成 了 对 assignment-value 表 达 式 
的 分 析 ， 这 一 事实 还 是 可 以 大 大 提高 效率 ， 因为 现在 对 assignment- -value 表 达 式 的 分 析 

只 需要 进行 一 次 。 这 种 说 法 对 于 定义 也 是 对 的 。 


(define (analyze-assignment exp) 
(let ((var (assignment-variable exp)) 
(vproc (analyze (assignment-value exp)))) 
(lambda (env) 
(set-variable-value! var (vproc env) env) 
‘ok ) ) ) 


(define (analyze-definition exp) 
(let ((var (definition-variable exp) ) 
(vproc (analyze (definition-value exp) ) ) ) 
(lambda (env) 
(define-variable! var (vproc env) env) 
"ok ) ) ) 


对 于 if 表 达 式 ， 我 们 在 分 析 过 程 中 提取 并 分 析 其 谓词 、 推 理 和 替代 部 分 。 


(define (analyze-if exp) 
(let ((pproc (analyze (if-predicate exp))) 





33 然而 ， 变 量 搜索 中 的 很 大 一 部 分 工作 也 可 以 在 语法 分 析 阶段 完成 。 正 如 将 在 5.5.6 节 看 到 的 ， 我 们 可 以 在 环境 
结构 中 确定 能 找到 变量 的 值 的 位 置 ， 这 样 就 免除 了 查找 整个 环境 去 确定 变量 匹配 的 需要 。 
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(cproc (analyze (if-consequent exp) )) 
(aproc (analyze (if-alternative exp)))) 
{lambda (env) 
(if (true? (pproc env)) 
(cproc env) 
(aproc env))))) 


分 析 1lambda 表 达 式 也 能 得 到 很 大 的 效率 收获 ， 因 为 只 要 分 析 lambda 体 一 次 ， 即 使 作为 
这 一 lambda 的 求 值 结果 的 过 程 可 能 应 用 许多 次 。 
(define (analyze-lambda exp) 
{let ((vars (lambda-parameters exp)) 


(bproc (analyze-sequence (lambda-body exp) ))) 
(lambda (env) (make-procedure vars bproc env)))) 

对 于 表达 式 序列 的 分 析 (如 一 个 begin 或 者 一 个 lambda 表 达 式 的 体 ) 是 更 加 深入 的 。 
序列 中 的 每 个 表达 式 都 将 被 分 析 ， 产 生出 一 个 执行 过 程 。 这 些 执 行 过 程 被 组 合 起 来 形成 一 个 
执行 过 程 ， 该 执行 过 程 以 一 个 环境 为 参数 。 它 以 这 个 环境 作为 参数 ， 顺 序 地 调用 各 个 独立 的 
执行 过 程 。 

(define (analyze-sequence exps) 

(define (sequentially procl proc2) 
(lambda (env) (procl env) (proc2 env))) 
(define (loop first-proc rest-procs) 
(if (null? rest-procs) 
first-proc 
(loop (sequentially first-proc (car rest-procs)) - 
(cdr rest-—procs)))) 
(let ((procs (map analyze exps) )) 
(if (null? procs) 
(error "Empty sequence -- ANALYZE") ) 
(loop {car procs) (cdr procs)))) 


为 了 分 析 一 个 过 程 应 用 ， 我 们 就 需要 分 析 其 中 的 运算 符 和 运算 对 象 ， 并 构造 出 一 个 执行 
过 程 ， 它 能 调用 运算 符 的 执行 过 程 (获得 实际 需要 应 用 的 哪个 过 程 ) 和 运算 对 象 的 执行 过 程 
(获得 实际 参数 ) 。 而 后 我 们 将 这 些 送 给 execute-app1lication， 这 一 过 程 与 4.1.1 节 的 
app1y 类 似 。execute-application 与 apP1Y 的 不 同 之 处 ， 在 于 这 里 作为 复合 过 程 的 过 
程 体 已 经 过 分 析 ， 因 此 不 再 需要 做 进一步 的 分 析 了 。 此 时 只 需要 在 扩充 的 环境 里 调用 过 程 体 
的 执行 过 程 。 四 

(define (analyze-application exp) 

(let ((fproc (analyze (operator exp) )) 
(aprocs (map analyze (operands exp)))) 
(lambda (env) 
(execute-application (fproc env) 
(map (lambda (aproc) (aproc env)) 
aprocs))))} | 


(define (execute-application proc args) — 
(cond ((primitive-procedure? proc) 
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(apply-primitive-procedure proc args) ) 
((compound-procedure? proc) 
((procedure-—body proc) 
(extend-environment (procedure-parameters proc) 
args ' 
(procedure-environment proc)))) 


(else 
(error 
"Unknown procedure type -- EXECUTE-APPLICATION" 
proc)))) 
我 们 的 新 求 值 器 所 使 用 的 数据 结构 、 语 靶 过 程 和 运行 支持 过 程 与 4.1.2 节 、4.1.3 节 和 4.1.4 
方 中 的 完全 一 样 。 


练习 4.22 ”请 扩充 本 节 的 求 值 器 ， 使 之 能 支持 特殊 形式 1et (参见 练习 4.6 ) 。 

练习 4.23 Alyssa P. Hacker 不 能 理解 为 什么 analyze-sequence 需 要 如 此 复杂 ， 而 所 有 
其 他 的 分 析 过 程 都 是 4.1.1 节 里 的 对 应 求 值 过 程 (或 者 eval 子 句 ) 的 直接 变换 。 她 所 想象 的 
analyze-sequence 大 臻 具有 下 面 的 样子 : 


(define (analyze-sequence exps) 
(define (execute-sequence procs env) 
(cond ((null? (cdr procs)) ((car procs) env)) 
(else (({car procs) env) 
(execute-sequence (cdr procs) env)))) 
{let ((procs (map analyze exps))) 
(if (null? procs) 
{error "Empty sequence -- ANALYZE") ) 
(lambda (env) (execute-sequence procs env)))) 


Eva Lu Ator 给 Alyssa 解 释 说 ， 正 文中 给 出 的 版 本 在 分 析 阶 段 完成 了 序列 求 值 中 更 多 的 工作 。 
Alyssa 的 序列 求 值 过 程 并 没有 去 调用 内 部 建立 的 各 个 求 值 过 程 ， 而 是 循环 地 通过 一 个 过 程 去 调 
用 它们 。 从 效果 看 ， 虽 然 序列 中 各 个 表达 式 都 经 过 了 分 析 ， 但 整个 序列 本 身 却 没有 分 析 。 

请 对 这 两 个 analLyze-sequence 版 本 做 一 个 比较 。 例 如 ， 考 虑 一 种 常见 的 情况 (典型 
的 过 程 体 )， 其 中 的 序列 只 有 一 个 表达 式 。 由 Alyssa 的 程序 产生 的 执行 过 程 将 会 做 些 什么 ? 由 
上 面 正文 中 的 程序 产生 的 执行 过 程 又 怎么 样 呢 ?两 个 版 本 在 一 个 包含 两 个 表达 式 的 序列 上 的 
工作 比较 如 何 ? | 

练习 4.24 ”请 设计 并 完成 一 些 试 验 ， 比 较 原 来 的 元 循环 求 值 器 和 本 节 的 这 个 版 本 的 速度 。 
用 你 的 结果 评估 各 种 过 程 在 分 析 阶段 和 执行 阶段 所 花费 的 时 间 的 比例 。 


4.2 Scheme 的 变形 一 一 情 性 求 值 


有 了 一 个 以 Lisp 程 序 形式 描述 的 求 值 器 ， 我 们 现在 就 可 以 通过 简单 地 修改 这 一 求 值 器 ， 
试验 一 些 语言 设计 的 选择 和 变化 。 确 实 ， 发 明 新 的 语言 ， 常 常 就 是 先 用 一 种 现 有 的 高 级 程序 
设计 语言 写 出 一 个 娆 入 了 这 个 新 语言 的 求 值 器 。 举 例 来 说 ， 如 果 我 们 希望 与 Lisp 社 团 的 其 他 
成 员 讨 论 对 Lisp 提 出 的 某 些 修改 ， 那么 就 可 以 提供 一 个 体现 了 这 些 修 改 的 求 值 器 。 接 收 者 可 
以 用 这 个 新 求 值 器 做 一 些 试 验 ， 而 后 送 回 一 些 评 论 意 见 供 进一步 修改 。 高 层次 的 实现 基础 不 
仅 使 我 们 更 容易 测试 求 值 器 ， 排 除 其 中 的 错误 ， 进 一 步 说 ， 这 种 戏 入 也 使 设计 者 能 从 基础 语 
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构 那 样 。 只 有 到 了 后 来 (如 果 需 要 的 话 ) ， 设 计 者 才 需 要 进一步 去 面 对 在 某 个 低级 语言 或 者 硬 
件 中 做 出 一 个 完整 实现 的 麻烦 事情 。 在 本 节 和 后 面 几 节 里 ， 我 们 将 探究 Scheme 的 几 种 变形 ， 
它们 都 提供 了 明显 的 额外 描述 能 力 。 


4.2.1 正则 序 和 应 用 序 


.在 1.1 节 里 开始 讨论 求 值 模型 时 ， 我 们 就 说 Scheme 是 一 个 采用 应 用 序 的 语言 ， 也 就 是 说 ， 
在 过 程 应 用 的 时 候 ， 提 供给 Scheme 过 程 的 所 有 参数 都 需要 完成 求 值 。 与 此 相反 ， 采 用 正则 
序 的 语言 将 把 对 过 程 参数 的 求 值 延 后 到 需要 这 些 实际 参数 的 值 的 时 候 。 将 过 程 参 数 的 求 值 拖 
延 到 最 后 的 可 能 时 刻 (也 就 是 说 ， 直 至 某 些 基 本 操作 实际 需要 它们 的 时 刻 ) 也 被 称 为 惰性 求 
值 26。 考 虑 过 程 : | 

(define (try a b) 

. (if (= a 0) 1 b)) 
对 于 (try 0 (/ 1 0)) 的 求 值 将 在 Scheme 里 产生 一 个 错误 ， 而 对 于 情 性 求 值 就 不 会 出 错 。 
在 那里 对 这 个 表达 式 求 值 将 返回 1 ， 因 为 参数 (/ 1 0 ) 根本 不 会 被 求 值 。 

下 面 过 程 unless 的 定义 是 另 一 个 利用 情 性 求 值 的 例子 ; 


(define (unless condition usual-value exceptional-value) 
(if condition exceptional-value usual-value) ) 


它 可 以 用 在 下 面 这 样 的 表达 式 里 : 
(unless (= b 0) 
(/ ab) 
(begin (display "exception: returning 0") 
0)) | E 
在 采用 应 用 序 的 语言 里 ， 这 样 做 就 不 行 了 ， 因 为 在 unless 被 调用 之 前 ， 这 里 的 正常 值 和 异 
常 值 都 会 被 求 值 (请 与 练习 1.6 比 较 一 下 )。 情 性 求 值 的 一 个 优点 就 是 使 某 些 过 程 《例如 
unless) 能 够 完成 有 用 的 计算 ， 即 使 对 它们 的 某 些 参数 的 求 值 将 产生 错误 甚至 根本 不 能 终 
IE. | 
如 果 在 某 个 参数 还 没有 完成 求 值 之 前 就 进入 一 个 过 程 的 体 ， 我 们 就 说 这 一 过 程 相 对 于 该 
参数 是 非 严 格 的 。 如 果 在 进入 过 程 体 之 前 某 个 参数 已 经 完成 求 值 ， 我 们 就 说 该 过 程 相对 于 这 
个 参数 为 严格 的 27。 在 一 个 纯 的 应 用 序 语 言 里 ， 所 有 的 过 程 相对 于 每 个 参数 都 是 广 格 的 。 而 
在 一 个 纯 的 正则 序 语 言 里 ， 所 有 的 复合 合 过 程 对 每 个 参数 都 是 非 严格 的 ， 而 基本 过 程 可 以 是 严 
格 的 ， 也 可 以 是 非 严格 的 。 也 存在 一 些 语 言 (参见 练习 4.31)， 它 们 允许 程序 员 对 自己 定义 的 


235 抄录 ,“ 抄 取 ， 特 别 是 对 很 大 的 文 档 或 者 材料 ， 目 的 就 是 使 用 它 ， 无 论 是 得 到 或 者 没有 得 到 其 拥有 者 的 允许 。” 
WR: “抄录 ， 有 时 还 包含 着 吸收 、 处 理 的 理解 之 意 ， ” (这 些 定义 抄录 自 Steele et al. 1983, ， 也 见 Raymond 
1993 a) 

26 术语 “ 情 性 ”和 正则 序 ” 之 间 的 差异 有 时 会 使 人 感到 有 些 困 葡 。 一 般 说 ,“ 情 性 ” 指 的 是 特定 求 值 器 里 的 
有 关机 制 ， 而 “正则 序 ” 指 的 是 语言 的 语义 ， 与 特定 的 求 值 策略 无 关 。 当然 ， 这 并 不 是 黑白 分 明 的 划分 ， 两 
种 说 法 也 常常 被 相互 替代 地 使 用 。 

_ 20 “严格 ”和 “ 非 严格 ”的 术语 基本 上 表示 了 与 “应 用 序 ” 和 “正则 序 ” 同 样 的 意思 ， 但 是 它们 针对 的 是 个 别 
的 过 程 和 参数 ， 而 不 是 针对 整个 语言 。 在 一 个 有 关 程 序 设计 语言 的 会 议 上 ; 你 可 能 会 听 到 某 人 说 ,“ 正 则 序 
语言 Hassle 包含 了 一 些 严 格 的 基本 过 程 。 其 他 过 程 以 情 性 求 值 的 方式 处 理 其 参数 。” : 
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过 程 的 严格 性 做 细节 的 控制 。 

将 过 程 做 成 非 严格 的 也 可 能 很 有 用 ， 一 个 特别 使 人 印象 深刻 的 例子 就 是 cons (或 者 一 般 
地 说 ， 任 何 数据 结构 的 构造 函数 )。 这 样 ， 我 们 就 可 以 在 甚至 还 不 知道 元 素 的 值 的 情况 下 ， 就 
去 完成 一 些 有 用 的 计算 ， 将 元 素 组 合 起 来 形成 数据 结构 ， 并 对 得 到 的 数据 结构 做 各 种 操作 。 
这 确实 非常 有 意义 。 举 例 来 说 ， 这 样 就 可 以 在 不 知道 一 个 表 里 的 元 素 值 的 情况 下 计算 表 的 长 
度 。 我 们 将 在 4.2.3 节 利用 这 一 思想 ， 把 第 3 章 的 流 实现 为 由 非 严格 的 cons 序 对 构成 的 表 。 


练习 4.25 BE (在 常规 的 应 用 序 的 Scheme 里 ) 定义 了 如 上 所 示 的 0n1less ， 而 后 基于 
unless 将 Eactorial 定 义 为 : 


(define (factorial n) 
(unless (=n 1) 
(* n (factorial (- n 1))) 
1)) 
在 企图 计算 (factorial 5) 时 会 出 现 什么 问题 ?上述 定 义 在 正则 序 语言 里 能 够 工作 
吗 ? 
练习 4.26 Ben Bitdiddle fpAlyssa P. Hacker 对 于 在 实现 诸如 un1Less 一 类 东 西 中 惰性 求 值 
的 重要 性 有 不 同意 见 。Ben 指 出 ， 有 可 能 在 应 用 序 语言 里 将 unless 实现 为 一 个 特殊 形式 。 
Alyssa 则 反对 这 一 说 法 ， 认 为 如 果真 的 那样 做 ，unless 就 将 只 是 一 种 语法 形式 而 不 是 一 个 过 
程 了 ， 因 而 就 不 能 与 高 阶 过 程 结合 在 一 起 工作 。 请 为 这 两 种 论述 填充 一 些 细节 : 证 明 可 以 如 
何 将 unless 实 现 为 一 种 派生 表达 式 (就 像 cond 或 者 let) ， 再 给 出 一 种 情况 作为 实例 ， 说 
明 如 果 unless 可 以 用 作 一 个 过 程 而 不 是 特殊 形式 ， 在 这 一 情况 里 就 可 以 使 用 。 


4.2.2 一 个 采用 情 性 求 值 的 解释 器 


在 这 一 节 里 ， 我 们 将 要 实现 一 种 正则 序 语 言 ， 它 与 Scheme 完全 相同 ， 但 是 其 中 的 复合 过 
程 对 任何 参数 都 是 非 严格 的 。 基 本 过 程 将 仍然 是 严格 的 。 修 改 4.1.1 节 的 求 值 器 ， 使 它 能 按照 
这 种 方式 解释 程序 ， 这 一 工作 并 不 困难 。 需 要 完成 的 所 有 修改 都 围绕 着 过 程 应 用 。 

这 里 的 基本 想法 就 是 ， 在 应 用 一 个 过 程 时 ， 解 释 器 必须 确定 哪些 参数 需要 求 值 ， 哪 些 应 
该 延 时 求 值 。 对 于 这 些 延 时 的 参数 都 不 进行 求 值 ， 相 反 ， 这 里 将 它们 变换 为 一 种 称 为 楼 
(thunk) 的 对 象 28。 在 槽 里 必须 包含 着 为 了 产生 这 一 参数 的 值 (在 需要 这 个 值 的 时 候 ) 所 需 
要 的 全 部 信息 ， 就 像 它 已 经 在 应 用 时 求 出 值 一 样 。 为 此 ， 槽 中 就 必须 包括 参数 表达 式 ， 以 及 
这 一 过 程 应 用 的 求 值 所 在 的 那个 环境 。 

对 槽 中 的 表达 式 求 值 的 过 程 称 为 强迫 23?。 一 般 而 言 ， 只 有 在 需要 一 个 槽 的 值 时 才 会 去 强 
迫 它 ， 这 包括 : 在 将 它 送 给 一 个 基本 过 程 ， 而 基本 过 程 需要 用 这 个 值 时 ， 当 它 是 某 个 条 件 表 
达 式 的 谓词 的 值 时 ， 当 它 是 某 个 运算 符 的 值 ， 而 现在 需要 将 它 作为 一 个 过 程 去 应 用 时 。 现 在 
要 处 理 的 一 个 选择 是 采用 或 者 不 采用 记忆 性 的 槽 ， 就 像 前 面 在 3.5.1 节 对 延 时 对 象 所 做 的 那样 。 
有 了 记忆 之 后 ， 一 旦 某 个 槽 第 一 次 被 强迫 ， 它 就 保存 起 计算 出 的 值 。 随 后 的 强迫 只 需要 简单 


238 术语 糟 是 一 个 非 正式 的 工作 组 在 讨论 Algol 60 中 命名 调用 机 制 的 实现 时 发 明 的 。 他 们 看 到 ， 有 关 表 达 式 的 大 
部 分 分 析 (“思考 ”) 都 能 在 编译 时 完成 ， 这 样 到 运行 时 ， 表 达 式 已 经 被 上 模 了 (Ingerman etal. 1960), 
”239 这 与 对 于 延 时 对 象 的 force 的 用 法 类 似 ,第 3 章 引进 了 这 种 对 象 ， 用 于 表示 流 。 我 们 在 这 里 所 做 的 与 在 第 3 章 
所 做 的 之 间 的 根本 差异 ， 就 在 于 现在 是 要 把 延 时 和 强迫 构筑 到 求 值 器 里 ， 这 将 使 我 们 能 在 整个 语言 里 统一 地 
使 用 这 些 机 制 。 
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地 返回 其 中 保存 的 值 ， 不 必 重复 去 做 计算 。 我 们 将 把 这 个 解释 器 做 出 带 记 忆 的 ， 因 为 对 于 大 
部 分 应 用 而 言 ， 这 各 方式 更 加 高 效 。 当 然 ， 这 里 也 存在 着 一 些 很 难处 理 的 问题 2 。 


修改 求 值 器 

惰性 求 值 器 与 4.1.1 节 中 的 求 值 器 之 间 的 最 重要 不 同 点 ， 就 在 于 eval 和 apply 里 对 过 程 应 
用 的 处 理 。 | 

eval 里 的 application? 子 名 现在 变 成 了 


((application? exp) 

(apply (actual-value (operator exp} env) 
(operands exp) 
env) ) 


这 几乎 与 4.1.1 节 里 eval 的 application? 子 句 一 模 一样。 不 过 ， 对 于 情 性 求 值 ， 我 们 是 用 
运算 对 象 表达 式 去 调用 app1Ly ,而 不 是 用 对 它们 求 值 产生 出 的 实际 参数 。 因 为 现在 参数 求 值 
已 经 延 时 进行 了 ， 而 且 构 造 槽 的 时 候 需要 用 到 环境 ， 因 此 也 必须 传递 它 。 这 里 还 是 要 对 运算 
符 求 值 ， 因 为 apply 需 要 被 实际 应 用 的 那个 过 程 ， 以 便 根 据 其 类 型 去 分 派 并 应 用 它 。 

无 论 何 时 ， 只 要 我 们 需要 某 个 表达 式 的 实际 值 RA | 


(define (actual-value exp env) 
(force-it (eval exp env))) | 
而 不 能 只 用 eval ， 这 样 ， 如 果 这 个 表达 式 的 值 是 一 个 模 ， 它 就 会 被 强迫 求 出 值 来 。 
我 们 新 版 本 的 app1LY 也 几乎 与 4.1.1 节 里 的 一 样 。 不 同 之 处 在 于 送 给 eval 的 是 未 经 求 值 的 
运算 对 象 表达 式 : 对 于 基本 过 程 (它们 是 严格 的 ) ， 我 们 需要 在 应 用 这 些 过程 之 前 求 值 有 关 的 
参数 ， 对 于 复合 过 程 (它们 非 严 格 ) ， 就 在 应 用 这 些 过 程 时 拖延 对 所 有 参数 的 求 值 。 
(define (apply procedure arguments env) | . 
(cond ((primitive-procedure? procedure) 
(apply-primitive-procedure 
procedure 
(list-of-arg-values arguments env}))) ; changed 
((compound-procedure? procedure) 
(eval-sequence 
(procedure-body procedure) 
(extend-environment 
(procedure-parameters procedure) 
(list-of-delayed-args arguments env) ; changed 
(procedure-environment procedure)))) 
(else 
(error 
"Unknown procedure type -- APPLY" procedure) ))) 


处 理 参 数 的 过 程 就 像 4.1.1 节 里 的 LIist-otf-values ， 但 List-of-delayed-args 也 延 时 
有 关 的 参数 而 不 是 求 值 它 们 ， 而 且 1ist-of-arg-values 用 的 是 actual-value 而 不 是 


240 情 性 求 值 与 记忆 性 的 组 合 有 时 被 称 为 按 需 调用 的 参数 传递 ， 与 按 名 调用 相对 应 ( 按 名 调用 由 Algol 603 引 进 ， 
类 似 于 不 带 记 忆 的 情 性 求 值 )。 作 为 语言 设计 者 ， 我 们 可 以 构造 自己 的 求 值 器 ， 使 之 带 有 记忆 ， 或 者 不 带 记 
忆 ， 或 者 将 这 一 问题 留 给 程序 员 (练习 4.31 )。 正 如 你 根据 第 3 章 可 以 想到 的 ， 如 果 在 这 里 出 现 赋值 ， 这 些 选 
择 将 会 引出 一 些微 妙 而 且 迷 惑 人 的 问题 (参见 练习 4.27 和 4.29)。 有 一 篇 极 好 的 文章 (Clinger 1982) 曾 试图 
淤 清 这 里 产生 的 混乱 ， 理 出 其 中 的 头绪 。 
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eval. 


(define (list-of-arg-values exps env) 
(if (no-operands? exps) 
"() 
(cons (actual-value (first-operand exps) env) 
(list-of-arg-values (rest-operands exps) 
env)))) 


(define (list-of-delayed-args exps env) 
(if (no-operands? exps) 
0) 
(cons (delay-it (first-operand exps) env) 
(list-of-delayed-args (rest-operands exps) 
env)))) 


求 值 器 里 另 一 个 必须 修改 的 地 方 是 对 if 的 处 理 ， 在 这 里 我 们 必须 用 actual-value 取 代 
eval ， 以 便 在 测试 真 或 者 假 之 前 取得 谓词 表达 式 的 值 : 


(define (eval-if exp env) 
(if (true? (actual-value (if-predicate exp) env)) 
(eval (if-consequent exp) env) - 
(eval (if-alternative exp) env))) 


最 后 ， 我 们 还 必须 修改 driver-1locp 过 程 ( 见 4.1.4 节 ) ， 在 其 中 用 actual1-value 代 替 
eval ， 这 就 使 得 当 延 时 的 值 传播 回 到 读 入 一 求 值 一 打印 循环 时 ,在 打印 之 前 将 强迫 对 它们 求 
值 。 我 们 还 修改 了 提示 符 ， 以 表明 这 是 一 个 惰性 求 值 器 : 


(define input-prompt ";;; L-Eval input:") 
(define output-prompt ";;; L-Eval value:") 


(define (driver-loop) 
(prompt-for-input input-prompt) 
(let ((input (read))) 
{let ((output 
(actual-value input the-global-environment) ) ) 

(announce-output output-prompt ) 
(user-print output) )) 

(driver-loop) ) 


做 完了 这 些 修改 之 后 ， 就 可 以 启动 这 个 求 值 器 并 测试 它 了 。 对 4.2.1 节 里 讨论 的 trY 表 达 
式 的 成 功 求 值 表明 这 个 解释 器 确实 是 在 做 惰性 求 值 : | 


(define the-global-environment (setup-environment) ) 


(driver-loop) 


733; L-Eval input: 
(define (try a b) 

(if (= a 0) 1 B)) 
;+ L-Eval value: 
ok 


33 L-Eval input: 
(try 0 (/ 1 0)) 
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33 L-Eval value: 
1 


WORT 
我 们 必须 设法 对 这 个 求 值 器 做 一 些 安 排 ， 使 它 能 在 将 过 程 应 用 于 参数 时 创建 有 关 的 槽 ， 
并 能 在 以 后 强迫 这 些 槽 的 求 值 。 一 个 槽 必须 包装 起 一 个 表达 式 和 一 个 环境 ， 以 便 在 后 来 可 以 
生成 相应 的 实际 参数 。 在 强迫 一 个 槽 求 值 时 ， 只 需 简 单 从 槽 中 提取 出 表达 式 和 环境 ， 并 在 此 
环境 里 对 表达 式 求 值 。 这 里 也 应 该 用 actual-value 而 不 是 eval ， 如 果 表 达 式 的 值 本 身 仍 
然 是 一 个 槽 ， 那 么 就 还 需要 强迫 它 ， 并 这 样 继续 下 去 ， 直 到 得 到 某 个 不 是 槽 的 东西 为 止 : 
(define (force-it obj) 
(if (thunk? obj) 
(actual-value (thunk-exp obj) (thunk-env obj)) 
obj)) 
包装 起 一 个 表达 式 和 一 个 环境 的 最 简单 方式 是 做 出 一 个 表 ， 其 中 包含 着 这 个 表达 式 和 对 
应 的 环境 。 这样 ， 我 们 可 以 用 如 下 方式 创建 槽 ; 


(define (delay-it exp env) 
(list ’thunk exp env) ) 


(define (thunk? obj) 
(tagged-list? obj ‘thunk)) 


(define (thunk-exp thunk) (cadr thunk)) 


(define (thunk-env thunk) (caddr thunk) ) 


KE, BUGS AEE EH HE, EB ici. ST oe 
迫 求 值 时 ， 我 们 就 将 它 转变 为 一 个 已 求 值 的 槽 ， 将 其 中 的 表达 式 用 相应 的 值 取代 ， 并 改变 其 
thunk 标 志 ， 以 便 能 识别 出 它 是 已 经 求 过 值 的 ”， 


(define (evaluated-thunk? obj) 
(tagged-list? obj ’evaluated-thunk) ) 


(define (thunk-value evaluated-thunk) (cadr evaluated-thunk) ) 


(define (force-it obj) 
(cond ({(thunk? obj) 
(let ((result (actual-value 
{thunk-exp obj) 
({thunk-env obj)))) 
(set-car! obj ‘evaluated-thunk) 


(set-car! (cdr obj) result) ; replace exp with its value 
(set-cdr! (cdr obj) °()) ; forget unneeded env 
result) ) 


((evaluated-thunk? obj) 


24 注意 ; —HE-THBORARCR HAE, Ek BRA PIM env, ROT HPS BIE 
有 任何 影响 ， 只 是 有 助 于 节约 空间 ， 因 为 从 槽 中 删除 对 env 的 引用 ， 一 且 这 一 对 象 不 再 需要 ， 有 关 的 结构 就 
可 以 被 废料 收集 ， 其 空间 就 能 回收 ， 如 我 们 在 5.3 节 将 要 讨论 的 。 

与 此 类 似 ， 在 3.5.1 节 里 ， 也 可 以 对 记忆 了 的 延 时 对 象 中 不 再 需要 用 的 环境 做 废料 收集 ， 方 法 就 是 让 
memo-proc 在 保存 了 自己 的 值 之 后 ， 做 某 种 像 (set! proc “0) 一 类 的 事情 ， 抛 弃 其 中 的 过 程 Proc (E 
包含 了 一 个 环境 ， 以 便 qelay 在 那里 求 值 )。 
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(thunk-value obj) ) 
(else obj))) 


请 注意 ， 同 一 个 delay-it 过 程 对 于 有 记忆 或 者 没有 记忆 的 情况 都 能 工作 。 
练习 4.27 ”假定 我 们 将 下 面 定 义 送 给 惰性 求 值 器 : 


(define count 0) 


(define (id x) 
(set! count (+ count 1)) 


x) 
请 给 出 下 面 交互 序列 中 空缺 的 值 ， 并 解释 你 的 回答 一 。 
(define w (id (id 10))) 


;;; L-Eval input: 
count 
;;;»; L-Eval value: 


<response> 


23° L-Eval input: 
wW 

;;; L-Eval value: 
<response> 

2:3 L-Eval input: 
count 

::3; L-Eval value: 


<response> 
练习 4.28 eval 在 把 运算 符 送 给 apPlY 之 前 ， 是 采用 actual-value 而 不 是 eval 去 求 
值 它 ， 以 便 强迫 得 到 运算 符 的 值 。 请 给 出 一 个 例子 ， 说 明 在 这 里 必须 这 样 强迫 求 值 。 


练习 4.29 “请 展示 一 个 程序 ， 按 照 你 的 预期 ， 如 果 没 有 记忆 功能 ， 它 的 运行 会 比 有 记忆 功 
能 时 慢 得 多 。 此 外 ， 请 考虑 下 面 的 交互 ， 其 中 的 id 过 程 在 练习 4.27 里 定义 ，count 从 0 开始 : 


(define (square x) 
(* x X)) 

:;; L-Eval input: 

(square (id 10)) 

::; L-Eval value: 

<response> 

22; L-Eval input: 

count 

2:3; L-Eval value: 


<response> 
请 给 出 在 有 或 者 没有 记忆 功能 时 求 值 器 的 反应 。 

练习 4.30 Cy D. Fect 以 前 是 个 C 程 序 员 ， 他 担心 程序 的 某 些 副 作用 根本 就 不 能 实现 ， 因 
为 惰性 求 值 器 并 不 强迫 一 个 序列 里 的 某 些 表达 式 求 值 。 这 是 因为 在 一 个 序列 里 ， 除 了 最 后 一 


24 这 个 练习 说 明 ， 在 惰性 求 值 和 副作用 之 间 的 相互 作用 是 非常 迷惑 人 的 。 这 也 应 该 是 你 根据 第 3 章 的 讨论 可 以 
想到 的 情况 。 
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个 表达 式 之 外 ， 其 他 表达 式 的 值 都 没有 用 到 (这 些 表 达 式 仅仅 提供 自己 的 效果 ， 例 如 给 某 个 
变量 赋值 或 者 打印 输出 ) ， 随 后 也 完全 可 能 因为 不 会 用 到 这 些 值 ( 例 如， 将 它们 用 作 某 个 基本 
过 程 的 参数 ) 而 不 会 强迫 对 它们 求 值 。 因 此 Cy 就 想 ， 在 求 值 一 个 序列 时 ， 我 们 必须 强迫 序列 
中 除了 最 后 表达 式 之 外 的 所 有 表达 式 求 值 。 他 为 此 提议 修改 取 自 4.1.1 节 的 eval-sequence， 
其 中 采用 actual-value 而 不 是 eval: 
(define (eval-sequencé exps env) 
(cond ((last-exp? exps) (eval (first-exp exps) env) ) 
(else (actual-value (first-exp exps) env) 
(eval-sequence (rest-exps exps) env)))) 
a) Ben Bitdiddle 认 为 Cy 的 看 法 不 对 。 他 给 Cy 演示 了 2.23 节 中 描述 的 for~each 过 程 ， 这 
是 一 个 重要 的 带 有 副作用 的 序列 的 例子 : 
(define (for-each proc items) 
(if (null? items) 
*done 
(begin (proc (car items) ) 
(for-each proc (cdr items))))) 


他 断言 说 ， ARATE X PHIR Ba (采用 原来 的 eval-seguence ) 能 够 正确 处 理 : 


;;; L-Eval input: 

(for-each (lambda (x) (newline) (display x)) 
(list 57 321 88)) 

57 

321 

88 

+33 L-Eval value: 

done 


请 解释 为 什么 Ben 关 于 for-each 行 为 的 说 法 是 正确 的 。 
b) Cy 同意 Ben 关 于 for-each 实 例 的 看 法 ， 但 是 他 说 ， 这 并 不 是 他 在 提议 修改 eval- 
sequence 时 所 考虑 的 那 一 类 程序 。 他 在 情 性 求 值 器 里 定义 了 下 面 两 个 过 程 : 


(define (pli x) 
(set! x (cons x (2))) 


x) 


(define (p2 x) 
(define (p e) 
e 
x) 
(p (set! x (cons x °(2))))) 


对 于 原来 的 evalL-sequence，(pP1 1) 和 (p2 1) 的 值 将 会 是 什么 ? 对 于 按照 Cy 的 建议 修 
改 后 的 eval-sequence ， 这 两 个 表达 式 的 值 又 会 是 什么 2 

c) Cy 还 指出 ， 在 像 他 建议 的 那样 修改 了 eval-sequence 之 后 ， 对 于 a 中 那 种 实例 的 行 
为 不 会 有 影响 。 请 解释 为 什么 这 一 说 法 是 正确 的 。 

d) 你 认为 在 惰性 求 值 器 里 应 该 如 何 处 理 序列 的 问题 ? 你 喜欢 Cy 的 方法 ， 还 是 喜欢 正文 中 


的 方法 ， 或 者 其 他 什么 方法 ? 
练习 4.31 ”本 节 所 采取 的 途径 有 些 令 人 不 快 ， 因 为 它 对 Scheme 做 了 一 种 不 兼容 的 修改 。 
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将 情 性 求 值 实现 为 一 种 向 上 兼容 的 扩充 可 能 更 好 一 些 ， 也 就 是 说 ， 使 常规 的 Scheme 还 能 像 原 
来 一 样 工作 。 我 们 可 以 通过 扩充 过 程 定 义 的 语法 的 方式 达到 这 种 目的 ， 使 用 户 可 以 控制 是 否 
让 参数 延 时 。 在 考虑 这 种 做 法 时 ， 我 们 还 可 以 进一步 允许 用 户 在 延 时 参数 是 否 记忆 方面 做 出 
选择 。 举 例 来 说 ， 定 义 : | 
(define (f a (b lazy) c (d lazy-memo) ) 
ee) 


将 f 定 义 为 一 个 包含 4 个 参数 的 过 程 ， 其 中 的 第 一 个 和 第 三 个 参数 在 过 程 调用 时 求 值 ， 第 二 个 
参数 延 时 求 值 ， 第 四 个 参数 延 时 并 记忆 。 这 样 ， 常 规 的 过 程 定义 将 产生 与 常规 Scheme 完 全 一 
样 的 行为 ， 而 如 果 给 每 个 复合 过 程 的 各 个 参数 都 加 上 lazy-memo 声明， 就 能 产生 出 与 本 贡 定 
义 的 情 性 求 值 器 一 样 的 行为 。 请 设计 并 实现 上 述 修改 ， 做 出 一 个 这 样 的 Scheme 扩充 。 你 将 需 
要 去 实现 新 的 语法 过 程 ， 以 处 理 define 的 新 语法 形式 。 你 还 必须 重新 安排 eval 或 者 apP1ly， 
以 确定 什么 时 候 参 数 是 被 延 时 的 ， 并 根据 情况 强迫 或 者 延 时 有 关 的 参数 。 你 也 必须 对 记忆 与 
否 做 出 适当 的 安排 。 


42.3 将 流 作为 情 性 的 表 


在 3.5.1 节 里 ， 我 们 说 明了 如 何 将 流 实 现 为 一 种 延 时 的 表 。 当 时 引进 了 特殊 形式 delay 和 
cons-stream， 它 们 能 用 于 构造 出 一 个 能 用 于 计算 流 的 cdr 的 “允诺 ”， 在 实际 需要 之 前 不 
必 去 落实 这 种 允诺。 如果 我 们 需要 对 求 值 过 程 的 更 多 控制 ， 那么 就 可 以 利用 这 种 引进 特殊 形 
式 的 一 般 性 技术 ， 但 这 种 做 法 并 不 令 人 满意 。 从 一 个 方面 看 ， 特 殊 形 式 并 不 像 过 程 ， 它 们 不 
是 一 阶 的 对 象 ， 因 此 我 们 无 法 将 它们 与 高 阶 过 程 一 起 使 用 33 。 此 外 ， 我 们 还 不 得 不 把 流 创 建 
为 一 类 新 的 对 象 ， 与 表 类 似 但 又 不 一 样 ， 这 也 就 要 求 我 们 去 重新 实现 许多 常规 的 表 操作 (如 
map, append), IERE H CIMFR. 

有 了 情 性 求 值 之 后 ， 流 和 表 就 完全 一 样 了 ， 所 以 也 就 不 再 需要 任何 特殊 形式 ， 也 不 再 需 
要 区 分 表 操 作 和 流 操 作 。 我 们 需要 做 的 全 部 事情 就 是 做 好 一 些 安排 ， 设 法 使 cons 成 为 非 严格 
的 。 完 成 这 件 事 的 一 种 方式 是 扩充 惰性 求 值 器， 人 允许 非 严 格 的 基本 过 程 ， 将 cons 实现 为 它们 
中 的 一 个 。 另 一 更 简单 的 方式 是 回忆 前 面 讨论 过 的 一 个 事实 ( 见 2.1.3 节 )， 完 全 可 以 不 把 
cons 实现 为 基本 过 程 。 换 种 方式 ， 我 们 可 以 把 序 对 表示 为 过 程 ?%: | 

(define (cons x y) 

(lambda (m) (m x y))) 

(define (car zZ) 


(z (lambda (p q) P))) 


(define (cdr 2) 
(z (lambda (p q) q))) 


利用 这 些 基本 操作 ， 各 种 表 操 作 的 标准 定义 也 将 同样 适用 于 无 穷 的 表 (W), ， 就 像 它们 可 
以 用 于 有 穷 的 表 一 样 。 流 操作 也 都 可 以 实现 为 表 操作 。 下 面 是 一 些 例子 : 


23 这 也 就 是 练习 4.26 里 unless 过 程 的 问题 。 

24 这 正 是 练习 2.4 中 所 描述 的 过 程 性 表示 。 从 本 质 上 说 ,任何 过 程 性 表示 都 可 以 用 《例如 ， 消息 传递 实现 ) 。 请 
注意 ,我 们 可 以 简单 地 把 这 些 定义 故 进 驱动 循环 里 ， 以 此 将 它们 安装 到 惰性 求 值 器 里 。 如 果 原来 已 将 cns、 
car 和 cdzr 作 为 全 局 环境 里 的 基本 过 程 ， 这 样 就 重新 定义 了 它们 ( 另 见 练习 4.33 和 练习 4.34)。 
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(define (list-ref items n) 
(if (=n 0) 
(car items) 
(list-ref (cdr items) (- n 1)})) 


(define (map proc items) 
(if (null? items) 
() 、 | 
(cons (proc (car items)) 
(map proc (cdr items))))) 


(define (scale~list items factor) 


(map (lambda (x) (* x factor)) 
items) ) 


(define (add-lists listl list2) 
(cond ((null? listl) list2) 
((null? List2) listi) 
(else (cons (+ (car listl) (car list2)) 
(add—-lists (cdr listl) (cdr list2)))))) 


(define ones (cons 1 ones) ) 
- (define integers (cons 1 (add-lists ones integers) ) ) 


777 L-Eval input: 
(list-ref integers 17) 
ss: L-Eval value: 

18 


”请 注意 ， 这 种 情 性 的 表 甚 至 比 第 3 章 里 的 流 更 加 情 性 :这 种 表 里 的 car 也 是 延 时 的 ， 与 其 
car 一 样 *3。 事 实 上 ， 其 至 在 访问 一 个 惰性 序 对 的 car 或 者 cr 时， 也 不 会 去 强迫 得 出 表 元 素 
的 值 。 只 有 在 真正 需要 的 时 候 才 会 强迫 得 到 它们 一 也 就 是 说 ， 在 被 用 作 基 本 过 程 的 参数 ， 
或 者 需要 作为 结果 打印 时 。 

惰性 序 对 对 于 3.5.4 节 中 由 于 流 而 引起 的 问题 也 很 有 帮助 ， 在 那里 我 们 看 到 ， 当 需要 用 一 
个 循环 做 出 系统 的 流 模型 时 ， 除 了 使 用 由 cons-stream 提 供 的 delay 操 作 外 ， 我 们 还 不 得 
不 在 程序 中 某 些 地 方 点 弘一 些 显 式 的 delay 操 作 。 有 了 情 性 求 值 之 后 ， 所 有 的 过 程 参数 就 无 
一 例外 都 是 延 时 的 了 。 举 例 说 ， 我 们 现在 可 以 按 3.5.4 节 原来 所 希望 的 方式 去 做 表 的 积分 ， 去 
求解 微分 方程 : 

(define (integral integrand initial-value dt) 

(define int 
(cons initial-value 
(add-lists (scale-list integrand dt) 


int))) 
int) 
(define (solve f y0 dt) 
(define y (integral dy y0 dt)) 
(define dy (map £ y)) 
oy) 


AS 这 将 使 我 们 能 够 创建 更 具 一 般 性 的 表 结构 的 延 时 版 本 ， 而 不 仅仅 是 序列 。Hughes 1990 中 讨论 了 “ 情 性 树 
的 某 些 应 用 。 
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>: L-Eval input: 

(list-ref (solve (lambda (x) x) 1 0.001) 1000) 
‘s+: L=-Eval value: 

2.716924 


练习 4.32 ”请 给 出 一 些 例子 ， 显示 在 第 3 章 的 流 与 本 节 描 述 的 “更 惰性 ”的 惰性 表 之 间 的 
不 同 。 你 可 能 怎样 利用 这 种 多 出 来 的 惰性 ? 
练习 4.33 Ben Bitdiddle 用 下 面 的 表达 式 测 试 了 上 面 给 出 的 情 性 表 实 现 


(car ’(a b c)) 


令 他 吃惊 的 是 ， 这 却 产生 出 一 个 错误 。 经 过 一 些 思考 之 后 ， 他 认识 到 ， 由 读 入 一 个 引号 
表达 式 而 得 到 的 “ 表 ” 与 Cons 、car 和 cdr 的 新 定义 操作 的 那 种 表 是 不 同 的 。 请 修改 求 值 器 
里 对 引号 表达 式 的 处 理 ， 使 得 驱动 循环 读 入 的 加 引号 的 表 能 够 产生 出 情 性 表 。 

练习 4.34 ”请 修改 求 值 器 的 驱动 循环 ， 使 得 惰性 序 对 和 表 能 以 某 种 合理 的 形式 打印 出 来 。 
(你 将 如 何 对 付 无 穷 表 ? ) 你 可 能 还 需要 修改 惰性 序 对 的 表示 ， GER fE ae RE TABI EN], 以 便 
完成 打印 工作 。 


4.3 Scheme 的 变形 一 一 非 确定 性 计算 


在 这 一 节 里 ， 我 们 将 扩展 Schenie 求 值 器 ， 以 便 支持 另 一 种 称 为 非 确定 性 计算 的 程序 设计 
范 型 。 这 里 采用 的 方式 是 将 一 种 支持 自动 搜索 的 功能 做 进 求 值 器 里 。 与 4.2 节 引进 惰性 求 值 相 
比 ， 对 语言 的 这 种 修改 的 意义 更 加 深远 。 | 

非 确 定性 计算 与 流 处 理 类 似 ， 对 于 “生成 和 检测 式 ” 的 应 用 特别 有 价值 。 作 为 开始 ， 现 
在 考虑 下 面 工作 : 有 一 对 正 整 数 的 表 ， 我 们 要 从 中 造 出 一 对 整数 一 一 其 中 一 个 取 自 第 一 个 表 ， 
另 一 个 取 自 第 二 个 表 一 一 它们 之 和 是 素数 。 在 2.2.3 节 里 我 们 已 经 看 过 如 何 通 过 有 限 序列 操作 
的 方式 解决 这 一 问题 ， 在 3.5.3 节 看 过 如 何 用 无 穷 流 。 所 采用 的 方式 都 是 生成 所 有 可 能 的 数 对 ， 
而 后 过 滤 出 那些 和 为 素数 的 数 对 。 无 论 我 们 是 像 在 第 2 章 里 那样 首先 实际 生成 出 数 对 的 序列 ， 
还 是 像 第 3 章 那样 换 一 种 方式 ， 交 错 式 地 生成 和 过 滤 ， 对 于 如 何 组 织 这 一 计算 过 程 的 基本 图 景 
都 没有 产生 任何 影响 。 

非 确 定性 的 方式 则 召唤 着 另 一 种 图 景 。 简单 设想 我 们 需要 (REKER) IE 
中 取 一 个 数 ， 并 (采用 同样 方式 ) 从 第 二 个 表 里 取 一 个 数 ， 使 它们 之 和 是 素数 。 这 件 事 可 以 
采用 下 面 过 程 描述 : 

(define (prime-sum-pair listl list2) 

(let ((a (an-element-of list1)) 
(b (an-element-of list2))) 
(require (prime? (+ a b))) 
(list a b))) 


看 起 来 这 个 过 程 就 像 是 问题 的 另 一 个 重新 陈述 ， 而 没有 描述 出 一 种 解决 它 的 方法 。 但 无 论 如 
何 ， 这 就 是 一 个 合法 的 非 确定 性 程序 “。 | 


46 我 们 假定 已 定义 了 过 程 prime? ， 它 能 检测 一 个 数 是 否 为 素数 MAT Prime? hz X, prime-sum- 
pair 过 程 看 起 来 也 非常 可 疑 ， 就 像 是 用 豪 无 帮助 的 “ 伪 Lisp” 企 图 去 定义 平方 根 过 程 ， 如 我 们 在 1.1…， 市 开 
始 时 所 说 的 那样 。 事 实 上 ， 求 平方 根 的 过 程 也 可 以 按照 这 条 路 线 ， 实 际 描述 为 一 个 非 确定 性 的 程序 。 通 过 将 
其 种 搜索 机 制 结合 进 求 值 器 里 ， 我 们 将 逐步 侵蚀 位 于 纯 的 说 明 性 描述 ， 和 有 关 计 算 机 将 如 何 给 出 回答 的 过 程 
性 描述 之 间 的 清晰 界限 。 在 4.4 节 里 ， 我 们 将 在 这 个 方向 上 深入 讨论 。 
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这 里 的 关键 想法 是 ， 在 一 个 非 确定 性 语言 里 ， 表 达 式 可 以 有 多 于 一 个 可 能 的 值 。 例 如 ， 
an-element-of 可 能 返回 一 个 给 定 表 里 的 任何 一 个 元 素 。 我 们 的 非 确 定性 程序 求 值 如 将 进 
行 有 关 的 工作 ， 从 中 自动 选 出 一 个 可 能 的 值 ， 并 维持 有 关 选 择 的 轨迹 。 如 果 随 后 的 要 求 无 法 
满足 ， 求 值 器 就 会 尝试 另 一 种 不 同 的 选择 ， 而 且 它 会 不 断 地 做 出 新 的 选择 ， 直 至 求 值 成 功 ， 
或 者 已 经 用 光 了 所 有 的 选择 。 正 如 情 性 求 值 器 可 以 使 程序 员 摆脱 有 关 值 如 何 延 时 或 者 强迫 的 
细节 一 样 ， 非 确定 性 的 求 值 器 将 使 程序 员 摆 脱 如 何 做 出 这 些 选 择 的 细节 。 

有 一 件 很 有 教 益 的 事情 ， 那 就 是 将 非 确定 性 求 值 和 流 处 理 中 引起 的 不 同时 间 图 最 做 一 个 
比较 。 流 处 理 中 利用 了 惰性 求 值 ， 设 法 去 松 驰 装配 出 可 能 回答 的 流 的 时 间 与 实际 的 流 元 素 产 
生出 来 的 时 间 之 间 的 关系 。 这 种 求 值 器 支持 这 样 一 种 错觉 ， 好 像 所 有 可 能 的 结果 都 以 一 种 无 
时 间 顺 序 的 方式 摆 在 我 们 面前 。 对 于 非 确定 性 的 求 值 ， 一 个 表达 式 表示 的 是 对 于 一 集 可 能 世 
界 的 探索 ， 其 中 的 每 一 个 都 由 一 集 选 择 所 确定 。 某 些 可 能 世界 将 走 和 人 死胡同， 而 另 一 些 里 则 
保存 着 有 用 的 值 。 非 确定 性 程序 求 值 器 支持 另 一 种 假 相 : 时 间 是 有 分 支 的 ， 而 我 们 的 程序 里 
保存 着 所 有 可 能 的 不 同 执行 历史 。 在 遇 到 一 个 死胡同 时 ， 我 们 总 可 以 回 到 以 前 的 某 个 选择 点 ， 
并 沿 着 另 一 个 分 支 继 续 下 去 。 | 

下 面 将 要 实现 的 非 确定 性 程序 求 值 器 称 为 amb 求 值 器 ， 因 为 它 基 于 一 个 称 为 amb 的 新 特殊 
形式 。 我 们 可 以 将 上 面 那样 的 prime-sum-paiz 定 义 送 给 这 一 求 值 器 的 驱动 循环 (还 需要 送 
上 prime?、an-element-of 和 require 的 定义 ) ， 并 得 到 下 面 这 样 的 过 程 运 行 : 

;;; Amb-Eval input: 

(prime-sum-pair °(1 3 5 8) (20 35 110)) 

se: Starting a new problem 

;;; Amb-Eval value: 

(3 20) 

能 够 得 到 这 里 的 返回 值 ， 是 由 于 求 值 器 将 会 反复 地 从 两 个 表 里 选 出 一 对 一 对 元 素 ， 直 至 做 出 
了 一 次 成 功 的 选择 。 

4.3.1 节 将 介绍 amb ， 并 解释 它 如 何 通过 求 值 器 的 目 动 搜索 机 制 支持 非 确定 性 。 4.3.28 
出 了 一 个 非 确定 性 程序 的 例子 ，4.3.3 节 给 出 了 如 何 通过 修改 常规 的 Scheme 求 值 器 ， 实 现 amb 
求 值 器 的 细节 。 

4.3.1 amb 和 搜索 

为 了 扩充 Scheme 以 支持 非 确定 性 ， 我 们 要 引进 一 种 称 为 amb 的 新 特殊 形式 ?2”。 表 达 式 
(amb <e> <e> … <en>)“ 有 歧义 性 地 ”返回 h 个 表达 式 <e 户 之 一 的 值 。 举 例 说 ， 表 达 式 

(list (amb 1 2 3) (amb ’a ’b)) 

可 以 有 如 下 六 个 可 能 的 值 
(1 a) (1 b) (2 a) (2 b) (3 a) (3 b) 


只 有 一 个 选择 的 amb 将 产生 常规 的 (一个) 值 。 
没有 选择 的 amb 一 一 表达 式 (amb) -一 是 一 个 没有 可 接受 值 的 表达 式 。 按 照 操作 的 观 后 ， 


247 实现 非 确定 性 程序 设计 的 amb 思想 是 John McCarthy 在 1961 年 第 一 次 提出 的 ( 见 McCarthy 1967), 





288 PAX ABS HR 


我 们 可 以 认为 (amb) 就 是 这 样 的 一 个 表达 式 ， 对 它 的 求 值 将 导致 计算 “失败 ": 这 一 计算 将 
会 流产 ， 而 且 不 会 产生 任何 值 。 利 用 这 一 思想 ,我 们 可 以 将 某 个 特定 谓词 必须 为 真 的 要 求 表 
述 为 下 面 的 定义 : 
(define (require p) 
(if (not p) .(amb))) 
有 了 amb 和 require， 我 们 就 可 以 实现 上 面 的 an-element-of 过 程 了 : 


(define (an-element-of items) 
(require (not (null? items) )) 
(amb (car items) (an-element-of (cdr items)))) 


当 表 为 空 时 an~element-of 失 败 ， 否则 它 就 会 (具有 歧义 性 地 ) 或 者 返回 表 里 的 第 一 个 元 
素 ， 或 者 返回 选 自 表 中 其 余部 分 的 某 个 元 素 。 

我 们 还 可 以 表述 无 穷 的 选择 。 下 面 过 程 可 能 返回 任何 一 个 大 于 或 者 等 于 某 个 给 定 的 n 值 的 
整数 : | 


(define (an-integer-~starting-from n) 
(amb n (an-integer-starting-from (+ n 1)))) 


这 就 像 是 在 3.5.2 节 里 描述 的 流 过 程 integers-starting-from， 但 这 里 有 一 点 重要 不 
el: 流 过 程 返 回 的 是 一 个 对 象 ， 它 表示 的 是 从 n 开 始 的 所 有 整数 的 序列 ， 而 amb 过 程 返 回 的 就 
是 一 个 整数 ”。 

抽象 地 看 ， 我 们 可 以 认为 ， 求 值 一 个 amb 表 达 式 将 导致 时 间 分 裂 为 不 同 的 分 支 ， 而 计算 
将 在 每 一 个 分 支 (其 中 取 定 了 该 表达 式 的 一 个 值 ) 里 进行 。 我 们 说 一 个 amb 表 示 了 一 个 非 确 
定性 的 选择 点 。 如 果 有 一 台 机 器 ， 它 有 足够 多 的 可 以 动态 分 配 的 处 理 器 ， 我 们 就 能 以 一 种 直 
截 了 当 的 方式 实现 这 种 搜索 。 这 里 的 执行 就 像 在 一 台 硕 序 机 器 上 那样 进行 ， 直 至 遇 到 了 一 个 
amb 表 达 式 。 在 这 个 点 上 ， 需 要 分 配 并 初始 化 更 多 的 处 理 器 ， 并 继续 进行 这 一 选择 所 缠 含 的 
所 有 并 行 执行 。 每 个 处 理 器 又 将 顺序 地 进行 下 去 ， 就 像 它 只 有 一 种 选择 那样 ， 直 至 或 者 因为 
遇 到 失败 而 结束 ， 或 者 需要 进一步 分 支 ， 或 者 成 功 结束 ”。 

在 另 一 方面 ， 如 果 我 们 有 一 台 机 器 ， 它 只 能 执行 一 个 进程 〈 或 者 若干 个 并 发 的 进程 )， 
我 们 就 必须 换 一 种 实现 顺序 性 的 方式 。 我 们 可 以 设想 去 修改 求 值 器 ， 使 之 在 遇 到 一 个 选择 
点 时 随机 地 选取 一 个 分 支 走 下 去 。 当 然 ， 随 机 选取 很 可 能 导向 失败 的 值 。 这 样 就 需要 一 次 
次 重新 运行 求 值 器 ， 再 做 随机 选择 ， 以 期 找到 一 个 不 失败 的 值 。 一 种 更 好 的 方式 是 系统 化 
地 搜索 所 有 可 能 的 执行 路 径 。 我 们 将 要 开发 的 ， 并 在 本 节 中 使 用 的 amb 求 值 右 实现 了 如 下 
的 一 种 系统 化 搜索 方式 ， 当 这 个 求 值 器 遇 到 一 个 amb 应 用 时 ， 它 一 开始 总 是 选择 第 一 个 可 
能 性 。 这 一 选择 又 可 能 导致 随后 的 选择 。 在 每 个 选择 点 ， 这 一 求 值 器 在 开始 时 总 是 选择 第 


24 实际 上， 在 非 确 定性 地 返回 一 个 选择 与 返回 所 有 选择 之 间 的 差异 ， 在 某 种 意义 上 看 ， 依 赖 于 我 们 的 看 法 。 从 
使 用 有 关 值 的 代码 的 角度 看 ， 非 确定 性 选择 返回 的 是 一 个 值 。 从 设计 代码 的 程序 员 的 角度 看 ， 非 确定 性 选择 
是 潜在 地 返回 了 所 有 可 能 的 值 ， 而 计算 是 分 支 的 ， 所 以 各 个 值 将 被 分 HRE. 

49 有 人 可 能 反对 这 种 极端 无 效 的 机 制 ， 它 可 能 需要 数 以 百 万 计 的 处 理 器 去 求解 某 个 以 这 种 方式 可 以 简单 陈述 的 
问题 ， 而 且 在 其 中 大 部 分 的 时 间 里 ， 大 部 分 处 理 器 都 在 采 置 着 。 对 于 这 种 反对 意见 ， 我 们 应 该 在 历史 的 环境 
中 去 分 析 。 过 去 ， 存 储 器 曾 被 认为 是 一 种 及 其 昂贵 的 设备 。 在 1964 年 ， 一 净 容 量 的 RAM 贵 到 400 000 美 元 。 
而 现在 每 台 个 人 计算 机 都 有 许多 兆 的 RAM ,而 其 中 的 大 部 分 RAM 都 没有 使 用 。 我 们 决 不 应 该 低估 电子 学 的 
大 规模 生产 的 价值 。 
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一 个 可 能 性 。 如 何 选 择 的 结果 导致 失败 ， 那么 这 个 求 值 器 就 自动 魔法 般 地 “回溯 到 最 近 的 
选择 把 ， 并 去 试验 下 一 个 可 能 性 。 如 果 它 在 任何 选择 点 用 完了 所 有 的 可 能 性 ， 该 求 值 器 就 
将 退回 到 前 一 选择 点 ， 并 从 那里 继续 下 去 。 这 个 过 程 产生 的 是 一 种 称 为 深度 优先 的 搜索 策 
略 ， 或 称 为 按照 历史 回溯 5 。 

驱动 循环 | 

amb 求 值 器 的 驱动 循环 有 一 些 很 不 寻常 的 性 质 。 它 读 和 一 个 表达 式 ， 并 且 打 印 出 第 一 个 
不 失败 的 执行 得 到 的 值 ， 就 像 在 上 面 的 prime-sum-pair 例 子 里 所 示 的 那样 。 如 果 我 们 希望 
看 到 下 一 个 成 功 执行 的 值 ， 那 就 可 以 要 求解 释 器 回 济 ， 让 它 试 着 去 产生 第 二 个 没有 失败 的 运 
行 。 我 们 可 以 通过 键入 符号 try-again 的 方式 发 出 这 一 信号 。 如 果 给 的 是 除了 try-again 
之 外 的 任何 表达 式 ， 解 释 器 都 会 开始 一 个 新 问题 ， 丢 掉 前 面 问题 中 尚未 探索 的 那些 可 能 性 。 
下 面 是 一 个 交互 执行 示例 : 

;;; Amb-Eval input: 

(prime-sum-pair °(1 3 5 8) °(20 35 110)) 

3:33 Starting a new problem 


233 Amb-Eval value: 
{3 20) 


773; Amb-Eval input: 
try-again 

;;; Amb-Eval value: 
(3 110) 


;;; Amb-Eval input: 
try-again 

;;; Amb-Eval value: 
(8 35) 


::: Amb-Eval input: 

try-again | 

;;;? There are no more values of 

0 自动 魔法 般 地 :“ 自 动 地 ， 但 是 以 一 种 由 于 某 些 原因 (典型 的 情况 是 它 太 复杂 ， 或 者 太 丑 陋 ， 或 者 其 至 太 简 
单 )， 而 使 说 话 者 并 不 喜欢 去 解释 的 方式 .” (Steele 1983, Raymond 1993) 

25) 将 自动 搜索 策略 结合 到 程序 设计 语言 的 历史 曲折 而 复杂 。Robert Floyd (1967) 第 一 次 提出 可 能 通过 搜索 和 
自动 回 湖 ， 把 非 确 定性 算法 很 优雅 地 做 进程 序 设 计 语 言 里 。Carl Hewitt (1969) 发 明了 称 为 Planner 的 程序 
设计 语言 ， 它 显 式 地 支持 自动 按 历 史 回 淹 ， 提 供 了 内 部 的 深度 优先 搜索 策略 Sussman, Winograd 和 
Charniak (1971) 实现 了 这 一 语言 的 一 个 子 集 ， 称 为 MicroPlanner ， 用 于 支持 问题 求解 和 机 器 人 规划 工作 。 
类 似 的 想法 也 出 现在 逻辑 和 定理 证 明 的 领域 里 ， 导 致 优美 的 Prolog 语 言 在 爱丁堡 和 马赛 诞生 (我 们 将 在 4.4 
节 讨 论 它 )。 在 自动 搜索 遇 到 极 大 的 挫折 之 后 ，McDermott and Sussman (1972) 开发 出 一 种 名 为 Conniver 
的 语言 ， 它 包含 了 程序 员 的 控制 下 搜索 策略 的 安排 机 制 。 然 而 这 种 方式 被 证 明 是 非常 难 使 用 的 。 后 来 ， 
Sussman 和 Staljlman (1975) 在 研究 电子 线路 的 符号 分 析 的 过 程 中 创建 了 一 种 更 容易 控制 的 方法 ， 他 们 开发 
出 一 种 基于 相互 关联 的 事实 之 间 的 依赖 关系 的 非 历史 的 回溯 模式 ， 这 种 技术 现在 已 经 被 称 为 依赖 导向 的 回 
湖 。 虽 然 他 们 的 方法 比较 复杂 ， 但 却 能 产生 出 具有 合理 效率 的 程序 ， 因 为 工作 中 很 少 做 多余 的 搜索 。Doyle 
(1979) 和 McAllester (1978, 1980) 推广 并 进一步 浴 清 了 Stallman 和 Sussman 的 方法 ， 开 发 了 一 种 新 的 构造 
搜索 的 形式 ， 现 在 被 称 为 真 值 保持 。 新 型 问题 求解 系统 都 用 了 某 种 形式 的 真 值 保持 ， 作 为 其 中 的 一 种 基本 
技术 。 参 看 Forbus 和 deKleer 1993 关 于 构造 真 值 保持 系统 方法 的 讨论 。 Zabih McAllester #pChapman 1987 
描述 了 Scheme 的 一 种 基于 amb 的 非 确定 性 扩充 ， 与 本 节 所 描述 的 解释 器 很 类 似 ， 但 是 更 复杂 一 些 ， 因 为 其 
He AMER RS ROE, MES BA, Winston 1992 介 绍 了 这 两 种 回溯 。 
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(prime-sum-pair (quote (1 3 5 8)) (quote (20 35 110))) 


333; Amb-Eval input: | 
(prime-sum-pair ’(19 27 30) *(11 36 58)) 
>; Starting a new problem 
s:: Amb-Eval value: 
(30 11) 
练习 4.35 ”请 写 出 一 个 过 程 an~integer-~between， 它 返回 两 个 限界 之 间 的 一 个 整数 。 
它 可 以 用 于 实现 一 种 寻找 毕 达 哥 拉 斯 三 元 组 的 过 程 ， 也 就 是 说 ， 找 出 在 给 定 界 限 内 《例如 ) 
的 整数 三 元 组 i,j,k), HRI<jHP +P =k, OF: | 
(define (a-pythagorean-triple-between low high) 
(let ({i (an-integer-between low high))) 
(let ((j (an-integer-between i high))) 
(let ((k (an-integer-between j high))) 
(require (= (+ (* i i) (* j j)) (* K k))) 
(list i j k))))) 
练习 4.36 ”练习 3.69 讨 论 了 如 何 产 生出 所 有 毕 达 哥 拉 斯 三 元 组 的 流 ， 对 于 搜索 的 整数 大 小 
没有 上 界 。 请 解释 为 什么 简单 地 用 an-integer-starting-from 人 代替 练习 4.35 中 的 过 程 
an-integer-between， 并 不 是 生成 任意 毕 达 哥 拉 斯 三 元 组 的 合适 办 法 。 请 写 出 一 个 确实 
能 完成 这 一 工作 的 过 程 。( 也 就 是 说 ， 写 出 一 个 过 程 ， 对 它 反 复 键入 try-again ,原则 上 ， 
将 能 最 终生 成 出 所 有 的 毕 达 哥 拉 斯 三 元 组 。) | 
练习 4.37 Ben Bitdiddle 断 言 下 面 生成 毕 达 棵 拉 斯 三 元 组 的 方法 比 练习 4.35 中 的 方法 效率 
更 高 。 他 说 得 对 吗 ? (提示 ， 请 考虑 几 个 必须 研究 的 可 能 性 。) 
(define (a-pythagorean-triple-between low high) 
{let ((i (an-integer-between low high) ) 
(hsq (* high high))) 
(let ((j (an-integer-between i high))) 
(let ((ksq (+ (* i i) (* j 3)))) 
(require (>= hsq ksq)) 
(let ((k (sqrt ksq))) 
(require (integer? k)) 
(list i j k)))))) 


4.3.2 非 确定 性 程序 的 实例 


4.3.3 节 里 将 要 描述 amb 求 值 器 的 实现 ， 我 们 在 这 里 先 给 出 几 个 可 能 怎样 使 用 它 的 例子 。 
非 确定 性 程序 设计 的 优点 ， 就 在 于 使 我 们 可 以 忽略 有 关 搜 索 将 如 何 进行 的 细节 ， 因 此 就 可 以 
在 更 高 的 层次 上 表述 所 需要 的 程序 。 

TERE 

下 面 的 谜 题 ( 取 自 Dinesman 1968) 是 一 大 类 简单 逻辑 谜 题 的 典型 代表 ， 

Wk, RM, BRE. KAMER THEATRE, MAR fE 

在 顶层 ， 库 伯 不 住 在 底层 ， 弗 莱 舍 不 住 在 顶层 也 不 住 在 底层 。 米 勒 住 的 比 库 伯 高 一 

层 ， 斯 麦 尔 不 住 在 弗 莱 舍 相 邻 的 层 ， 弗 莱 舍 不 住 在 库 伯 相 邻 的 层 。 请问 他 们 各 住 在 

A ER o 
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我 们 可 以 通过 简单 地 枚 举 出 所 有 可 能 性 ， 并 加 上 给 定 约束 条 件 的 方式 ， 来 确定 这 几 个 人 
ER RR’. 
(define (multiple-dwelling) 
(let ((baker (amb 1 2 3 4 5)) 
(cooper (amb 1 2 3 4 5)) 
(fletcher (amb 1 2 3 4 5)) 
(miller (amb 1 2 3 4 5)) 
(smith (amb 1 2 3 4 5))) 
(require 
(distinct? {list baker cooper fletcher miller smith) )) 
(require (not (= baker 5))) 
(require (not (= cooper 1)))} 
(require (not (= fletcher 5))) 
(require (not (= fletcher 1))) 
(require (> miller cooper)) 
(require (not (= (abs (- smith fletcher)) 1))) 
(require (not (= (abs (- fletcher cooper)) 1))) 
(list (list *baker baker) 
(list ‘cooper cooper) 
(list ’fletcher fletcher) 
(list "miller miller) 
{list ’smith smith)))) 


求 值 表达 式 (multiple-dwelling) 将 产生 下 面 结 打 : 


( (baker 3) (cooper 2) (fletcher 4) (miller 5) (smith 1)) 


虽然 这 个 简单 过 程 能 工作 ， 但 它 却 非 常 慢 。 练 习 4.39 和 4.40 讨 论 了 一 些 改进 。 

练习 4.38 ”请 修改 上 述 多 层 住 宅 过 程 ， 增 加 斯 麦 尔 和 弗 菜 舍 不 住 相 邻 层 的 要 求 。 这 个 新 
谜 题 有 多 少 个 解 ? 

练习 4.39 “在 上 述 多 层 住宅 过 程 中 ， 约 束 条 件 的 顺序 会 影响 答案 吗 ? 它 会 影响 找到 答案 
的 时 间 吗 ? 如 果 你 认为 会 ， 那 么 请 通过 重新 排列 上 面 定 义 中 约束 条 件 的 顺序 ， 展 示 出 你 得 到 
的 更 快 的 程序 。 如 果 你 认为 没关系 ， 请 论证 你 的 观点 。 

练习 4.40 ”在 上 述 多 层 住 宅 问 题 里 ， 在 各 种 需求 和 楼 层 指派 必须 完成 的 不 同 检查 之 前 和 
之 后 ， 存 在 着 多 少 给 人 指定 楼 层 的 指派 集合 ? 首先 生成 出 所 有 的 人 到 楼 层 的 指派 ， 而 后 通过 
回溯 删除 它们 是 很 低 效 的 方法 。 举 例 来 说 ， 大 部 分 约束 条 件 都 只 依赖 于 一 个 或 者 两 个 个 人 -楼 
层 变 量 ， 因 此 可 以 在 为 所 有 人 选择 楼 层 之 前 安排 好 。 请 为 解决 这 一 问题 写 出 一 个 更 加 高 效 得 
多 的 非 确 定性 过 程 ， 其 中 只 产生 出 通过 限制 排除 了 不 可 能 情况 之 后 的 那些 可 能 性 ， 并 请 用 试 
哈 证 明 你 的 方案 有 效 。( 提 示 : 这 将 需要 写 出 幅 套 的 let RAR. ) 


?2 我 们 的 程序 用 下 面 过 程 确定 一 个 表 里 的 各 个 元 素 是 否 互 不 相同 ， 


(define (distinct? items) 
(cond ((null? items) true) 
((null? (cdr items)) true) 
( (member (car items) (cdr items)) false) 
(else (distinct? (cdr items))))) 


member Smemq 类 似 ， 只 是 用 equa1? 做 相等 判断 ， 而 不 是 用 eq? 。 
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练习 4.41 请 写 出 一 个 常规 的 Scheme 程序 ， 解 决 这 一 多 楼 层 问 题 。 

练习 4.42 iAP FER “Die” ART (H Phillips 1934). 五 个 女生 参加 一 个 考试 ， 
她 们 的 家 长 对 考试 结果 过 分 关注 。 为 此 她 们 约定 ， 在 给 家 里 写 信 谈 到 考试 时 ， 每 个 姑娘 都 要 
写 一句 真 话 和 一 名 假 话 。 下 面 是 从 她 们 的 信里 摘出 的 句子 : 

贝蒂 :“ 凯 蒂 考 第 二 ， 我 只 考 了 第 三 。” 

艾 赛 尔 :“ 你 们 应 很 高 兴 地 听 到 我 考 了 第 一 ， 琼 第 二 。” 

琼 :“ 我 考 第 三 ， 可 怜 的 艾 赛 尔 考 得 最 差 。 

凯 蒂 :“ 我 第 二 ， 玛 丽 只 考 了 第 四 。” 

in: “RESO, WEY Rate.” 

这 五 个 姑娘 实际 的 排名 是 什么 ? 

练习 4.43 ”请 用 求 值 器 解决 下 面 谜 题 ” : 

Mary Ann Moore 的 父亲 有 一 条 游艇 ， 他 的 四 个 朋友 Colonel Downing, Mr. Hall, Sir 
Barnacle Hood 和 Dr. Parker 也 各 有 一 条 。 这 五 个 人 各 有 一 个 女儿 ， 每 个 人 都 用 另 一 个 人 的 女儿 
的 名 字 为 自己 的 游艇 命 名 。Sir Barnacle 的 游艇 叫 Gabrielle ，Mr. Moore 拥 有 Lorna，Mr. Hali 的 
是 Rosalind，Melissa 属 于 Colonel Downing ( 取 自 Sir Barnacle 的 女儿 的 名 字 )，Gabrielle 的 父亲 
的 游艇 取 的 是 Dr. Parker 的 女儿 的 名 字 。 请 问 谁 是 Lorna 的 父亲 。 | 

请 设法 写 出 一 个 能 高 效 运行 的 程序 (参见 练习 4.40 ) 。 另 请 设法 确定 ， 如 果 没 有 告诉 我 们 
Mary Ann 姓 Moore ， 那 么 将 会 有 多 少 个 解 。 

练习 4.44 ”练习 2.42 描 述 了 “ 八 皇后 谜 题 ”， 将 八 个 皇后 安放 到 国际 象棋 盘 上 使 她 们 相互 
都 不 攻击 。 请 写 出 一 个 非 确 定性 的 程序 求解 这 一 迹 题 。 


自然 语言 的 语法 分 析 

接受 自然 语言 作为 输入 的 程序 ， 通 常 都 以 对 输入 的 语法 分 析 开 始 ， 也 就 是 说 ， 设 法 将 输 
入 与 一 些 语法 结构 匹配 。 举 例 说 ， 我 们 可 能 试图 去 识别 由 一 个 冠 词 ， 后 跟 一 个 名 词 和 一 个 动 
词 的 简单 句子 ， 比 如 说 “The cat eats" 。 为 了 完成 这 种 分 析 ， 我 们 必须 能 辩 明 各 个 单词 的 词类 ， 
这 可 以 从 下 面 这 种 对 各 种 单词 的 分 类 表 开 始 ”: | | | 

(define nouns ’(noun student professor cat class)) 

(define verbs ‘(verb studies lectures eats sleeps) ) 

(define articles ’(article the a)) 
我 们 还 需要 一 个 语法 ， 即 一 组 描述 如 何 从 更 简单 的 元 素 组 合 产生 语法 元 素 的 规则 。 一 个 非常 
简单 的 语法 ， 可 能 就 是 规定 每 个 句子 都 由 两 个 部 分 组 成 一 一 一 个 名 词 短 语 后 面 跟着 一 个 动词 ， 
而 名 字 短 语 是 由 一 个 冠 词 后 跟 一 个 名 词组 成 。 根 据 这 个 语法 ， 句 子 “The cat eats ”就 可 以 分 
Wy | | 

(sentence (noun-phrase (article the) (noun cat)) 

(verb eats) ) 


我 们 可 以 用 一 个 简单 的 程序 生成 这 样 的 分 析 ， 其 中 对 应 于 每 条 语法 规则 有 一 个 独立 的 过 


253 这 个 这 题 取 自 一 本 名 为 《Problematical Recreations) (问题 娱乐 ) 的 小 册子 ， 1960 年 代 由 Litton Industries 出 版 ， 
上 面 标明 作者 为 Kansas State Engineer ( 肯 萨 斯 州 工程 师 协会 ) 。 
254 这 里 我 们 采用 了 一 个 约定 ， 用 每 个 表 的 第 一 个 元 素 指 明了 表 中 其 他 单 词 的 词类 。 
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程 。 为 了 分 析 一 个 句子 ， 我 们 需要 辩 明 它 的 两 个 组 成 部 分 ， 并 返回 一 个 两 元 素 的 表 ， 用 符号 
sentence 作 为 标记 : 


(define (parse-sentence) 
(list ‘sentence 
(parse-noun-phrase) 
(parse-word verbs) )) 


名 词 短 语 的 情况 与 此 类 似 ， 对 它 的 分 析 就 是 要 找 出 其 中 的 冠 词 和 名 词 
(define (parse-noun-phrase) 
(list ’noun-phrase 
(parse-word articles) 
(parse-word nouns) )) 


在 最 下 面 一 层 ， 分 析 过 程 被 归结 到 反复 检查 下 一 个 尚未 分 析 的 单词 ， 看 它 是 不 是 某 个 对 
应 于 所 需 词类 的 单词 表 的 成 员 。 为 了 实现 这 一 工作 ， 我 们 要 维护 一 个 全 局 变量 *unparsed*， 
其 中 包含 着 尚未 分 析 的 输入 。 每 当 程 序 去 检查 一 个 单词 时 ， 我 们 都 要 求 *unparsed* 必须 不 
” 空 ， 而 且 它 应 该 以 指定 的 表 里 的 单词 开始 。 如 果真 是 这 样 ， 我 们 就 从 *unparsed* 里 删除 这 
第 一 个 单词 ， 并 返回 这 个 单词 和 它 的 词类 (这 可 以 从 该 表 的 头 部 找 出 ) 汪 
(define (parse-word word-list) 
(require (not (null? *unparsed*))) 
(require (memq {car *unparsed*) (cdr word-list))) 
(let ((found-word (car *unparsed*))) 


(set! *unparsed* (cdr *unparsed*) ) 
(list (car word-list) found-word) ) ) 


为 了 能 开始 做 语法 分 析 ， 我 们 需要 的 就 是 将 *unparsedy 设 置 为 整个 输入 ， 试 着 去 分 析 
出 一 个 甸子 来 ， 最 后 还 要 检查 没有 剩 下 任何 东西 : 


(define *unparsed* ()) 
(define (parse input) 
(set! *unparsed* input) 
(let ((sent (parse-sentence) ) ) 
(require (null? *unparsed*)) 
sent )) 


现在 我 们 可 以 试验 这 个 分 析 器 ， 检 查 它 是 否 能 处 理 简单 的 测试 句子 : 

;;; Amb-Eval input: 

(parse (the cat eats)) 

737 Starting a new problem 

;;; Amb-Eval value: 

(sentence (noun-phrase (article the) (noun cat)) (verb eats) ) 

amb 求 值 器 在 这 里 很 有 用 ， 因 为 它 使 我 们 可 以 通过 require 的 帮助 ， 很 方便 地 描述 分 析 
中 的 种 种 约束 条 件 。 当 然 ， 如 果 进 一 步 考虑 更 复杂 的 语法 ， 其 中 存在 有 关 某 些 单元 如 何 分 解 
的 选择 时 ， 自 动 搜 索 和 回 漳 也 将 发 挥 重 要 作用 . 

现在 让 我 们 在 语法 中 增加 一 个 介词 表 : 


25 请 注意 ，pParse-word 用 set! 修 改 了 未 分 析 的 输入 表 。 为 使 这 种 做 法 能 够 工作 ， BAN] ASOMD RIE aL A 
在 回 滴 时 撤销 set! 的 作用 。 
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(define prepositions "(prep for to in by with)? 


并 将 介词 短语 (例如 ，“for the cat”) 定义 为 个 介词 后 跟 一 个 名 词 短语 ， 


(define (parse-prepositional-phrase) 
(list ’prep-phrase 
(parse-word prepositions) 
(parse-noun-phrase) )) 


现在 我 们 可 以 将 句子 定义 为 一 个 名 词 短语 后 跟 一 个 动词 短语 ， 其 中 的 动词 短语 可 以 是 一 个 动 
词 ， 也 可 以 是 一 个 动词 短语 加 上 一 个 介词 短语 2”， 
(define (parse-sentence) 
(list ’sentence 


(parse-noun~phrase) 
(parse-verb-phrase) )) 


(define (parse-verb-phrase) 
(define (maybe-extend verb~phrase) 
(amb verb-phrase 
(maybe-extend (list ‘’verb-phrase 
verb-phrase 
(parse-prepositional-phrase) )))) 


(maybe-extend (parse-word verbs) ) ) 


有 了 这 些 之 后 ， 我 们 还 可 以 细 化 名 词 短语 的 定义 ， 人 允许 诸如 “a cat in the class ”之 类 的 
形式 。 前 面 称 为 名 词 短 语 的 片段 ， 现 在 将 被 称 为 简单 名 词 短语 ， 而 现在 的 名 词 短语 则 或 者 是 
一 个 简单 名 词 短语 ,或 者 是 一 个 名 词 短语 后 跟 一 个 介词 短语 : 

(define (parse-simple-noun-phrase) 

(list ’simple-noun-phrase 
(parse-word articles) 


(parse-word nouns)) ) 


(define (parse-noun-phrase) 
(define (maybe-extend noun-phrase) 
(amb noun-phrase 
(maybe-extend (list ’noun-phrase 
noun-phrase 
(parse-prepositional-phrase))})) 


(maybe-extend (parse-simple-noun-phrase) )) 


现在 的 新 语法 使 得 程序 可 以 分 析 更 复杂 的 句子 了 。 例 如 : 


(parse ’(the student with the cat sleeps in the class) ) 


将 产生 出 : 


(sentence 
(noun-phrase 
(simple-noun-phrase (article the) (noun student) ) 
(prep~phrase (prep with) 
(simple-noun-phrase 


(article the) (noun cat)))) 





86 应 该 看 到 这 一 定义 是 递归 的 ， 动 词 之 后 可 以 有 任意 多 个 介词 短语 。 
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(verb-pHrase 
(verb sleeps) 
(prep-phrase (prep in) 
(simple-noun-phrase 
{article the) (noun class))})))) 


请 注意 ， 一 个 给 定 输入 可 能 存在 多 于 一 种 合法 的 分 析 结 果 。 对 于 句子 “The professor 
lectures to the student with the cat"， 可 以 理解 为 教授 带 着 猫 去 上 课 ， 也 可 以 理解 为 该 学 生 有 那 


只 猫 。 我 们 的 非 确定 性 程序 将 能 找 出 这 两 种 可 能 性 : 


(parse ’(the professor lectures to the student with the cat)) 


将 产生 出 : 


(sentence 
(simple-noun-phrase (article the) (noun professor) ) 
(verb-phrase 
(verb-phrase 
(verb lectures) 
(prep-phrase (prep to) 
(simple-noun-phrase 
(article the) (noun student)))) 
(prep-phrase (prep with) 
(simple-noun-phrase 
(article the) (noun cat))))) 


让 求 值 器 再 次 尝试 ， 将 会 产生 出 : 
(sentence 
(simple-noun-phrase (article the) (noun professor) ) 
(verb-phrase 
(verb lectures) 
(prep-phrase (prep to) 
(noun-phrase 
(simple-noun-phrase 
(article the) (noun student)) 
(prep-phrase (prep with) 
(simple-noun-phrase 
(article the) (noun cat))))))) 


835445 ”采用 上 面 给 出 的 语法 ， 下 面 的 句子 可 以 有 5 种 不 同 的 分 析 方 式 : “The professor 
lectures to the student in the class with the cat” 。 请 给 出 这 5 种 分 析 ， 并 解释 这 些 分 析 之 间 的 微 
WEH. 

练习 4.46 4.1 节 和 4.2 节 的 求 值 器 并 没有 明确 规定 运算 对 象 的 求 值 顺序 。 我 们 将 看 到 am 
求 值 器 从 堪 到 右 进 行 求 值 。 请 解释 ， 如 果 运 算 对 象 采 用 其 他 求 值 顺序 ， 为 什么 我 们 的 分 析 程 
序 就 没有 办 法 工作 了 。 

练习 4.47 Louis Reasoner 建 议 说 ， 由 于 动词 短语 或 者 是 一 个 动词 ， 或 者 是 一 个 动词 短语 
后 跟 一 个 介词 短语 ， 直 接 用 下 面 方式 定义 一 个 parse-verb-phrase 过 程 将 更 加 方便 (对 于 
名 词 短语 也 同样 可 以 这 样 做 ): | 

(define (parse-verb-phrase) 

(amb (parse-word verbs) 
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(list ’verb-phrase 
(parse-verb-phrase) 
(parse-prepositional-phrase)))) 


这 样 做 能 行 吗 ? 如 果 改 变 了 amb 求 值 器 里 表达 式 的 顺序 ， 程 序 的 行为 也 会 改变 吗 ? 

练习 4.48 ”请 扩充 上 面 给 出 的 语法 ， 以 处 理 更 加 复杂 的 句子 。 例 如 ， 你 可 以 扩充 名 词 短 
语 和 动词 短语 ， 加 进 形 容 词 和 副词 ， 或 者 可 以 设法 处 理 复 合 名 27 。: 

练习 4.49 Alyssa P. Hacker 更 感 兴趣 的 是 生成 有 趣 的 句子 而 不 是 分 析 它们 。 她 说 ， 简 单 修 
改过 程 parse-word， 使 它 忽略 “输入 的 句子 ”并 总 是 成 功 产生 出 适当 的 单词 ， 就 可 以 为 语 
法 分 析 程 序 去 做 句子 生成 。 请 实现 Alyssa 的 想法 ， 并 给 出 这 个 程序 所 产生 的 前 十 来 个 句子 5。 


4.3.3 实现 amb 求 值 器 


对 于 常规 Scheme 表达 式 的 求 值 可 能 返回 一 个 值 ， 也 可 能 永远 不 终止 ， 或 者 发 出 一 个 错误 
信号。 对 于 非 确定 性 的 Scheme ， 表 达 式 的 求 值 还 可 能 遇 到 死胡同 ， 在 这 种 情况 下 求 值 必须 回 
漳 到 前 面 的 选择 点 。 由 于 多 出 这 一 种 情况 ， 非 确定 性 Scheme 的 解释 将 变 得 更 复杂 。 

我 们 为 非 确 定性 的 Scheme 构 造 amb 求 值 器 的 方法 ， 是 修改 4.1.7 节 的 分 析 式 求 值 器 ””。 就 
像 在 那个 分 析 求 值 器 里 一 样 ， 完 成 对 这 里 的 表达 式 求 值 ， 也 是 通过 调用 对 于 该 表达 式 的 分 析 
所 产生 出 的 执行 过 程 。 对 于 常规 Scheme 的 解释 和 对 非 确定 性 Scieme 的 解释 之 间 的 差异 完全 在 
于 有 关 的 执行 过 程 。 

执行 过 程 和 继续 

读者 应 记得 ， 在 常规 求 值 器 的 执行 过 程 里 有 一 个 参数 : 执行 环境 。 与 此 不 同 ，amP 求 值 
器 的 执行 过 程 将 取 三 个 参数 : 执行 环境 ， 和 两 个 称 为 继续 过 程 的 过 程 。 对 于 一 个 表达 式 的 求 
值 ， 结 束 时 就 会 调用 这 两 个 继续 过 程 之 一 : 如 果 该 求 值得 到 了 一 个 结果 ， 那 么 就 用 这 个 值 去 
调用 那个 成 功 继续 ， 如 果 结 果 是 遇 到 了 一 个 死胡同 ， 那 么 就 调用 那个 失败 继续 。 构 造 和 调用 
适当 的 继续 ， 就 是 这 个 非 确定 性 求 值 器 里 实现 回调 的 机 制 。 

成 功 继续 过 程 的 工作 是 接受 一 个 值 并 将 计算 进行 下 去 。 与 这 个 值 一 起 ， 成 功 继续 过 程 还 
将 得 到 了 另 一 个 失败 继续 过 程 ， 如 果 在 使 用 这 个 值 时 遇 到 了 死胡同 ， 就 会 去 调用 它 。 

失败 继续 过 程 的 工作 是 试探 非 确定 性 过 程 中 的 另 一 分 支 。 非 确定 性 语言 的 最 关键 特征 ， 
就 在 于 表达 式 可 以 表示 在 不 同 可 能 性 之 间 的 选择 。 对 于 这 样 一 个 表达 式 的 求 值 ， 必 须 按 给 定 
的 可 能 选择 进行 下 去 ， 即 使 谁 也 不 知道 哪 一 个 选择 会 导向 可 以 接受 的 结果 。 为 了 处 理 好 这 件 
事 ， 求 值 器 取出 一 个 可 能 性 ， 并 将 其 值 送 给 成 功 继续 过 程 。 与 这 个 值 一 起 ， 求 值 器 还 构造 并 
送 去 一 个 失败 继续 过 程 ， 以 便 在 后 来 需要 另 一 不 同 选 择 时 能 去 调用 它 。 


257 这 种 语法 可 以 变 得 任意 的 复杂 ， 但 如 果 考 虑 真实 的 语言 理解 问题 ， 这 些 仍然 只 是 一 种 玩具 。 要 用 计算 机 去 理 
解 真实 世界 中 的 自然 语言 ， 将 需要 语法 分 析 和 意义 解释 之 间 细 致 的 混合 作用 。 从 另 一 角度 看 ， 即 使 是 玩具 式 
的 语法 分 析 ， 对 于 支持 某 些 需要 比较 灵活 的 查询 语言 的 程序 也 非常 有 用 ， 例 如 那些 信息 检索 系统 。Winston 
1992 讨 论 了 真实 语言 理解 的 计算 途径 ， 也 讨论 了 简单 语法 在 命令 语言 方面 的 应 用 。 

258 虽然 Alyssa 的 想法 完全 可 行 〈 而 且 极其 简单 )， 但 它 产生 出 的 句子 则 非常 无 聊 一 一 根本 不 能 以 某 种 很 有 价值 的 
方式 说 明 这 一 语言 中 的 句子 的 范例 。 事 实 上 ， 由 于 语法 在 许多 地 方 都 是 高 度 递归 的 ，Alyssa 的 技术 将 会 落 入 
这 种 递归 并 陷 在 那里 。 参 看 练习 4.50 有关 解决 这 个 问题 的 一 种 方法 。 

259 我 们 的 选择 是 通过 修改 4.1.1 节 的 元 循环 求 值 器 的 方式 实现 4.2 节 的 情 性 求 值 器 ， 这 次 却 要 基于 4.1.7 节 的 分 析 
求 值 器 实现 amb 求 值 器 。 这 是 因为 该 求 值 器 的 执行 过 程 为 实现 回溯 提供 了 一 种 方便 框架 。 
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在 求 值 过 程 中 ， 当 一 个 用 户 程 序 明确 拒绝 了 当前 进攻 的 目标 (例如 ， 一 个 require 调 用 
里 最 终 可 能 执行 到 (amb ) ， 这 是 一 个 永远 失败 的 表达 式 一 一 见 4.3.1 节 ) ， 就 将 触发 一 次 失败 
(也 就 是 说 ， 调 用 一 个 失败 继续 过 程 ) 。 在 这 一 点 ， 手 头 上 的 失败 继续 过 程 将 导致 在 最 近 的 选 
择 点 上 做 另 一 种 选择 。 如 果 在 被 考虑 的 选择 点 上 已 经 没有 更 多 的 选择 了 ， 那 么 就 会 触发 在 前 
一 选择 点 的 失败 ， 并 如 此 继续 下 去 。 驱 动 循 环 也 可 能 直接 调用 失败 继续 过 程 ， 以 啊 应 一 个 
try-again 请 求 ， 去 找 出 表达 式 的 另 一 个 值 。 | 

此 外 ， 如 果 在 由 一 个 选择 导致 的 分 支 处 理 中 出 现 了 具有 副作用 的 操作 〈 例 如 做 了 给 某 个 
变量 的 赋值 ) ， 在 这 种 情况 下 ， 当 处 理 过 程 遇 到 死胡同 时 ， 可 能 就 需要 在 做 出 新 选择 之 前 撤销 
这 一 副作用 。 完 成 这 一 工作 的 方式 ， 就 是 让 产生 副作用 的 操作 生成 一 个 能 够 撤销 其 副作用 并 
传播 这 一 失败 的 失败 继续 过 程 。 

总 结 一 下 ， 失 败 继续 过 程 的 构造 来 自 : 

。 amb 表达 式 一 一 提供 一 种 机 制 ， 以 便 在 amb 表 达 式 做 出 的 当前 选择 遇 到 了 和 死胡同 时 ， 能 

够 做 另 一 种 选择 ; 

。 最 高 层 驱动 循环 一 一 提供 一 种 机 制 ， 在 选择 耗 尽 时 报告 失败 ! 

。 赋 值 一 一 拦截 失败 并 在 回调 之 前 撤销 赋值 的 效果 。 

失败 的 初始 原因 就 是 遇 到 了 死胡同 ， 这 种 情况 出 现在 : 

。 用 户 程序 执行 (amb) 时 ， 

*。 用户 键入 Ery-again 给 最 高 县 驱动 程序 时 。 

失败 继续 过 程 会 在 处 理 失 败 的 过 程 中 被 调用 : 

。 当 由 一 个 赋值 构造 出 的 失败 继续 过 程 完成 了 撤销 自己 副作用 的 工作 之 后 ， 它 将 调用 所 拦 

截 的 失败 继续 过 程 ， 以 便 将 这 一 失败 传播 到 导致 这 次 赋值 的 选择 点 ， 或 者 传 到 最 高 层 。 

。 当 某 个 amb 的 失败 继续 过 程 用 完了 所 有 选择 时 ， 它 将 调用 原来 给 这 个 amb 的 失败 继续 过 

程 ， 以 便 将 这 一 失败 传播 到 前 一 个 选择 点 ， 或 者 传播 到 最 高 层 。 

求 值 器 的 结构 

amb 求 值 器 的 语法 和 数据 表示 过 程 ， 以 及 基本 的 analyze 过 程 ， 都 与 4.1.7 市 的 求 值 强 里 
的 这 些 过 程 完全 一 样 ， 当 然 ， 我 们 还 需要 增加 几 个 语法 过 程 ， 以 便 识别 amb 特 殊 形式 29。 


(define (amb? exp) (tagged-list? exp ’amb)) 





(define (amb-choices exp) (cdr exp) ) 
我 们 必须 在 analyze 里 增加 一 个 分 派 子 名 ， 识 别 这 一 特殊 形式 并 生成 一 个 适当 的 执行 过 程 : 


((amb? exp) (analyze-amb exp) ) 


最 高 层 过 程 ambeval (与 在 4.1.7 节 里 给 出 的 eval 版 本 类 似 ) 分 析 给 定 的 表达 式 ， 并 将 
得 到 的 执行 过 程 应 用 到 给 定 的 环境 和 两 个 给 定 的 继续 过 程 上 : 


(define (ambeval exp env succeed fail) 


((analyze exp) env succeed fail)) 


成 功 继续 是 一 个 带 有 两 个 参数 的 过 程 : 刚刚 得 到 的 值 以 及 另 一 个 失败 过 程 ， 如 有 果 这 个 值 
随后 导致 失败 的 话 ， 它 就 去 调用 该 失败 继续 过 程 。 失 败 继续 是 一 个 无 参 过 程 。 因 此 ， 执 行 过 


0 我 们 假定 求 值 器 支持 Let 〈 见 练习 4.22) ， 因 为 在 非 确定 性 程序 里 需要 用 E. 





程 的 一 般 形 式 是 : 
(lambda (env succeed fail) 
>; succeed is (lambda (value fail) ...) 
>: fail is (lambda {) ...) 
..) 
举例 说 PTT 
(ambeval <exp> 
the-global-environment 


(lambda (value fail) value) 
(lambda () ’failed)) 


将 企图 去 求 值 给 定 的 表达 式 ， 最 后 或 者 是 返回 表达 式 的 值 (如 果 这 一 求 值 成 功 ) ， 或 者 返回 符 
Sfailed (如 果 求 值 失败 )。 在 下 面 所 示 的 驱动 循环 中 ， 对 于 ambeval 的 调用 里 使 用 了 更 复 
杂 的 继续 过 程 ， 它 们 继续 进行 循环 以 支持 try-again 请 求 。 

amb 求 值 器 中 最 复杂 的 问题 ， 也 就 是 那些 将 继续 过 程 在 相互 调用 的 执行 过 程 之 间 传 来 传 
去 的 机 制 。 在 阅读 下 面 给 出 的 代码 时 ， 你 应 该 将 每 一 个 执行 过 程 与 4.1.7 节 里 常规 求 值 器 中 相 
应 的 执行 过 程 比较 一 下 。 


简单 表达 式 

简单 表达 式 的 执行 过 程 与 常规 求 值 器 中 的 相应 过 程 基本 一 样 ， 只 是 它们 还 需要 管理 继续 
过 程 。 这 些 执 行 过 程 以 有 关 表 达 式 的 值 直 接 成 功 返 回 ， 同 时 传递 送 给 它们 的 失败 继续 过 程 : 

(define (lanalyze-seli- valuating exp) 


(lambda (env succeed fail) 
(succeed exp fail))) 


{define (analyze-quoted exp) 
(let ((qval (text-of-quotation exp) )) 
(lambda (env succeed fail) 


(succeed qval fail)))) 


(define (analyze-variable exp) 
(lambda (env succeed fail) 
(succeed (lookup-variable-value exp env) 
fail))) 


(define (analyze-lambda exp) 
(let ((vars (lambda-parameters exp) ) 
(bproc (analyze-sequence (lambda-body exp)))) 
(lambda (env succeed fail) 
(succeed (make-procedure vars bproc env) 
fail)))) 


注意 ， 查 找 变量 值 总 是 “成 功 "”。 如 果 1ookup-variable-value 无 法 找到 这 个 变量 ， 
它 像 平常 一 样 发 出 错误 信号 ， 这 种 “失败 ”表明 了 一 个 程序 错误 一 一 引用 了 无 约束 的 变量 ， 
而 并 不 表示 我 们 应 该 在 当前 所 试 的 选择 之 外 再 去 试探 另 一 个 非 确定 性 的 选择 。 


条 件 和 序列 | 
条 件 表 达 式 的 处 理 方式 也 与 常规 求 值 器 中 类 似 。 由 analyze-if 生 成 的 执行 过 程 去 调用 
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谓词 执行 过 程 pproc ， 过 程 pProc 的 成 功 继续 过 程 检查 谓词 的 值 是 否 为 真 ， 并 根据 情况 去 执 


行 条 件 表达 式 的 推论 部 分 或 者 替代 部 分 。 如 果 pproc 的 执行 失败 ， 那 么 就 调用 这 个 1f 表达 式 
原来 的 失败 继续 过 程 : 


{define (analyze-if exp) 

(let ((pproc (analyze (if-predicate exp))) 
(cproc (analyze (if-consequent exp))) 
(aproc {analyze {if-alternative exp)))) 

(lambda (env succeed fail) 
(pproc env 

3; success continuation for evaluating the predicate 

z; to obtain pred-value 

(lambda (pred-value fail2) 

(if (true? pred~value) 

(cproc env succeed fail2) 
(aproc env succeed fail2))) 

;; failure continuation for evaluating the predicate 

fail)))) 


序列 也 按照 与 前 面 求 值 器 间 样 的 方式 处 理 ， 除 了 子 过 程 seaGuentially 里 的 那些 机 制 外 。 


在 那里 需要 传递 继续 过 程 。 如 果 要 疾 序 地 先 执行 a 而 后 执行 p ， 我 们 就 用 一 个 成 功 继续 过 程 调 
Fla, ， 而 这 个 成 功 继续 过 程 将 调用 b。 


(define (analyze-sequence exps) 
(define (sequentially a b) 
(lambda (env succeed fail) 
(a env 
:» success continuation for calling a 
(lambda (a-value fail2) 
(b env succeed fail2)) 
:; failure continuation for calling a 
fail))) 
(define (loop first-proc rest-procs) 
(if (null? rest-procs) 
first-proc 
(loop (sequentially first-proc (car rest-procs)) 
(cdr rest-procs)))) 
(let ((procs (map analyze exps))) 
(if (null? procs) 


(error "Empty sequence -- ANALYZE")) 
(leop (car procs) (cdr procs)))) 
定义 和 赋值 


在 对 定义 的 处 理 中 ， 继 续 过 程 的 管理 问题 比较 麻烦 ， 因 为 这 里 必须 在 实际 定义 新 变量 之 
前 对 定义 值 的 表达 式 求 值 。 为 了 完成 这 一 工作 ， 在 这 里 需要 用 当时 的 环境 、 一 个 成 功 继续 和 
个 失败 继续 过 程 作为 参数 ， 去 调用 定义 值 的 执行 过 程 vVprec 。 如 果 vproc 的 执行 成 功 ， 那 
么 就 得 到 了 定义 变量 所 需 的 值 val ， 这 时 就 定义 有 关 的 变量 并 传播 这 一 成 功 : 

(define (analyze-definition exp) 


(let ((var (definition-variable exp) ) 


(vproc (analyze (definition-value exp)))) 
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(lambda (env succeed fail) 
(vproc env 
{lambda (val fail2) 
(define-variable! var val env) 
(succeed ’ok fail2)) 
fail)))) 


RUE Me OL DIA ee, AER Se EARS TR, ， 而 不 仅仅 是 将 它们 传 
来 传 去 。 针 对 赋值 的 执行 过 程 的 开始 部 分 与 定义 类 似 ， 首 先 企图 求 得 需要 赋 给 变量 的 新 值 。 
如 果 对 vproc 的 求 值 失败 ， 这 个 赋值 也 就 失败 了 。 

如 果 vProc 成 功 ， 当 然 就 要 去 做 实际 的 赋值 。 但 在 这 时 必须 考虑 计算 的 这 一 分 支 以 后 出 
现 失败 的 可 能 性 ， 而 到 那 时 就 需要 对 这 个 赋值 做 回溯 了 。 如 果 要 完成 回溯 ， 我 们 就 必须 把 撤 
销 这 个 赋值 的 工作 作为 回溯 过 程 的 一 部 分 ”。 

完成 这 一 工作 的 方式 是 给 出 一 个 成 功 继 续 过 程 ( 下面 标 有 注释 “*1* ”的 部 分 )， 它 在 给 
这 个 变量 赋 新 值 之 前 保存 变量 原来 的 值 ， 而 后 才 实 际 做 赋值 。 与 这 一 赋值 的 值 一 起 传递 的 失 
败 继续 过 程 (下 面 标 有 注释 “*2* ”的 部 分 ) 将 在 继续 传播 有 关 的 失败 之 前 恢复 变量 的 原 值 。 
这 样 ， 一 个 成 功 的 赋值 就 提供 了 一 个 失败 继续 过 程 ， 这 一 过 程 将 拦截 随后 的 失败 ， 无 论 出 现 
什么 失败 ， 只 要 其 原本 需要 调用 fail2， 现 在 都 会 转 来 调用 这 个 过 程 ， 在 实际 调用 fai12 之 
前 撤销 所 做 的 赋值 。 


(define (analyze-assignment exp) 
(let ((var (assignment-variable exp) ) 
(vproc (analyze (assignment-valiue exp)))) 
(lambda (env succeed fail) 
(vproc env 
(lambda (val fail2) ; *1* 
(let ((old-value 
(lookup-variable-value var env))) 
(set-variable-value! var val env) 
(succeed ’ok 
(lambda () ; *2* 
(set-variable-value! var 
old-value 
env) 
(fail2))))) 
fail)))) 


过 程 应 用 

针对 应 用 的 执行 过 程 里 并 不 包含 什么 新 思想 ， 只 有 一 些 为 了 管理 各 种 继续 过 程 而 带 来 的 
复杂 情况 。 这 里 的 复杂 性 出 自 analyze-application， 这 是 由 于 在 对 运算 对 象 的 求 值 过 程 
中， 需要 维护 成 功 和 失败 继续 过 程 的 轨迹 。 我 们 用 一 个 过 程 get-args 去 求 值 运算 对 象 的 表 ， 
而 不 是 像 常规 求 值 器 中 那样 直接 使 用 nap: 


(define (analyze-application exp) 
(let ((fproc (analyze (operator exp))) 
(aprocs (map analyze (operands exp)))) 


xl TE ME UR, EAT LUBE AR OE CAE SHI T (W416 4%), 
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(lambda (env succeed fail) 
(fproc env 
(lambda (proc fail2) 
(get-args aprocs 
env 
(lambda (args fail3) 
(execute-application 
proc args succeed fail3)) 
fail2)) | 
fail)))) 


请 注意 在 9et-args 里 ， 我 们 怎样 通过 cdr 罕 过 aproc 执 行 过 程 的 表 ， 并 用 cons 构造 起 
args 的 结果 表 ， 其 中 用 一 个 成 功 继续 过 程 作为 参数 去 调用 表 里 的 各 个 aproc ， 这 种 调用 里 中 
又 递归 地 调用 了 get-args。 这 里 对 于 get-args 的 每 个 递归 调用 都 有 一 个 成 功 继续 ， 其 值 
是 将 新 得 到 的 实际 参数 cons 到 已 经 积累 起 来 的 实际 参数 表 上 : 


(define (get-args aprocs env succeed fail) 
(if (null? aprocs) 
(succeed ’() fail) 
((car aprocs) env 
| ;; success continuation for this aproc 
(lambda (arg fail2) 
(get-args (cdr aprocs) 
env 
;; success continuation for recursive 
;; callto get-args 
(lambda (args fail3) 
(succeed (cons arg args) 
fail3)) 
fail2)) 
fail))). 


实际 过 程 应 用 由 execute-application 执 行 ， 它 完成 工作 的 方式 与 常规 求 值 器 一 样 ， 
除了 其 中 需要 管理 一 些 继续 过 程 之 外 : 


(define (execute-application proc args succeed fail) 
(cond ((primitive-procedure? proc) 
(succeed (apply-primitive-procedure proc args) 
fail)) 
((compound-procedure? proc) 
((procedure-body proc) 
{extend-environment (procedure-parameters proc) 
args 
(procedure-environment proc) ) 
succeed 
fail)) 
(else 
(error 
"Unknown procedure type -- EXECUTE-APPLICATION" 
proc)))) 


amb 表 达 式 的 求 值 
特殊 形式 amb 是 这 一 非 确 定性 语言 中 的 核心 元 素 。 我 们 可 以 从 这 里 看 到 解释 过 程 的 基本 
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情况 ， 以 及 维护 继续 过 程 轨迹 的 原因 。amb 的 执行 过 程 定义 了 一 个 循环 try-next ， 它 周 而 
复 始 地 去 做 针对 表达 式 中 所 有 可 能 值 的 执行 过 程 。 对 于 每 个 执行 过 程 的 调用 都 带 有 一 个 失败 
继续 ， 这 一 失败 过 程 将 导致 我 们 去 试探 下 一 个 可 能 性 。 当 不 再 存在 更 多 可 试探 的 可 能 性 时 ， 
整个 amb 表 达 式 失败 。 
(define (analyze-amb exp) 
(let ((cprocs (map analyze (amb-choices exp)))}) 
(lambda (env succeed fail) 
(define (try-next choices) 
(if (null? choices) 
(fail) 
(icar choices) env 
succeed 
(lambda () 
(try-next (cdr choices)))))) 


(try-next cprocs)))) 
/ 


驱动 循环 

由 于 需要 有 人 允许 用 户 重 试 表达 式 求 值 (try-again) 的 机 制 ， 这 就 使 amb 求 值 器 的 驱动 
循环 变 得 非常 复杂 。 这 一 驱动 程序 里 用 了 一 个 称 为 internal-1oop 的 过 程 ， 该 过 程 以 过 程 
txry-again 作 为 参数 ， 这 里 的 意图 就 是 ， 调 用 Ery-again 将 导致 在 非 确 定性 求 值 中 走 进 下 
一 个 未 经 试探 的 分 支 。 这 个 internal-1loop 或 者 是 调用 try-again， 以 响应 用 户 在 驱动 循 
环 中 输入 的 try-again 请 求 ， 或 者 是 调用 ambeval 去 开始 一 次 新 的 求 值 。 

对 于 ambeval 调 用 的 失败 继续 过 程 将 通知 用 户 ， 现 在 已 经 没有 更 多 的 值 了 。 而 后 它 会 重 
新 调用 驱动 循环 。 

对 于 ambeval 调 用 的 成 功 继续 过 程 则 更 加 精细 而 微妙 。 它 将 打印 出 当时 得 到 的 值 ， 并 用 
一 个 try-again 过 程 去 再 次 调用 内 部 循环 ， 以 便 去 试探 下 一 可 能 性 。 这 里 的 next- 
alternative 过 程 被 作为 第 二 个 参数 传递 给 相应 的 成 功 继续 过 程 。 按 照常 规 ， 我 们 应 该 认 
为 这 第 二 个 参数 是 一 个 失败 继续 过 程 ， 是 在 当前 的 求 值 分 支 在 后 面 失 败 时 被 调用 的 。 而 在 目 
前 的 这 种 情况 里 ， 我 们 刚刚 完成 了 一 次 成 功 求 值 ， 所 以 应 该 调用 这 个 “失败 ”可 能 性 的 分 支 ， 


以 便 去 搜索 出 其 他 更 多 的 成 功 求 值 。 
(define input-prompt "3;;; Amb-~Eval input:") 
(define output-prompt ";;; Amb-Eval value:") 


{define (driver-loop) 
(define (internal-loop try~-again) 
(prompt-for-input input-prompt) 
(let ((input {read))) 
(if (eq? input ’try-again) 
(try-again) 
{begin 
(newline) 
(display "33; Starting a new problem ") 
(ambeval input 
the-global-environment 


z ambeval success 
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(lambda (val next-alternative) 
(announce-output output-prompt) 
(user-print val) 
(internal-loop next-alternative) ) 
'; ambeval failure 
(lambda () 
(announce-output 
"*>; There are no more values of") 
(user-print input) 
(driver-loop))})))} 
(internal-loop 
(lambda () 
(newline) 
(display ";;; There is no current problem’) 
(driver-loop)))} 


对 internal-1loop 的 初始 调用 里 用 了 一 个 try-again 过 程 ， 它 将 抱怨 说 没有 当前 的 问题 ， 
并 重新 开始 驱动 循环 。 当 用 户 在 尚未 求 值 的 情况 下 输入 rry-again 时 ， 就 会 出 现 这 种 情况 。 

练习 4.50 ”请 实现 一 种 新 的 特殊 形式 ramb， 它 应 该 与 amb 类 似 ， 但 是 以 一 种 随机 的 方式 
搜索 各 种 可 能 性 ， 而 不 是 严格 地 从 左 到 右 。 请 说 明 这 一 机 制 可 能 怎样 对 练习 4.49 中 Alyssa 遇 到 
的 问题 有 所 帮助 。 

练习 4.51 请 实现 一 种 新 的 赋值 Permanent-set!, 在 遇 到 失败 时 ， 这 种 赋值 并 不 撤销 。 
举例 来 说 ,我 们 可 能 需要 从 一 个 表 里 选 出 两 个 不 同 元 素 ， 并 统计 在 完成 一 个 成 功 选 择 的 过 程 
中 做 这 种 试验 的 次 数 ， 这 可 以 写成 : A 


(define count 0) 


(let ((x (an-element-of ’{a bc))) 
(y (an-element-of ‘(a bc)))) 

(permanent-set! count (+ count 1)) 
(require (not (eq? x y))) 
{list x y count)) 

-y; Starting a new problem 

-;; Amb-Eval value: 

(a b 2) 


jig Amb-Eval input: 
try-again 

-;, Amb-Eval value: 
(a c 3) 


如 果 在 这 里 用 的 是 set ! 而 不 是 pezmanent-set!， 那 么 这 时 会 显示 出 什么 ? 

练习 4.52 ”请 实现 一 种 新 的 称 为 if-fail 的 结构 ， 它 允许 用 户 去 捕捉 一 个 表达 式 里 的 失 
败 。if-fail 有 两 个 参数 。 它 像 平常 一 样 求 值 第 一 个 表达 式 ， 如 果 求 值 成 功 就 像 平常 一 样 返 
回 。 然 而 如 果 这 一 求 值 失败 ， 那 么 它 就 返回 第 二 个 表达 式 的 值 。 看 下 面 的 例子 : 


-;; Amb-Eval input: 
(if-fail (let ((x (an-element-of (1 3 5)))) 
(require (even? x)) 
x) 
"all-odd) 
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-;; Starting a new problem 

;;; Amb-Eval value: 

all-odd 

;;; Amb-Eval input: 

(if-fail (let ((x (an-element-of °(1 3 5 8)))) 
(require (even? x)) 
x) 

"all-odd) 

-;; Starting a new problem 

;;; Amb-Eval value: 

8 


练习 4.53 如 果 采 用 了 练习 4.51 的 permanent-set! 和 练习 4.52 的 1f-fail, 下 面 求 值 
”的 结果 是 什么 ? 
(let ((pairs *())) 
(if-fail (let ((p (prime-sum-pair ’(1 3 5 8) (20 35 110)))) 
| (permanent-set! pairs (cons p pairs) ) 
(amb) ) 
pairs) ) 
练习 4.54 ”如 果 我 们 原来 没有 认识 到 require 可 以 用 amb 实 现 为 一 个 常规 过 程 ， 可 以 由 
用 户 作 为 非 确 定性 程序 的 一 部 分 来 定义 ， 那 么 ， 我 们 可 能 就 不 得 不 将 它 实 现 为 一 个 特殊 形式 。 
这 可 能 需要 下 面 的 语法 过 程 : 
(define te@quire? exp) (taqged-list? exp ’require)) 


(define (require-predicate exp) (cadr exp)) 


以 及 analyze 里 完成 分 派 的 一 个 新 子 句 : 


( (require? exp) (analyze-require exp) ) 


还 要 用 过 程 analyze-require 去 处 理 表达 式 require。 请 完成 下 面 的 定义 analyze- 
require: 
(define (analyze-require exp) 
(let ((pproc (analyze (require-predicate exp)))) 
(lambda (env succeed fail) 
(pproc env 
(lambda (pred-value fail2) 
(if <??> 
<??> 
{succeed ’ok fail2))) 
fail)))) 


44 逻辑 程序 设计 


在 第 1 章 里 我 们 强调 说 ,计算 机 科学 处 理 的 是 命令 式 怎样 做 ) 的 知识 ， 而 数学 处 理 的 古 
说 明 式 (是 什么 ) 的 知识 。 确 实 是 这 样 ， 程 序 设计 语言 要 求 程序 员 以 一 种 形式 去 表述 有 关 的 
知识 ， 其 中 需要 指明 一 种 为 解决 某 一 特定 问题 的 一 步 一 步 的 方法 。 但 在 另 一 方面 ， 作 为 语言 
实现 的 一 部 分 ， 高 级 语言 也 提供 了 很 大 量 的 方法 论 知识 ， 使 用 户 可 以 不 必 关 心 具体 计算 如 何 
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进行 的 许多 细节 。 

大 部 分 程序 设计 语言 ， 包 括 Lisp ， 都 是 围绕 着 数学 函数 值 的 计算 组 织 起 来 的 。 面 向 表达 
式 的 语言 (例如 Lisp 、Fortran 和 Algol) 利用 了 表达 式 的 “一 语 双 关 ”; 一 个 描述 了 某 个 函数 值 
的 表达 式 也 可 以 解释 为 一 种 计算 该 值 和 的 方法 。 正 由 于 此 ， 大 部 分 程序 设计 语言 都 强烈 地 倾向 
于 单一 方向 的 计算 〈 计 算 中 有 着 定义 清晰 的 输入 和 输出 )。 然 而 ， 也 确实 存在 一 些 与 此 有 者 根 
本 性 不 同 的 程序 设计 语言 ， 其 中 减轻 了 这 种 倾 周 性 。 在 3.3.5 节 里 我 们 已 经 看 到 过 一 个 这 方面 
的 例子 ， 那 里 的 计算 对 象 是 一 些 算术 约束 条 件 。 在 一 个 约束 系统 里 ， 计 算 的 方向 和 顺序 都 设 
有 明确 定义 ; 在 执行 这 种 计算 的 过 程 中 ， 系 统 必须 为 “怎样 做 ”提供 许多 细 市 ， 比 常规 的 算 
术 计 算 更 多 一 些 。 当 然 ， 这 并 不 意味 着 用 户 可 以 完全 摆脱 提供 命令 式 知 识 的 责任 。 存 在 着 许 
多 能 够 实现 同一 集约 束 基 系 的 约束 网 络 ， 用 户 必 须 从 这 些 数 学 上 等 价 的 网 络 中 ， 选 出 一 个 适 
合 于 某 一 特定 计算 的 网 络 。 

4.3 节 展示 的 非 确定 性 程序 求 值 器 也 偏离 了 常规 的 观点 ， 即 那 种 认为 程序 设计 就 是 关于 如 
何 构 造 出 计算 单 向 函数 的 算法 的 观点 。 在 一 个 非 确定 性 的 语言 里 ， 表 达 式 可 以 有 多 个 值 ， 而 
作为 这 种 性 质 的 结果 ， 计 算 中 需要 处 理 的 就 是 关系 ,而 不 是 单一 值 的 函数 。 逻 辑 程序 设计 扩 
展 了 这 一 思想 ， 提 出 了 一 种 程序 设计 的 关系 模型 ， 其 中 加 入 了 一 类 功能 强大 的 称 为 合 一 的 符 
号 模式 匹配 。 

在 这 一 方法 可 以 用 的 那些 地 方 ， 它 能 成 为 一 种 威力 强大 的 写 程 序 方式 。 这 种 威力 部 分 来 
自 于 下 面 的 事实 : 一 个 有 关 “ 是 什么 ”的 事实 可 能 被 用 于 解决 多 个 不 同 的 问题 ， 其 中 可 能 包 
含 着 不 同 的 “怎样 做 ”部 分 。 作 为 一 个 例子 ， 下 面 考 虑 简单 的 appenda 操 作 ， 它 以 两 个 表 作 为 
参数 ， 组 合 起 它们 的 元 素 ， 形 成 一 个 作为 结果 的 表 。 在 一 种 过 程 性 语言 里 ， 如 Lisp ， 我 们 可 
以 基于 基本 的 表 构 造 函 数 cons 定 义 出 append， 正 如 前 面 2.2.1 市 所 做 的 那样 : 

{define (append x y) 

(if (null? x) 


Y 
(cons (car x) (append (cdr x) y)))) 


这 个 过 程 可 以 看 作 是 把 下 面 的 两 条 规则 翻译 到 Lisp 语 言 里 ， 其 中 的 第 一 条 规则 涵盖 了 所 有 第 
-个 表 为 空 的 情况 ,而 第 二 条 处 理 非 空 表 的 情况 ， 这 种 表 是 两 个 部 分 的 cons ; 
“对 于 任何 一 个 表 y， 对 空 表 与 y 进 行 2ppenad 形 成 的 就 是 y。 


262 罗 辑 程序 设计 是 从 有 关 自动 定理 证 明 的 长 期 研究 中 产生 出 来 的 。 早 期 有 关 定 理 证 明 程序 的 建树 很 少 、 因 为 它 
们 都 是 在 穷尽 地 搜索 可 能 证 明 的 空间 。 使 这 种 搜索 成 为 可 能 的 最 重要 突破 是 在 20 世纪 60 年 代 前 期 被 发 现 的 合 
一 算法 和 归结 原理 (Robinson 1965 )。 举 例 来 说 ， 归 结 被 Green 和 Raphael (1968) ( 另 见 Green 1969) 用 作 
他 们 的 演绎 式 问题 回答 系统 的 基础 。 在 此 期 间 ， 研 究 者 们 主要 关注 的 是 保证 能 找到 证 明 (如 果 存 在 的 话 ) 的 
算法 。 控 制 这 种 算法 ， 使 之 导向 一 个 证 明 是 很 困难 的 。Hewitt (1969) 认识 到 ， 我 们 有 可 能 将 程序 设计 语言 
的 控制 结构 和 完成 逻辑 操作 的 系统 中 的 运算 结合 起 来 ， 由 此 导致 了 4.3.1 节 提 到 的 自动 搜索 方面 的 工作 (AR 
注 251 )。 在 这 同一 时 期 ，Colmerauer 在 马赛 为 处 理 自然 语言 而 开发 了 一 些 基于 规则 的 系统 ( 见 Colmerauer et 
al. 1973), 为 了 表示 这 些 规则 ,他 发 明了 一 种 称 为 Prolog 的 语言 。 在 爱丁堡 的 Kowalski (1973; 1979) 认识 到 ， 
Prolog 程序 的 执行 过 程 可 以 解释 为 是 在 证 明定 理 (采用 的 是 一 种 称 为 线性 Horn 子 句 的 证 明 技 术 )。 后 面 这 两 
上 股 力量 的 融合 最 后 产生 出 逻辑 程序 设计 运动 。 正 因为 这 样 、， 在 分 配 逻辑 程序 设计 开发 的 荣誉 了 时， 法 国人 可 以 
指出 Prolog 在 马赛 大 学 的 诞生 ， 而 英国 人 则 可 以 强调 爱丁堡 大 学 的 工作 。 而 根据 MIT 人 士 的 看 法 ， 逻 辑 程 序 
设计 的 开发 ， 不 过 是 这 些 研究 组 在 试图 弄 清 楚 Hewitt 在 其 才华 横 洲 而 又 深 不 可 测 的 博士 论文 中 到 底 说 了 些 什 
么 的 过 程 中 搞 出 来 的 。 有 关 逻 辑 程序 设计 的 历史 可 参 见 Robinson 1983, 
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* 对 于 任何 的 、v、y 和 z, 将 (cons u v) 与 y 做 append 将 形成 (cons u z)， 条 件 
fev 5y Mappend# Rz’, 

利用 这 一 append 过 程 ， 我 们 可 以 回答 诸如 下 面 这 一 类 的 问题 : 

找 出 (a b) (c d) append, 

但 是 ， 同 样 的 两 条 规则 也 足以 回答 下 面 这 类 问题 ， 而 上 述 过 程 却 无 法 回答 : 

找 出 一 个 表 y ， 使 它 与 (a b) 的 append 产 生出 (a bc d), 

找 出 所 有 的 XxX 和 y， 它 们 的 append 形 成 (a bc d), 

在 逻辑 式 程序 设计 语言 里 ， 程 序 员 写 append “过程 ”的 方式 也 就 是 陈述 出 上 面 给 出 的 有 

关 append 的 两 条 规则 。 相 应 的 “怎样 做 ”的 知识 由 解释 器 自动 提供 ， 这 将 使 这 一 对 规则 能 够 
回答 上 面 的 三 类 有 关 append 的 问题 ”*。 

当代 的 逻辑 程序 设计 语言 (包括 我 们 在 这 里 将 要 实现 的 这 个 ) 都 有 一 些 实质 性 的 缺陷 ， 
它们 里 面 有 关 “ 怎 样 做 ”的 通用 方法 ， 有 可 能 使 它们 陷入 廖 误 性 的 无 穷 循 环 或 者 其 他 并 非 我 
们 期 望 的 行为 之 中 。 逻 辑 程 序 设 计 是 计算 机 科学 研究 的 一 个 活跃 领域 。 

在 本 章 的 前 面部 分 里 ， 我 们 探索 了 一 些 实现 解释 器 的 技术 ， 也 描述 了 针对 类 Lisp 语 言 世 
解释 器 的 基本 元 素 (实际 上 ， 人 也 就 是 针对 任何 常规 语言 的 解释 器 ) 。 现 在 我 们 将 要 应 用 这 些 思 
想 ， 讨 论 一 个 逻辑 程序 设计 语言 的 解释 器 。 我 们 称 这 种 语言 为 查询 语言 ， 因 为 在 挡 述 提取 数 
据 库 信 息 的 查询 或 称 提问 时 ， 这 种 语言 非常 有 用 。 虽 然 这 种 查询 语言 与 Lisp 差 异 巨 大 ， 但 我 
们 会 发 现 ， 基 于 前 面 一 直 在 使 用 的 一 般 性 框架 描述 这 个 语言 也 是 很 方便 的 : 一 组 基本 元 素 ， 
加 上 一 些 组 合 手段 ， 使 我 们 能 将 简单 元 素 组 合 起 来 构造 更 复杂 的 元 素 ， 还 有 抽象 的 手段 ， 使 
我 们 能 将 复杂 的 元 素 看 作 单 个 的 概念 单元 。 逻 辑 程序 设计 的 解释 器 比 像 Lisp 那 类 语言 的 解释 
器 复杂 许多 ， 然 而 ， 正 如 我 们 将 要 看 到 的 ， 这 个 查询 语言 解释 器 里 也 包含 了 许多 可 以 在 4.1.1 
节 的 解释 器 里 找到 的 同样 元 素 。 特 别 是 这 里 也 存在 着 一 个 “ 求 值 ”部 分 ， 它 基于 表达 式 类 型 
做 分 类 ， 还 有 一 个 “应 用 ”部 分 ， 实 现 语言 里 的 抽象 机 制 (在 Lisp 里 是 过 程 ， 在 逻辑 程序 设 
计 中 是 规则 )。 还 有 ， 在 这 一 实现 中 扮演 着 核心 角色 的 是 一 种 框架 数据 结构 ， 它 确定 了 符号 与 
它们 的 关联 值 之 间 的 对 应 。 这 一 查询 语言 中 另 一 个 有 趣 的 地 方 是 我 们 实质 性 地 使 用 了 流 ， 那 
是 在 第 3 章 里 介绍 的 。 


44.1 演绎 信息 检索 
逻辑 程序 设计 特别 适合 为 数据 库 提 供 界 面 ， 用 于 完成 各 种 信息 检索 。 我 们 在 本 章 将 要 实 


23 为 了 看 到 在 这 些 规则 与 过 程 之 间 的 对 应 ， 令 过 程 中 的 x (这 里 的 x 非 空 ) 对 应 于 规则 里 的 (cons u v), 这 
样 z 就 对 应 于 (cdr x) 和 y 的 append。 

264 这 当然 还 不 可 能 使 用 户 摆脱 有 关 如 何 计算 出 答案 的 所 有 问题 。 存 在 许多 数学 上 等 价 的 描述 append 关 系 的 不 
同 规则 集合 ， 其 中 只 有 一 些 可 以 转化 为 能 在 任意 方向 上 有 效 地 计算 的 设施 。 此 外 ， 有 了 时 “是 什么 ”的 信息 对 
于 并 没有 给 出 有 关 “ 怎 样 做 ”的 任何 线索 。 例 如 ， 请 考虑 下 面 问题 HAER =x. 

265 对 逻辑 程序 设计 的 兴趣 在 20 世 纪 80 年 代 前 期 达到 高 潮 ， 其 时 日 本 政府 开始 了 一 个 野心 勃勃 的 计划 ， 目 标 是 构 
造 出 一 种 能 够 优化 运行 逻辑 式 程序 设计 语言 的 超 高 速 计算 机 。 这 种 计算 机 的 速度 采用 LIPS (每 秒 完成 逻辑 推 
理 次 数 ，Logical Inferences Per Second) 来 衡量 ， 而 不 是 用 通常 的 FLOPS (每 秒 浮 点 运算 次 数 FLoating- 
point Operations Per Second) 。 虽 然 这 一 项 目 中 成 功 地 开发 出 了 开始 计划 的 有 关 硬 件 和 软件 ， 但 国际 计算 机 
工业 却 走 向 了 不 同 的 方向 。 参 见 Feigenbaum and Shrobe 1993 有 关 日 FMAM AM. BRE FT e 
转向 考 虚 那 些 不 是 基于 简单 模式 匹配 技术 的 关系 式 程序 设计 ， 例 如 处 理 数 值 约 束 的 能 力 ， 类 似 于 我 们 在 3.3.3 
节 展 示 的 约束 传播 系统 。 
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现 的 查询 语言 就 古 为 了 这 种 使 用 方式 而 设计 的 。 
人 我 们 要 在 这 里 展示 一 下 如 何 将 它 用 于 管理 


Microshaft 公 司 的 人 事 记 录 数 据 库 ， 这 是 一 个 位 于 波士顿 地 区 的 成 功 的 高 科技 公司 。 我 们 的 话 
二 提 供 了 模式 时 页 的 人 可 信息 访问 ， 还 可 以 利用 一般 性 规则 去 能 逻 可 推 表 
一 个 实例 数据 库 


Microshaft 的 人 事 数据 库 里 包含 了 一 些 有 关公 司 人 事 的 断言 ， 这 里 是 有 关 Ben Bitdiddle 的 
28, ， 他 是 本 公司 里 的 计算 机 大 师 : 
(address (Bitdiddle Ben) (Slumerville (Ridge Road) 10)) 


(job (Bitdiddle Ben) (computer wizard) ) 
(salary (Bitdiddle Ben) 60000) 


每 个 断言 是 一 个 表 (这 里 是 个 三 元 组 )， 其 元 素 本 身 也 可 以 是 表 。 
作为 这 里 的 大 师 ，Ben 管 理 着 公司 的 计算 机 分 部 ， 他 的 属 下 有 两 个 程序 员 和 -- 个 技师 。 下 
面 是 有 关 他 们 的 信息 : 


address (Hacker Alyssa P) (Cambridge (Mass Ave) 78)) 


( 
(job (Hacker Alyssa P) (computer programmer) }) 
(salary (Hacker Alyssa P) 40000) 

( 


Supervisor (Hacker Alyssa P) (Bitdiddle Ben) ) 


(address (Fect Cy D) (Cambridge (Ames Street) 3)) 
(job (Fect Cy D) {computer programmer) ) 

(salary (Fect Cy D) 35000) 

(supervisor (Fect Cy D) (Bitdiddle Ben) ) 


address (Tweakit Lem E) (Boston (Bay State Road) 22)) 


salary (Tweakit Lem E) 25000) 


( 

(job (Tweakit Lem E) (computer technician) ) 
( 

(supervisor (Tweakit Lem E) (Bitdiddle Ben)) 


在 这 里 还 有 -- 个 实习 程序 员 ， 由 Alyssa 指 导 : 
(address (Reasoner Louis) (Slumerville (Pine Tree Road) 80)) 
(job (Reasoner Louis) (computer programmer trainee) ) 
(salary (Reasoner Louis) 30000) 


(supervisor (Reasoner Louis) (Hacker Alyssa PR) ) 


所 有 这 些 人 都 属于 计算 机 分 部 ， 这 由 他 们 的 工作 摘 述 中 的 第 一 个 词 computer 表 明 。 
Ben 是 公司 的 高 级 雇员 ， 他 的 上 司 就 是 公司 的 大 老板 本 人 : 
{supervisor (Bitdiddle Ben) (Warbucks Oliver) ) 
(address (Warbucks Oliver) (Swellesley (Top Heap Road))) 


(job (Warbucks Oliver) (administration big wheel) ) 


(salary (Warbucks Oliver) 150000) 


除了 计算 机 分 部 外 ， 这 个 公司 里 还 有 一 个 会 计 分 部 ， 由 一 位 主管 会 计 和 他 的 助手 组 成 : 
(address (Scrooge Eben) (Weston (Shady Lane) 10)) 
(job (Scrooge Eben) (accounting chief accountant) ) 


(salary (Scrooge Eben) 75000) 
(supervisor (Scrooge Eben) (Warbucks Oliver)) 
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(address (Cratchet Robert) (Allston (N Harvard Street) 16)) 
(job (Cratchet Robert) (accounting scrivener) ) 

(Salary (Cratchet Robert) 18000) 

(supervisor (Cratchet Robert) (Scrooge Eben)) — 


大 老板 还 有 一 个 秘书 : 

(address (Aull DeWitt) (Slumerville (Onion Square) 5) ) 

(job (Aull DeWitt) (administration secretary) ) 

(salary (Aull DeWitt) 25000) 

(supervisor (Aull DeWitt) (Warbucks Oliver) ) 

这 个 数据 库 里 还 包含 另外 一 些 断 言 ， 描 述 了 从 事 某 些 工作 的 人 还 可 以 做 另外 一 些 种 类 的 
工作 。 比 如 说 ， 计 算 机 大 师 还 可 以 做 计算 机 程序 员 和 计算 机 技师 : 


Fa 


(can-do-job (computer wizard) (computer programmer) ) 


(can-do-job (computer wizard) (computer technician) ) 


计算 机 程序 员 还 可 以 做 实习 程序 员 的 工作 : 


(can-do-job (computer programmer) 


{computer programmer trainee) ) 


还 有 ， 就 像 我 们 都 知道 的 : 
(can-do-job (administration secretary) 


(administration big wheel))} 


简单 查询 

这 一 查询 语言 允许 用 户 从 数据 库 里 检索 信息 ， 采 用 的 方式 就 是 在 响应 系统 的 提示 时 提出 
有 关 查 询 。 举 例 来 说 ， 为 了 找 出 所 有 的 计算 机 程序 员 ， 我 们 可 以 说 : 

.;; Query input: . 

(job ?x (computer programmer} ) 


系统 的 响应 将 会 是 下 面 几 项 : 
:;; Query results: 
(job (Hacker Alyssa P) (computer programmer) ) 
(job (Fect Cy D) (computer programmer) ) 


所 输入 的 查询 应 该 描述 出 我 们 需要 在 数据 库 里 查找 的 ， 能 与 一 个 特定 模式 匹配 的 那些 条 
目 。 在 这 个 例子 里 ， 描 述 条 目的 模式 由 三 个 项 组 成 ， 其 中 的 第 一 项 是 文字 符号 job ， 第 二 个 
项 可 以 是 任何 东西 ， 而 第 三 项 是 文字 的 表 (computer programmer )。 在 描述 匹配 的 表 里 ， 
作为 第 二 项 的 “任何 东西 ”用 一 个 模式 变量 ?X 描 述 。 模 式 变量 的 一 般 形式 是 一 个 符 导 ， 作 为 
变量 的 名 字 ， 在 它 的 最 前 面 字符 是 一 个 问号 。 下 面 我 们 将 看 到 ， 为 模式 变量 取 名 字 是 有 用 的 ， 
因此 这 里 没有 采用 在 模式 中 放 一 个 ? ， 用 于 表示 “任何 东西 ”的 形式 。 系 统 对 简单 查询 的 啊 应 
就 是 显示 出 数据 库 里 所 有 的 能 与 给 定 模式 匹配 的 条 目 。 

模式 里 可 以 有 不 止 一 个 变量 。 例 如 查询 ; 

(address ?x ?y) 

将 列 出 所 有 雇员 的 地 址 。 | 

模式 里 也 可 以 没有 变量 。 此 时 这 一 查询 就 只 是 去 确认 该 模式 是 否 就 是 数据 库 里 的 一 个 条 

目 。 如 果 是 的 话 ， 那 么 就 存在 一 个 匹配 ， 否 则 就 没有 匹配 。 
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同一 模式 变量 也 可 以 在 一 个 查询 里 出 现 多 次 ， 这 就 刻画 了 同一 个 “任何 东西 ”必须 出 现 
的 各 个 不 同位 置 。 这 也 是 为 什么 变量 需要 有 名 字 的 原因 。 举 例 说 ， 
(supervisor ?x ?x) 
将 找 出 所 有 的 人 ， 他 们 的 上 司 就 是 他 们 上 自己 (虽然 在 我 们 的 示例 数据 库 里 没有 这 种 断言 )。 
查询 : 
(job ?x (computer ?type)) 
与 所 有 这 样 的 工作 条 目 匹 配 : 其 第 三 项 是 一 个 两 元 素 的 表 ， 其 中 的 第 一 项 是 computer” : 
(job (Bitdiddle Ben) (computer wizard) } 
(job (Hacker Alyssa P) (computer programmer) ) 
(job (Fect Cy D) (computer programmer) ) 
(job ({ 
这 个 模式 不 会 与 下 面条 目 匹 配 : 
{job (Reasoner Lowis) (computer programmer trainee) ) 
因为 这 一 条 目 里 的 第 三 项 是 一 个 包含 三 个 元 素 的 表 ， 而 模式 里 的 第 三 项 清 清 楚楚 地 说 明 它 要 
求 只 有 两 个 元 素 。 如 果 我 们 希望 修改 上 面 模式 ， 使 被 匹配 的 条 目的 第 三 项 可 以 是 任何 一 个 由 
computezr 开 头 的 表 ， 那 么 就 可 以 采用 下 面 的 描述 | 
(job ?x (computer . ?type)) 
例如 , 


(computer . ?type) 


将 能 够 匹配 数据 


(computer programmer trainee) 


其 中 的 ?type 与 表 (programmer trainee) 匹配 。 这 个 模式 也 能 匹配 数据 


Tweakit Lem E) {computer technician) ) 


(computer programmer) 


其 中 的 ?type 匹 配 表 (programmer)。 还 能 匹配 数据 
(computer) 
其 中 的 ?type 匹 配 空 表 O. 
我 们 可 以 把 对 于 这 一 查询 语言 中 简单 查询 的 处 理 描述 如 下 : | 
。 系 统 将 找 出 使 得 查询 模式 中 变量 满足 这 一 模式 的 所 有 赋值 ， 也 就 是 说 ， 为 这 些 变量 找 出 
所 有 的 值 集合 ， 使 得 如 果 将 这 些 模 式 变 量 用 这 样 的 一 组 值 实例 化 (取代)， 得 到 的 结果 
就 在 这 个 数据 库 里 。 
。 系统 对 查询 的 响应 方式 ， 就 是 列 出 查询 模式 的 所 有 满足 要 求 的 实例 ， 这 些 实 例 可 以 通过 
将 模式 中 的 变量 赋 为 满足 它 的 值 而 得 到 。 
请 注意 ， 如 果 模 式 中 没有 变量 ， 这 个 查询 就 简化 为 一 个 有 关 此 模式 是 否 出 现在 数据 库 里 
的 确认 了 。 如 果 确 实 如 此 ， 空 赋值 (不 为 任何 变量 赋值 ) 将 在 数据 库 里 满足 这 一 模式 。 
练习 4.55 ”请 给 出 在 上 述 数据 库 里 检索 下 面 信息 的 简单 查询 : 
a) 所 有 被 Ben Bitdiddle 管 理 的 人 ; 


2% 采用 带 点 尾部 的 记 法 形式 在 2.20 布 介绍 。 





b) 会 计 部 所 有 人 的 名 字 和 工作 ; 

c) 在 Slumerville 居 住 的 所 有 人 的 名 字 和 住址 。 

复合 查询 

简单 查询 形成 了 这 一 查询 语言 的 基本 操作 。 为 了 构造 复合 操作 ， 查 询 语言 提供 了 一 些 组 
合 手段 。 使 查询 语言 成 为 逻辑 程序 设计 语言 的 一 个 原因 是 ， 在 这 里 所 用 的 组 合 手段 模仿 了 构 
造 逻 辑 表 达 式 的 组 合 手段 : and、or 和 not。( 这 里 所 说 的 and、or 和 not 并 不 是 Lisp 基 本 过 
程 ， 而 是 用 于 查询 语言 的 几 个 内 部 操作 ,。) 

我 们 可 以 利用 and ， 用 下 面 查询 找 出 所 有 计算 机 程序 员 的 住址 : 


(and (job ?person (computer programmer) ) 


(address ?person ?where) ) 


输出 的 结果 古 : 
(and (job (Hacker Alyssa P) (computer programmer) ) 


(address (Hacker Alyssa P) (Cambridge (Mass Ave) 78)” 


(and (job (Fect Cy D) (computer programmer) ) 
(address (Fect Cy D) (Cambridge (Ames Street) 3))) 


一 般 说 ， 

(and <gueryi> <query,> ... <query,>) 
由 对 模式 变量 的 所 有 同时 满足 <query:> ... <query > HER RME 。 

就 像 简 单 查 询 一 样 ， 系 统 处 理 复 合 查 询 的 方式 ， 也 是 找 出 对 模式 变量 的 所 有 满足 查询 的 
赋值 ， 而 后 显示 出 查询 对 于 这 些 值 的 实例 化 结果 。 

构成 复合 查询 的 另 一 个 手段 是 通过 or 。 例 如 : 


(or (supervisor ?x (Bitdiddle Ben)) 


(supervisor ?x (Hacker Alyssa P))) 


将 会 找 出 所 有 被 Ben Bitdiddle 或 者 Alyssa P. Hacker BEAD A i: 


(or (supervisor (Hacker Alyssa P) (Bitdiddle Ben) ) 
(supervisor (Hacker Alyssa P) (Hacker Alyssa P))) 


(or (supervisor (Fect Cy D) (Bitdiddle Ben)) 
(supervisor (Fect Cy D) (Hacker Alyssa P))) 


(or (supervisor (Tweakit Lem E) (Bitdiddle Ben) ) 
(supervisor (Tweakit Lem E) (Hacker Alyssa P))) 


(or (supervisor (Reasoner Louis) (Bitdiddle Ben)}) 


(supervisor (Reasoner Louis) (Hacker Alyssa P))) 


一 般 说 ， 
(or <qgueryi> <query,> ... <query,>) . 

由 对 模式 变量 的 所 有 满足 <guemi> ... <guery> 中 至 少 一 个 查询 的 那些 值 集合 满足 。 
复合 查询 还 可 以 用 net 构造。 例如 ， . 


(and (Supervisor ?x (Bitdiddle Ben) ) 


(not (job ?x (computer programmer) ) ) ) 


将 找 出 所 有 由 Ben Bitdiddle 领 导 的 不 是 计算 机 程序 员 的 人 。 一 般 而 言 ， 
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(not <guery\>) 


被 所 有 的 对 于 模式 变量 的 不 满足 <Gueryi> 的 赋值 满足 ”。 

最 后 一 种 组 合 形式 称 为 isp-value 。 当 lisp~value 被 用 作 某 个 模式 的 第 一 个 元 素 时 ， 
就 说 明了 下 一 个 元 素 是 一 个 Lisp 的 谓词 ， 应 该 将 它 应 用 于 作为 其 参数 的 其 余 《实例 化 的 ) 元 
素 。 一 般 说 ， 

(lisp-value <predicate> <arg> ... <arg,>) 

将 被 那样 一些 对 模式 变量 的 赋值 满足 ， 这 些 赋值 使 得 将 <predicate> 应 用 于 实例 化 后 的 <argi> … 
<argn> 得 到 真 。 举 个 例子 ， 为 找 出 所 有 工资 高 于 30 000 美 元 的 人 ， 我 们 可 以 写 ”: 


(and (salary ?Person ?amount) 


(lisp-value > ?amount 30000)) 


6334.56 ”请 给 出 检索 下 面 信 息 的 复合 查询 : 

a) Ben Bitdiddle 的 所 有 下 属 的 名 字 ， 以 及 他 们 的 住址 ; 

b) 所 有 工资 少 于 Ben Bitdiddle 的 人 ， 以 及 他 们 的 工资 和 Ben Bitdiddle 的 工资 ， 
c) 所 有 不 是 由 计算 机 分 部 的 人 管理 的 人 ， 以 及 他 们 的 上 司 和 工作 。 


规则 
除了 基本 查询 和 复合 查询 之 外 ， 这 一 查询 语言 还 为 查询 的 抽象 提供 了 方法 。 这 通过 规则 
的 方式 给 出 。 规 则 : 
(rule {lives-near ?person-1l ?person-2) 
(and (address ?person-1 (?town . ?rest-1)) 


(address ?person-2 (?town . ?rest-2)) 


(not (same ?person-1 ?person-2)))) 


描述 的 是 如 果 两 个 人 住 在 同一 个 城镇 ， 就 认为 他 们 住 得 很 近 。 最 后 的 not 子 句 防止 这 一 规则 
党 所 有 的 人 自己 和 自己 住 得 近 。 这 一 关系 可 以 定义 为 一 条 极 简单 的 规则 ”: | 


(rule (same ?x ?xX)) 


下 面 规则 描述 了 某 人 是 一 个 组 织 里 的 “大 人 物 "”， 条 件 是 他 管理 的 某 些 人 还 管理 其 他 人 : 


(cule (wheel ?person) 
(and (supervisor ?middle-manager ?person) 


(supervisor ?x ?middle-manager) )) 


规则 的 一 般 形式 古 : 


(rule <conclusion> <body>) 


27 实际 上， 有 关 not 的 描述 只 对 简单 情况 是 合法 的 。not 的 实际 行为 更 复杂 一 些 。 我 们 将 在 4.4.2 节 和 4.4.3 节 考 
察 not 的 特殊 性 质 。 | 

%8 1jisp-value 应 该 只 用 于 执行 查询 语言 里 没有 提供 的 操作 。 特 别 是 ， 不 应 该 用 它 去 做 相等 检查 (因为 这 实际 
上 就 是 查询 语言 中 的 匹配 所 要 做 的 事情 ) 或 者 不 等 检查 〈 因为 这 可 以 按 下 面 方式 用 同一 规则 完成 )。 

w 请 注意 ， 为 弄 清 两 个 东西 一 样 并 不 需要 same ， 只 需要 为 它们 使 用 同样 的 模式 变量 一 -从 效果 看 ， 这 就 是 说 有 
的 是 一 个 东西 而 不 是 两 个 。 例如 1ives-near 规则 里 的 ?town 和 下 面 whee1i 规 则 里 的 ?middle-manager。 
当 我 们 希望 强迫 要 求 两 个 东西 不 同时 same 才 有 用 ， 如 在 1ives-near 规 则 里 的 ?person-1 和 ?person-2。 
虽然 在 一 个 查询 里 的 两 个 部 分 使 用 同一 模式 变量 将 强迫 同样 的 值 出 现在 这 两 处 ， 采用 不 同 模式 变量 却 不 能 强 
迫 它们 出 现 不 同 的 值 ( 赋 给 不 同 模式 变量 的 值 可 以 相同 也 可 以 不 同 ) 。 
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其 中 的 <conclusion> 是 一 个 模式 ，<body> 可 以 是 任何 查询 ”。 我 们 可 以 认为 ， 一 个 规则 就 
像 是 表示 了 很 大 的 (其 至 是 无 穷 的 ) 一 组 断言 ， 也 就 是 相应 规则 的 结论 的 所 有 实例 ， 其 变量 
赋值 满足 规则 的 体 。 前 面 说 过 ， 在 描述 一 个 简单 查询 (模式) 时 ， 如 果 对 模式 中 的 变量 做 了 
一 个 赋值 ， 这 样 实例 化 后 的 模式 出 现在 数据 库 里 ， 我 们 就 说 该 赋值 满足 这 个 模式 。 其 实 模式 
并 不 必 显 式 地 作为 断言 出 现在 数据 库 里 ， 它 也 可 以 是 由 某 条 规则 所 强 含 的 隐 式 断言 。 例 如 ， 
查询 

(lives-near ?x (Bitdiddle Ben)) 
结果 得 到 


(lives-near (Reasoner Louis) (Bitdiddle Ben)) 
(lives-near (Aull DeWitt) (Bitdiddle Ben) ) 


要 找 出 所 有 住 在 Ben Bitdiddle 附 近 的 计算 机 程序 员 ， 我 们 可 以 同 
(ind (job ?x (computer programmer)) . 
(lives-near ?x (Bitdiddle Ben))) 


就 像 复合 过 程 的 情况 一 样 ， 规 则 也 可 以 作为 其 他 规则 里 的 一 部 分 CR RATE Elm lives - 
near 规 则 中 已 经 看 到 的 那样 ) ， 或 者 甚至 可 以 递归 地 定义 。 举 个 例子 ， 规 则 


(rule (outranked-by ?staff-person ?boss) 
(or (supervisor ?staff-person ?boss ) 
(and (supervisor ?staff-person ?middle-manager) 


(outranked-by ?middle-manager ?boss)))) 

说 一 个 职员 是 一 个 老板 的 下 级 ， 条 件 是 如 果 这 个 老板 就 是 他 的 主管 ， 或 者 〈 递 归 的 ) 这 个 人 
的 主管 是 这 个 老板 的 下 级 。 

练习 4.57 ”请 定义 一 条 规则 ， 说 某 甲 可 以 代替 某 乙 ， 如 果 甲 所 做 工作 与 乙 相 同 ， 或 者 任 
何 能 做 甲 的 工作 的 人 都 能 做 乙 的 工作 ， 而 且 甲 与 乙 不 是 同一 个 人 。 使 用 你 的 规则 ， 给 出 找 出 
下 面 结果 的 查询 : 

a) 所 有 能 代替 Cy D. Fect 的 人 ， | 

b) 所 有 能 代替 某 个 工资 比 自己 高 的 人 的 人 ， 以 及 这 两 个 人 的 工资 。 

练习 4.58 ”请 定义 一 条 规则 说 ， 一 个 人 是 某 部 门 里 的 “大 腕 ”"， 如 果 这 人 工作 在 该 部 门 ， 
但 在 这 一 部 门 里 没有 他 的 上 司 。 

练习 4.59 Ben Bitdiddle 经 常 开 会 迟到 。 他 害怕 这 种 习惯 会 影响 他 的 职位 ， 因 此 决定 做 反 
有 关 的 事情 。 他 在 Microshaft 的 数据 库 里 增加 了 所 有 每 周 例会 的 信息 ， 写 成 如 下 断言 : 


(meeting accounting (Monday 9am) ) 
(meeting administration (Monday 10am) ) 
(meeting computer (Wednesday 3pm) ) 
(meeting administration (Friday ipm)) 


这 里 的 每 个 断言 对 应 于 整个 分 部 的 一 次 会 议 。Ben 还 为 全 公司 会 议 (包括 各 个 分 部 ) 加 入 了 一 
个 条 目 。 公 司 的 所 有 雇员 应 该 出 席 这 个 会 议 。 
(meeting whole-company (Wednesday 4pm) ) 


a) 在 星期 五 上 午 ，Ben 和 希望 查询 数据 库 ， 确 定 今天 的 所 有 会 议 。 他 应 该 使 用 什么 样 的 查 


0 我 们 允许 没有 体 的 规则 ， 例 如 same 。 而 且 把 这 种 规则 解释 为 ， 规 则 的 结论 被 变量 的 任何 值 满足 。 
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询 ? 

b) Alyssa P. Hacker 对 此 并 不 满意 ， 她 认为 ， 如 果 能 通过 自己 的 名 字 询 问 有 关 会 议 ， 这 种 
功能 才 更 有 用 处 。 因 此 她 设计 了 一 条 规则 ， 说 一 个 人 的 会 议 应 包括 所 有 whole-company 会 
议 ， 再 加 上 这 个 人 所 在 部 门 的 所 有 会 议 。: 请 给 下 面 规则 填充 体 部 分 。 


(rule (meeting-time ?person ?day-and~time) 


<rule-body>) 


c) Alyssa EWH =Z EAE REHE, A ane eh AS OME SI. ME CAA S EE 
规则 ， 她 应 该 ETE EEE 1M AE RYE 2 
练习 4.60 给 出 了 查询 


(lives-near ?person (Hacker Alyssa P)) 


Alyssa P. Hacker 就 能 查 出 谁 住 在 自己 附近 ， 这 样 她 就 可 以 搭 同事 的 便 村 上班 了 。 而 另 一 方面 ， 
当 她 试 着 用 下 面 查询 去 找 出 所 有 一 对 对 的 居住 较 近 的 人 时 


(lives-near ?person-1 ?person-2) 


却 注意 到 每 对 这 样 的 人 都 列 出 了 两 次 。 例 如 : 
(lives-near (Hacker Alyssa P} (Fect Cy D)) 
{lives-near (Fect Cy D) (Hacker Alyssa P)} 


为 什么 会 出 现 这 种 情况 ? 是 否 能 查找 居住 接近 的 人 ， 晶 每 对 人 只 列 出 一 次 ?请 解释 答案 。 

将 逻辑 看 做 程序 

我 们 可 以 认为 ， 一 条 规则 就 是 一 个 逻辑 细 含 :如果 对 所 有 模式 变量 的 一 个 赋值 满足 规则 
的 体 ， 那 么 它 就 满足 其 结论 。 因 此 ， 我 们 可 以 认为 查询 语言 有 着 一 种 基于 有 关 规 则 ， 执 行 逻 
辑 推 型 的 能 力 。 作 为 一 个 示例 ， 现 在 考虑 在 4.4 节 开始 时 提 到 的 append 操 作 。 正 如 那 时 讲 过 
的 ，append 可 以 用 下 面 的 两 条 规则 刻画 : 

。 对 于 任何 表 y ， 将 空 表 与 y 的 append 形 成 的 是 y 。 

。 对 于 任何 u、v、Yy 和 z， 将 (cons u v) Sy append 形 成 (cons u z), 条件 是 Vv 

与 y 的 append 形成 z。 

为 了 用 上 面 的 查询 语言 描述 这 两 条 规则 ， 我 们 要 为 下 面 的 关系 定义 两 条 规则 : 


(append-to-form x y zZ) 


它 的 意思 可 以 解释 为 “x 和 y 的 append 形 成 了 z : 
(rule (append-to-form () ?y ?y)) 
(rule (append-to-form (?u . ?v) ?y (?u . ?2)) 


(append-to-form ?v ?y ?z)) 

这 里 的 第 一 条 规则 没有 体 ， 这 意味 着 结论 对 ?y 的 任何 值 都 成 立 。 请 注意 ， 在 第 二 条 规则 中 ， 
在 为 一 个 表 的 car 和 cdr 命 名 时 ， 采 用 了 圆 点 尾部 的 记 法 形式 。 

给 出 这 两 条 规则 之 后 ， 我 们 就 可 以 写 出 查询 ， 去 计算 两 个 表 的 append 了: 

r: Query input: 

(append-to-form (a b) (c d) ?z) 

-;; Query results: 

(append-to-form (a b) (c d) {a b c d)) 





lt MF RARR 


更 令 人 震惊 的 是 ， 我 们 还 能 利用 这 同样 的 两 条 规则 提出 这 样 的 问题 “哪个 表 被 append 到 . 
(a b) 的 后 面 能 产生 出 (a boc d)”。 这 一 查询 可 以 按 如 下 方式 写 
;};; Query input: 
(append-to-form (a b) ?y (a b c d)) 
;;; Query results: 


(append-to-form (a b) (c d) (a be d)) 


我 们 还 可 以 询问 所 有 append 起 来 能 形成 (a b c d) 的 表 的 序 对 : 


:Query input: 

(append-to-form ?x ?y (a b c d)) 

777 Query results: 

(append-to-form () (a bcd) (abc d)) 
(append-to-form (a) (b c dl (a b c d)) 
(append-to-form (a b) (c d) (a b c d)) 
(append-to-form (a b c) (d) (a bc d)) 
(append-to-form (a b c d) () (a b c d)) 


从 表面 看 ， 这 样 的 查询 系统 在 使 用 规则 推导 出 上 述 查 询 的 回答 时 ， 好 像 显示 出 不 少 的 智 
能 。 实 际 上 ， 正 如 我 们 将 在 下 一 节 里 看 到 的 ， 这 样 系统 不 过 是 按照 一 种 精确 定义 的 算法 去 拆 
解 这 些 规 则 轩 了。 遗憾 的 是 ， 虽 然 这 个 系统 对 于 append 示 例 的 工作 情况 令 人 印象 深刻 ， 对 于 
更 复杂 的 情况 ， 这 种 一 般 性 的 方法 却 可 能 失败 ， 正 如 我 们 将 在 4.4.3 市 中 看 到 的 那样 。 

练习 4.61 下 面 规则 实现 了 next-to 关 系 ， 它 找 出 一 个 表 里 的 相 邻 元 素 : 

(rule (?x next-to ?y in (?x ?y . ?u))) 


(rule (?x next-to ?y in (?v . ?2)) 
(?x next-to ?y in ?2)) 


下 面 查询 将 会 得 到 什么 回应 ? 


(?x next-to ?y in (1 (2 3) 4)) 
(?x next-to 1 in (2 1 3 1)) 


练习 4.62 ”请 定义 规则 实现 练习 2.17 里 的 last-pair 操 作 ， 该 操作 返回 一 个 表 ， 其 中 包 
含 着 一 个 非 空 表 里 的 最 后 一 个 元 素 。 通 过 一 些 查 询 检 查 你 的 规则 ， 例 如 (last-pair 
(3) ?x)、(last~-pair (1 2 3) ?x) 和 (last-pair (2 ?x)(3))。 你 的 规则 对 
(last-pair ?x (3)) 也 能 正确 工作 吗 ? 
练习 4.63 TEREE ( 见 《 创 世纪 4》) 追踪 一 个 血缘 关系 表 ， 从 Ada 的 后 全 一 二 上 潮 至 
Adam ， 通 过 Cain: 


{son Adam Cain) 

(son Cain Enoch) 

(son Enoch Irad) 

(son Irad Mehujael) 

(son Mehujael Methushael) 
(son Methushael Lamech) 
(wife Lamech Ada) 

(son Ada Jabal) 

(son Ada Jubal) 


请 构造 出 一 些 规则 ， 如 “如 果 S 是 FE 的 儿子 ， 而 且 F 是 G 的 儿子 ， 那 么 S 就 是 G 的 孙子 ， “ARW 
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是 M 的 妻子 ,而 且 S 是 W 的 儿子 , 那么 S 也 是 M 的 儿子 ”( 这 些 在 圣经 时 代 可 能 比 在 今天 更 正确 ) ， 
以 便 使 查询 系统 能 够 找到 Cain 的 孙子 ，Lamech 的 儿子 ，Methushael 的 孙子 。( 参 见 练习 4.69 有 
关 能 推导 出 一 些 更 复杂 关系 的 规则 。) 


4.4.2 查询 系统 如 何 工作 


在 4.4.4 节 里 ， 我 们 将 给 出 一 个 查询 解释 器 的 实现 ， 它 由 一 组 过 程 组 成 。 本 市 要 给 出 一 个 
概述 ， 解 释 这 一 系统 中 与 底层 实现 细节 无 关 的 一 般 性 结构 。 在 描述 了 这 一 解释 器 的 实现 情 帝 
之 后 ， 我 们 就 能 达到 一 个 位 置 ， 在 那里 我 们 已 经 可 以 理解 这 种 解释 器 的 局 限 性 ， 以 及 查询 语 
言 的 逻辑 运算 与 数理 逻辑 中 的 运算 之 间 的 一 些微 妙 老 措 。 

事情 很 明显 ， 查 询 求 值 器 必须 执行 某 种 搜索 ， 以 便 将 有 关 的 查询 与 数据 库 里 的 事实 和 规 
则 做 匹配 。 完 成 此 事 的 一 种 方式 是 采用 4.3 节 的 amb 求 值 器 ， 将 查询 系统 实现 为 一 个 非 确定 性 
的 程序 ( 见 练习 4.78 )。 另 一 可 能 性 是 借助 于 流 ， 去 设法 控制 搜索 。 这 里 将 要 孝 虑 的 实 殉 采 用 

这 一 查询 系统 的 组 织 结构 围绕 着 两 个 核心 操作 ， 它 们 分 别称 为 模式 匹配 和 合 一 。 我 们 首 
先 描 述 模式 匹配 ， 并 给 出 有 关 解 释 ,说 明 怎 样 让 这 一 操作 与 基于 框架 的 流 组 织 起 的 信息 一 起 
工作 ， 使 我 们 能 实现 简单 查询 和 复合 查询 。 而 后 我 们 再 解释 合 一 操作 ， 它 是 模式 匹配 的 推广 ， 
是 实现 规则 所 需要 的 东西 。 景 后 还 要 说 明 如 何 通过 一 个 对 表达 式 进行 分 类 的 过 程 ， 将 整个 查 
询 解释 器 组 合 起 来 ， 类 似 于 4.1 节 里 描述 的 解释 器 中 eval 对 表达 式 分 类 所 采用 的 万 式 。 


模式 匹配 

- -个 模式 匹配 器 是 一 个 程序 ， 它 检查 数据 项 是 否 符合 一 个 给 定 的 模式 。 举 例 来 说 ， 数 据 
表 ((a b)c (a b)) 与 模式 (?x c ?x) 匹配 ， 其 中 的 模式 变量 ?x 约束 于 (a b)。 同 一 
个 数据 表 也 与 模式 匹配 (?x ?y ?z)， 其 中 ?x 和 ?z 都 约束 到 (a b)，?y 约 束 到 c。 这 一 数 
据 也 与 模式 ((?x Py) c (?x ?y)) 匹配 ， 其 中 的 ?x 约束 到 a 而 ?7 约束 到 b。 然 而 ， 这 一 数 
据 却 不 与 模式 (?x a ?y) 匹配 ， 因 为 这 个 模式 描述 的 表 中 的 第 二 个 元 素 必 须 是 符 3a。 

这 个 查询 系统 所 用 的 模式 匹配 器 以 一 个 模式 、 一 个 数据 和 一 个 框架 作为 输入 ， 该 框架 描 
述 了 一 些 模式 变量 的 约束 。 匹 配器 检查 该 数据 是 否 以 某 种 方式 与 模式 匹配 ， 而 这 种 方式 又 筷 
与 框架 里 已 有 的 约 东 相 容 的 。 如 果 确 实 如 此 ， 匹 配器 就 返回 原来 框架 的 一 个 扩充 ， 其 中 加 入 
了 由 当前 匹配 确定 的 所 有 新 约束 。 如 果 不 能 匹配 ， 它 就 指出 该 匹配 失败 。 | 

举例 说 ， 如 果 给 了 一 个 空 框架 ， 要 求 用 模式 (?x Py ?x) 去 区 配 (a b a), Aca 
返回 一 个 框架 ， 其 中 描述 的 是 ?x 被 约束 到 a 而 ?y 约 束 到 p， 如 果 用 同一 模式 、 同 一 数据 和 一 个 
包含 将 ?y 约 束 到 的 a 框 架 试验 这 一 匹配 ， 那 么 匹配 就 会 失败 。 试 验 同一 个 匹配 ， 用 同一 模式 、 
同一 数据 和 一 个 包含 将 ?y 约 束 到 的 b 框 架 ， 返 回 的 是 给 定 框架 扩充 了 ?x 到 a 的 约束 。 

这 个 模式 匹配 器 提供 了 处 理 不 涉及 规则 的 简单 查询 所 需 的 所 有 机 制 。 例如 ， 在 处 理 下 面 
的 查询 时 

(job ?x (computer programmer) ) 

我 们 需要 对 于 一 个 空 初始 框架 ， 扫 描 上 面 数据 库 里 的 所 有 断言 ， 选 出 其 中 与 模式 相 匹 配 的 断 
言 。 对 于 每 一 个 匹配 ， 部 要 用 这 个 匹配 所 返回 的 框架 里 给 ?x 的 值 去 实例 化 这 个 模式 。 


Fi o 
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框架 的 流 

用 模式 去 检查 框架 的 工作 被 组 织 为 一 种 对 流 的 使 用 。 给 定 了 一 个 框架 ， 匹 配 过 程 将 一 个 “ 
个 地 扫描 数据 库 里 的 条 目 。 对 于 每 个 数据 库 条 目 ， 匹 配器 或 者 产生 出 一 个 指明 匹配 失败 的 特 
殊 符号 , 或 者 给 出 相应 框架 的 一 个 扩充 。 对 所 有 数据 库 条 目的 匹配 结果 被 收集 到 一 起 ， 形 成 
一 个 流 ， 这 个 流 被 送 入 一 个 过 滤器 ， 删 除 其 中 所 有 的 失败 信息 。 这 样 做 的 结果 就 得 到 了 另 一 
个 流 ， 其 中 包含 着 所 有 满足 条 件 的 框架 ， 它 们 都 是 基于 原来 的 框架 ， 由 于 与 数据 库 里 某 些 断 
言 相 匹配 而 扩充 后 得 到 的 2 。 

在 我 们 的 系统 里 ， 一 个 查询 以 一 个 框架 流 作为 输入 。 它 将 针对 这 一 流 中 的 每 个 框架 执行 
上 述 匹 配 操作 ， 如 图 4-4 所 示 。 也 就 是 说 ， 对 于 输入 流 中 的 每 一 个 框架 ， 这 一 查询 都 会 产生 出 
一 个 新 的 流 ， 其 中 包含 了 给 定 框 架 的 所 有 通过 与 数据 库 里 断言 的 匹配 而 形成 的 扩充 。 所 有 这 
些 流 被 组 合 为 一 个 规模 很 大 的 流 ， 其 中 包含 了 输入 流 中 每 个 框架 的 所 有 可 能 扩充 。 这 个 流 就 
是 给 定 查 询 的 输出 。 


框架 的 输出 流 


人 的 框架 ; 
人 带 有 可 能 的 扩充 









查询 
(job ?x ?y) 






来 自 数据 库 的 断言 流 
图 4-4 一 个 查询 处 理 一 个 框架 的 流 


为 了 回答 一 个 简单 查询 ， 我 们 用 的 是 输入 流 里 只 包含 一 个 空 框架 的 查询 。 这 样 得 到 的 输 
出 流 里 包含 着 这 一 空 框架 的 所 有 扩充 (也 就 是 说 ， 对 查询 的 所 有 回答 )。 这 个 输出 流 又 被 用 于 
生成 另 一 个 流 ， 在 这 个 流 里 出 现 的 都 是 初始 查询 模式 的 副本 ， 基 中 的 变量 用 框架 流 里 各 个 框 
架 做 了 实例 化 。 这 就 是 最 后 需要 打印 的 结 来 的 流 。 

复合 查询 

在 这 一 框架 流 实现 中 ， 真 正 优美 的 地 方 在 于 其 中 对 复合 查询 的 处 理 方式 。 在 对 于 复合 查 
询 的 处 理 中 ， 我 们 利用 了 这 一 匹配 器 带 着 一 个 特定 框架 去 探查 匹配 的 能 力 。 举 例 来 说 ， 为 了 
处 理 两 个 查询 的 and ， 例 如 


(and (can-do-job ?x (computer programmer trainee) ) 


(job ?person ?x)) 
( 非 形式 地 说 ， 就 是 “ 找 出 所 有 的 人 ， 他 们 部 能 做 计算 机 实习 程序 员 的 工作 )， 我 们 首先 找到 
所 有 与 下 面 模式 相 匹配 的 条 目 : 


m -一般 而 言 ， 匹 配 是 一 种 代价 高 昂 的 工作 ， 因 此 我 们 希望 避免 将 完整 的 匹配 器 应 用 于 数据 库 里 的 每 一 个 元 素 。 
通常 可 以 通过 将 这 个 过 程 分 解 为 快速 的 粗略 匹配 和 最 终 匹 配 而 达到 加 速 的 目的 。 其 中 的 粗略 匹配 过 滤 数 据 库 ， 
为 最 终 匹 配 产生 出 很 小 的 一 组 候选 。 我 们 也 可 以 仔细 安排 这 个 数据 库 ， 使 得 粗略 匹配 的 工作 能 够 在 数据 库 构 
造 的 过 程 中 完成 ， 而 不 是 等 到 需要 找 出 候选 的 时 候 再 做 。 这 称 为 数据 库 的 索引 。 人 们 为 创建 数据 库 索引 模 元 
提出 了 大 量 的 技术 。 在 4.4.4 节 描述 的 实现 中 包含 了 支持 这 类 优化 的 一 些 简 单 的 东西 。 
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(can-do-job ?x (computer programmer trainee) ) 
这 就 产生 出 一 个 框架 流 ， 其 中 的 每 个 框架 里 都 包含 了 一 个 对 ?x 的 约束 。 随 后 ， 我 们 要 对 这 个 
流 里 的 每 个 框架 ， 以 某 种 方式 去 找 与 下 面 模式 相 匹配 的 所 有 条 H : 

(job ?person ?x) 
这 些 条 目 都 需要 与 已 经 给 定 的 ?x 的 约束 相 容 。 每 个 这 种 匹配 将 产生 出 一 个 框架 ， 其 中 包含 了 
对 ?x 和 ?person 的 约束 。 两 个 查询 的 and 可 以 看 作 是 两 个 成 分 查询 的 一 个 序列 组 合 ， 如 图 4-” 
所 示 。 送 给 第 一 个 查询 过 滤器 的 所 有 框架 经 过 过 滤 后 ， 再 进一步 被 第 二 个 查询 扩充 。 


输入 的 框架 流 输出 的 框架 流 





数据 库 
图 4-5 两 个 查询 的 and 组 合 由 对 序列 中 框架 流 的 操作 生成 


图 4-6 显 示 的 是 采用 类 似 方式 计算 两 个 查询 的 or 的 情况 ， 可 以 将 这 看 作 是 两 个 成 分 查询 的 
并 行 组 合 。 两 个 结果 流 被 归并 到 一 起 ， 产 生出 最 后 的 输出 流 。 





(or A B) 






输出 的 框架 流 





输入 的 框架 流 


数据 库 


图 4-6 两 个 查询 的 or 组 合 ， 产 生 方 式 是 并 行 地 在 两 个 流 上 操作 ， 然 后 归并 结 末 流 


即使 是 从 这 种 高 层 描述 里 ， 我 们 也 可 以 明显 看 出 ， 对 复合 操作 的 处 理 将 会 很 慢 。 举 例 说 ， 
因为 在 查询 中 对 每 一 个 框架 都 可 能 产生 出 多 个 框架 ， 而 在 and 里 的 每 个 查询 都 需要 从 前 面 查 
询 得 到 自己 的 输入 框架 流 ， 因 此 ， 在 最 坏 情 况 下 ， 一 个 and 查 询 工 作 中 必须 执行 的 匹配 次 煞 ， 
就 是 其 中 的 查询 个 数 的 指数 函数 ( 见 练习 4.76) ?2。 虽 然 只 处 理 简 单 查询 的 系统 相当 实用 ， 处 
理 复杂 查询 还 是 非常 困难 的 ”。 


m 但 是 这 种 指数 爆炸 在 and 查 询 中 并 不 常见 ， 因 为 一 般 来 说 ， 条 件 的 增加 趋向 于 削减 框架 的 数量 ， 而 不 是 扩张 


所 产生 的 框架 数量 。 | 
m 存在 着 大 量 关于 数据 库 管 理 系统 的 文献 ， 讨 论 如 何 有 效 地 处 理 复杂 查询 。 
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的 框架 。 举 个 例子 ， 给 了 模 云 : 

(not (job ?x (computer programmer))) 
对 输入 流 里 的 每 个 框架 ， 我 们 要 试 着 去 产生 出 所 有 不 满足 (job ?x (computer 
programmer )) 的 扩充 框架 。 为 此 ， 就 需要 从 输入 流 里 删除 所 有 存在 着 这 种 扩充 的 框架 。 这 
样 就 得 到 了 一 个 流 ， 它 里 面 只 包含 了 那些 对 ?Xx 的 约束 不 能 满足 (Job ?x (computer 
programmer )) 的 框架 。 例 如 ， 在 处 理 下 面 查询 时 : 


(and (supervisor ?x ?y) 
(not (job ?x (computer programmer) ))) 


第 一 个 子 名 将 产生 出 一 批 带 有 ?x 和 ?Y 的 约束 的 框架 ， 而 后 not 子 名 将 过 滤 它 们 ， 删 除 其 中 所 
有 对 于 ?x 的 约束 满足 限制 条 件 “?x 是 程序 员 ” 的 那些 框架 ?+。 

这 里 也 把 特殊 形式 1isp-value 实现 为 框架 流 上 的 一 个 过 滤器 。 我 们 将 用 流 里 的 各 个 框 
架 去 实例 化 模式 里 的 变量 ， 然 后 对 得 到 的 实例 化 结果 应 用 给 定 的 Lisp 谓词 ， 在 谓词 得 到 假 时 
从 流 中 删 去 相应 的 框架 。 


心 . -一 
FA 


为 了 处 理 查 询 语 言 里 的 规则 ， 我 们 必须 能 找 出 所 有 这 样 的 规则 ， 其 结论 部 分 与 给 定 的 查 
询 模式 匹配 。 规 则 的 结论 很 像 断 言 ， 但 是 它们 也 可 以 包含 变量 。 为 了 处 理 这 种 情况 ， 我 们 就 
需要 模式 匹配 的 一 种 推广 一 一 称 为 会 一 ， 其 中 的 “模式 ”和 “数据 ”都 可 以 包含 变量 。 

合 一 器 取 两 个 都 可 以 包含 常量 和 变量 的 模式 为 参数 ， 设 法 去 确定 能 否 找到 对 其 中 变量 的 
某 种 赋值 ， 使 两 个 模式 相等 。 如 果 能 够 找到 ， 它 就 返回 包含 着 有 关 约 束 的 框架 。 举 例 说 ， 对 
(?x a ?y) 和 (?y ?2 a) 的 合 一 将 产生 出 一 个 框架 ， 其 中 的 ?x、?y 和 ?2 都 约束 到 a 。 在 
另 一 方面 , 对 (?x ?y a) 和 (?x b ?y) 的 合 一 则 会 失败 ， 因 为 在 这 里 对 ?Yy 做 任何 赋值 ， 
都 不 能 使 两 个 模式 变 得 相同 (根据 这 两 个 模式 里 的 第 二 个 元 素 ，?Y 应 该 是 b， 然 而 根据 它们 
的 第 三 个 元 素 ，?Y 又 应 该 是 a )。 这 个 查询 系统 里 的 合 一 器 与 模式 匹配 器 一 样 ， 它 也 以 一 个 框 
架 作 为 输入 ， 热 行 与 该 框架 相 容 的 合 一 工作 。 

合 一 算法 是 查询 系统 中 最 难 的 部 分 。 对 于 复杂 的 模式 ， 执 行 合 一 似乎 需要 做 推理 。 例 如 
为 了 合 一 (2x ?x) 和 ((a Py c) (a b ?z))， 该 算法 必须 推断 出 ?x 应 该 是 (a b 
c)，?y 应 该 是 b ， 而 ?z 应 该 是 c。 我 们 可 能 会 认为 ， 这 一 过 程 就 像 是 求解 模式 成 分 上 的 一 集 
HE, MI, ， 这 些 确 实 是 一 些 联 立 方程 ， 求 解 它们 可 能 需要 很 复杂 的 操作 。 例 如 ， 对 
(?x ?x) 和 ((a ?y c) (a b ?z)) 的 合 一 可 以 看 作 是 描述 了 如 下 的 联 立 方程 : 





(a ?y c) 


2X = 
?x = (a b ?z) 


(a ?y c) = (ab ?2) 
i ea 


a = a, ?y = bc = ?2, 


m 在 not 的 这 种 过 滤器 实现 和 数理 逻辑 中 not 的 常规 意义 之 间 有 一 点 微妙 差异 ， 见 4.4.3 节 ，。 
25 在 单 边 的 模式 匹配 里 ， 包 含 模式 变量 的 所 有 方程 都 很 明显 ， 并 都 已 将 未 知 量 (模式 变量 ) 解 出 。 
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因此 就 有 

2x = (abc) | 

在 一 次 成 功 的 模式 匹配 里 ， 所 有 模式 变量 都 将 得 到 约束 ， 而 且 给 它们 的 约束 值 里 也 只 包 
含 常量 。 对 于 我 们 至 今 已 看 到 的 那些 合 一 实例 ， 情 况 也 是 如 此 。 然 而 ， 一般 而 言 ， 一 个 成 功 
的 合 一 也 可 能 并 没有 完全 确定 所 有 变量 的 值 ， 有 些 变量 还 会 是 未 约束 的 ， 另 一 些 也 可 能 约束 
到 包含 着 变量 的 值 。 

现在 考虑 (?x a) 和 ((b ?y) ?z) 的 合 一 。 我 们 可 以 推导 出 ?x= (b ?y) MH 
a-?z, 但 是 却 无 法 对 ?x 和 ?y 做 进一步 的 求解 了 。 这 个 合 一 并 没有 人 失败， 因为 通过 对 ?x 和 
?Y 的 赋值 ， 确 实 能 把 两 个 模式 弄 成 完全 一 样 的 。 由 于 在 这 个 匹配 里 对 于 ?Y 可 取 的 值 并 没有 任 
何 限制 ， 因 此 框架 里 就 不 会 存在 对 于 ?y 的 约束 。 在 另 一 方面 ， 这 个 匹配 中 确实 限制 了 ?x 的 值 ， 
无 论 ?y 取 什么 值 ，?x 都 必须 是 (b ?y)。 因 此 ， 从 ?x 到 模式 (b Py) 的 约束 就 会 被 放 人 框 
架 里 。 如 果 后 来 ?Y 的 值 被 确定 并 加 入 了 框架 (无 论 是 通过 某 个 与 此 框架 相 容 的 匹配 还 是 合 一 )， 
前 面 对 ?x 的 约束 也 都 会 引用 那个 值 ”。 

规则 的 应 用 

对 于 从 规则 出 发 的 推理 而 言 ， 合 一 是 这 一 查询 系统 里 最 关键 的 部 件 。 为 了 看 清楚 这 件 事 
情 应 该 怎样 做 ， 现 在 考虑 一 个 涉及 到 规则 应 用 的 查询 的 处 理 过 程 。 例 如 : 

(lives-near ?x (Hacker Alyssa P)) 
为 了 处 理 这 一 查询 ， 我 们 首先 需要 用 上 面 描述 的 常规 模式 匹配 过 程 ， 去 看 数据 库 里 是 否 存在 
任何 与 这 一 模式 相 匹配 的 断言 (对 于 目前 这 个 情况 ， 我 们 什么 也 找 不 到 。 因 为 在 数据 库 里 根 
本 就 没有 有 关 谁 与 谁 住 得 很 近 的 断言 )。 下 一 步 就 是 设法 用 查询 模式 与 每 条 规则 的 结论 去 做 合 
一 。 这 时 我 们 发 现 ， 该 模式 可 以 与 下 面 规则 的 结论 合 一 : 

(rule (lives-near ?Person-l ?person-2) 

(and (address ?person-1 (?town . ?rest-1)) 
(address ?person-2 (?town . ?rest-2)) 
(not (same ?person-1 ?person~2)))) 

结果 得 到 了 一 个 框架 ， 其 中 描述 的 是 ?person-2 约 束 到 (Hacker Alyssa P)， 而 ?x 应 该 
约束 到 ?person-1 (应 该 与 其 有 相同 的 值 ) 。 现 在 我 们 就 需要 相对 于 这 一 框架 ， 去 求 值 由 这 
一 规则 的 体 给 定 的 复合 查询 。 成 功 的 匹配 将 扩充 这 个 框架 ， 提 供 对 ?Perzson-1 的 一 个 约束 ， 
并 因此 也 给 定 了 ?x 的 值 。 此 后 我 们 就 可 以 用 这 个 值 去 实例 化 初始 的 查询 模式 了 。 | 

_. 般 而 言 ， 当 查询 求 值 器 试图 在 一 个 描述 了 某 些 模式 变量 匹配 的 框架 里 ， 完 成 对 一 个 查 
询 模 式 的 匹配 时 ， 它 将 采用 下 面 方法 去 设法 应 用 一 条 规则 

。 将 这 个 查询 与 规则 的 结论 做 合 一 ， 以 便 (ERDE) 形成 原来 框架 的 一 个 扩充 。 

。 相 对 于 这 样 扩充 后 的 框架 ， 去 求 值 由 规则 体形 成 的 查询 。 

请 注意 ， 这 一 做 法 与 在 一 个 Lisp 的 eval/apP1Y 求 值 器 里 应 用 过 程 的 方法 何其 相似 : 

.将 该 过 程 的 形式 参数 约束 于 实际 参数 ， 以 形成 一 个 框架 去 扩充 原来 的 过 程 环境 。 


6 认识 合 一 的 另 一 种 方式 是 认为 它 产生 的 是 一 种 最 广 的 模式 ， 使 这 一 模式 同时 是 两 个 输入 模式 的 专门 化 。 也 就 
是 说 ，(?x a) 和 ((b ?y) ?z) 的 合 一 应 是 ((b Py) a), m (?x a ?y) u (ty “2 a) 的 合 一 《〈 按 
上 面 的 讨论 ) 应 是 (a a a )。 对 于 我 们 的 实现 ， 将 合 一 结果 看 成 框架 比 看 成 模式 更 方便 一 些 。 





“相对 于 这 样 扩充 后 的 环境 ， 去 求 值 由 过 程 体形 成 的 表达 式 。 

我 们 不 应 对 这 两 种 求 值 器 之 间 的 相似 性 感到 惊 诈 。 这 正 是 因为 过 程 定 义 是 Lisp 里 的 抽象 
和 手段， 而 规则 定义 则 是 现在 的 查询 语言 里 的 抽象 手段 。 在 这 两 种 情况 下 ， 我 们 都 需要 和 剥离 开 
有 关 的 抽象 ， 方 法 就 是 创建 起 适当 的 约束 ， 而 后 相对 于 它们 去 求 值 规则 或 者 过 程 的 体 。 


简单 查询 

在 本 节 前 面部 分 我 们 已 经 看 到 ， 在 没有 规则 的 情况 下 ， 应 该 如 何 求 值 简单 查询 。 现 在 
又 看 到 了 如 何 应 用 规则 ， 因 此 ， 现 在 就 可 以 描述 如 何 通过 使 用 规则 和 断言 去 求 值 向 单 查询 
了 。 

给 定 一 个 查询 模式 和 一 个 框架 的 流 之 后 ， 对 输入 流 里 的 每 个 框架 产生 出 两 个 流 : 

“一 个 扩充 框架 的 流 。 得 到 这 些 框 架 的 方式 是 用 模式 匹配 器 ， 拿 给 定 的 模式 与 数据 库 里 的 

所 有 断言 做 匹配 。 

* 另 一 个 扩充 框架 的 流 ， 通 过 应 用 所 有 可 能 的 规则 而 得 到 (用 合 一 器 ) ”。 
将 这 两 个 流连 接 到 一 起 就 产生 出 一 个 新 流 ， 其 中 包含 了 与 原 框架 相 容 的 ， 能 满足 给 定 模式 
的 所 有 不 同方 式 。 将 这 些 流 (对 于 输入 流 里 的 每 个 框架 有 一 个 流 ) 组 合 为 一 个 大 的 流 ， 其 
中 包含 了 可 以 从 原来 输入 流 中 每 个 框架 扩充 而 得 到 的 ， 与 给 定 模式 相 匹 配 的 所 有 不 同方 式 。 


查询 求 值 器 和 驱动 循环 

如 果 不 看 基础 匹配 操作 的 复杂 性 ， 这 个 系统 的 组 织 方式 很 像 一 般 语言 的 求 值 颖 。 在 这 里 ， 
协调 各 种 匹配 操作 的 过 程 称 为 qeval， 它 扮演 着 与 Lisp 求 值 器 中 的 过 程 eval 类 似 的 角色 。 
qevaltk 以 一 个 查询 和 一 个 框架 流 为 输入 ， 其 输出 是 一 个 框架 的 流 ， 对 应 于 查询 模式 的 所 有 成 
功 匹 配 ， 其 中 的 框架 都 是 输入 流 里 某 些 框架 的 扩充 ， 就 像 图 4-4 所 示 的 那样 。 与 eval 类 似 ， 
qeval 也 根据 表达 式 (查询 ) 的 不 同类 型 对 它们 进行 分 类 ， 并 将 进一步 工作 分 派 到 与 它们 对 
应 的 适当 过 程 。 这 其 中 包括 了 针对 每 类 特殊 形式 (and, or, notffllisp-value) 的 过 程 ， 
以 及 一 个 针对 简单 查询 的 过 程 。 

驱动 循环 也 与 本 章 中 其 他 求 值 器 里 的 driver-1Loop 过 程 类 似 ， 它 从 终端 读 入 查询 ， 对 于 
每 一 个 查询 ， 它 都 用 这 个 查询 和 一 个 仅仅 包含 一 个 空 框架 的 流 调 用 qeval。 这 一 调用 将 产生 
出 所 有 可 能 匹配 ( 空 框架 的 所 有 可 能 扩充 ) 的 流 。 对 于 结果 流 里 的 每 个 框架 ， 驱 动 循 环 用 该 
框架 里 找 出 的 值 去 实例 化 原来 的 查询 。 实 例 化 后 得 到 的 流 被 打印 出 来 ”。 

驱动 循环 还 要 检查 特殊 命令 assert!， 它 用 于 指明 一 个 输入 并 不 是 查询 ， 而 是 一 个 断言 
或 者 规则 ， 应 加 入 数据 库 里 。 例 如 : 


(assert! (job (Bitdiddle Ben) (computer wizard))) 


(assert! (rule (wheel ?person) 
(and (supervisor ?middle-manager ?person) 


(supervisor ?x ?middle-manager) ))) 


27 由 于 合 一 是 匹配 的 推广 ， 我 们 完全 可 以 简化 这 个 过 程 ， 使 用 合 一 器 去 产生 这 两 个 流 。 当 然 ， 用 简单 的 匹配 a 
处 理 简 单 的 情况 ， 也 说 明了 匹配 (与 一 般 性 的 合 一 相对 应 ) 本 身 的 也 可 能 有 用 。 

278 我们 在 这 里 采用 框架 的 流 (而 没有 用 表 )， 原 因 是 ， 在 递归 地 应 用 规则 时 ， 完 全 有 可 能 产生 出 无 穷 多 个 满足 
查询 的 值 。 流 中 所 蕴含 的 延 时 求 值 在 这 里 是 至 关 重 要 的 。 系 统 将 一 个 接 一 个 地 打印 出 结果 ， 无 论 实 际 结果 究 
竞 是 有 穷 多 个 还 是 无 穷 多 个 。 





4.4.3 逻辑 程序 设计 是 数理 逻辑 吗 


初 看 起 来 ， 用 在 这 一 查询 语言 里 的 各 种 组 合 手段 似乎 等 同 于 数理 逻辑 里 的 操作 and 、or 
和 not ， 而 查询 语言 规则 的 应 用 ， 事 实 上 就 是 通过 正当 的 推理 方法 完成 的 ”。 查 询 语言 与 数 
理 逻 辑 之 间 的 这 种 等 同性 并 非 真 的 正确 ， 因 为 这 一 查询 语言 提供 了 一 种 控制 结构 ， 它 采用 过 
程 性 的 方式 来 解释 逻辑 语句 。 我 们 常常 可 以 由 这 种 控制 结构 中 获 益 。 例 如 ， 为 了 找 出 程序 员 
的 所 有 上司 ， 我 们 可 以 以 如 下 的 两 种 逻辑 上 完全 等 价 的 形式 构造 出 查询 ; 

(and (job ?x (computer programmer) ) 


(supervisor ?x ?y)) 
或 者 
(and (supervisor ?x ?y) 


(job ?x (computer programmer) ) ) ) 


如 果 这 一 公司 里 的 上 司 比 程序 员 更 多 (实际 情况 确实 往往 如 此 )， 采 用 第 一 种 形式 就 比 采 用 第 
一 种 形式 更 好 ， 因 为 对 于 由 and 的 第 一 个 子 句 产生 出 的 每 个 中 间 结 果 (框架 ) ， 我 们 都 需要 扫 
描 整 个 数据 库 。 

逻辑 程序 设计 的 目标 是 为 程序 员 提 供 一 种 技术 ， 它 能 将 计算 问题 分 解 为 两 个 相互 分 离 的 
问题 “什么 ”需要 计算 ,以 及 “ 如何” 进行 这 一 计算 。 达 到 这 一 目标 的 方式 就 是 ， 选 出 数理 
逻辑 中 语句 的 一 个 子 集 ， 它 的 功能 足够 强大 ， 足 以 描述 所 有 可 能 希望 去 计算 的 问题 ， 然 而 又 
足够 的 弱 ， 使 我 们 能 有 一 种 过 程 性 的 解释 。 这 一 做 法 的 意图 是 ， 一 方面 ， 在 逻辑 程序 设计 语 
言 里 刻画 的 程序 应 该 是 足够 有 效 的 程序 ， 能 用 计算 机 去 执行 。 控 制 (“如 何 ” 去 计算 ) 将 受到 
这 一 语言 所 采用 的 求 值 顺序 的 影响 。 我 们 应 该 设法 安排 好 子 句 的 顺序 和 每 个 子 句 里 各 个 子 目 
标的 顺序 ， 使 得 计算 一 定 能 以 一 种 正确 而 又 高 效 的 方式 完成 。 在 此 同时 ， 我 们 还 应 该 能 看 到 
计算 的 结果 (“什么 ”需要 计算 )， 它 们 应 该 是 这 些 逻 辑 法 则 的 简单 结论 。 

我 们 的 查询 语言 ， 可 以 看 作 只 不 过 是 数理 逻辑 的 一 个 可 以 用 过 程 方 式 去 解释 的 子 集 。 一 
个 断言 表示 了 一 个 简单 事实 (一 个 原子 命题 ) ， 一 条 规则 表示 一 个 蕴含 ， 所 有 使 规则 的 体 成 立 
的 情况 ， 也 都 能 使 规则 的 结论 成 立 。 规 则 有 一 种 很 自然 的 过 程 性 解释 : 为 了 得 到 一 条 规则 的 
结论 ， 请 设法 得 到 这 一 规则 的 体 。 这 样 ， 规 则 也 就 描述 了 计算 。 当 然 ， 由 于 规则 也 可 以 看 作 
是 数理 逻辑 的 语句 ， 我 们 也 可 以 通过 完全 在 数理 逻辑 里 工作 得 到 同样 的 结果 ， 以 此 来 确认 由 
逻辑 程序 建立 起 来 的 任何 “推理 ”都 是 正确 的 ?2 。 


279 _- 种 特定 推理 方法 的 正当 性 并 不 是 一 个 简单 的 论断 。 人 们 必须 证 明 ， 从 真 的 前 提出 发 只 能 推导 出 真 的 结论 。 
通过 规则 应 用 表示 的 推理 方法 称 为 假 言 推理 (modus ponens )， 这 是 一 种 人 们 热 知 的 推理 方法 ， 它 说 ， 如 末 A 
为 真 而 目 4 冀 令 B 也 为 真 ， 那 么 我 们 就 可 以 做 出 结论 说 8 是 真 。 

280 我 们 必须 为 这 种 说 法 加 上 一 个 限制 ， 约 定 在 说 某 个 逻辑 程序 建立 了 “推理 ”的 问题 时 ， 我 们 总 假定 了 计算 终 
止 。 不 幸 的 是 ， 对 下 面 将 要 给 出 的 这 个 查询 语言 的 实现 而 言 ， 即 使 这 样 限制 之 后 的 语句 也 不 对 【对 于 Prolog 
的 程序 和 当前 大 部 分 其 他 的 逻辑 程序 设计 语言 ， 这 种 说 法 也 同样 不 对 )， 原 因 是 我 们 在 这 里 对 not 和 1isp- 
value 的 使 用 。 正 如 我 们 将 在 下 面 说 明 的 ， 在 这 个 查询 语言 里 的 not 的 实 更， 并 不 总 与 数理 逻辑 里 的 not 一 
致 ， 而 lisp-value 又 引进 了 进一步 的 复杂 情况 。 我 们 可 以 通过 简单 地 从 语言 里 删除 hot 和 1isP-value ， 
并 约定 只 采用 简单 查询 来 写 程序 ， 这 样 就 可 以 实现 一 种 与 数理 逻辑 相 容 的 语言 。 然 而 ， 如 果真 的 那样 做 ， 就 
会 极 大 地 限制 了 语言 的 表达 能 力 。 逻 辑 程 序 设 计 研究 中 特别 关注 的 一 个 问题 就 是 找到 一 些 方式 ， 设 法 尽 可 能 
与 数理 逻辑 更 相 容 ， 而 同时 又 不 会 过 多 牺牲 语 言 的 表达 能 力 。 





2 


无 穷 循 环 

对 于 逻辑 程序 做 过 程 性 解释 存在 一 个 推论 ， 那 就 是 在 解决 某 些 问题 时 ， 我们 有 可 能 构造 
出 极端 低 效 的 程序 。 这 种 低 效 的 一 个 极端 情况 就 是 系统 在 做 推 性 时 陷入 了 无 穷 循环 。 作 为 一 
个 简单 的 例子 ,假定 我 们 在 设计 茶 个 有 关 著 名 婚姻 的 数据 库 时 ， 加 入 了 

(assert! (married Minnie Mickey) ) | 
如 果 提 问 

(married Mickey ?who) | 
那么 我 们 将 无 法 得 到 答复 ， 因 为 系统 并 不 知道 如 果 A 与 B 结 婚 ， 那 么 B 也 与 A 结婚 。 为 此 我 们 
加 入 下 面 规 则 : 


(assert! (rule (married ?x ?y) 
(married ?y ?3X))) 


后 再次 查询 
(married Mickey ?who) 
RENE, ARS RAGGA TIA BH. AA: 
。 系统 发 现 married 规 则 可 以 应 用 ， 即 规则 的 结论 (married ?x ?y) 成 功 地 与 查询 
模式 (married Mickey ?who) 匹配 ,产生 出 一 个 框架 ， 其 中 ?x 约束 到 Mickey 
而 ?2Y 约束 到 ?who。 这 样 ， 解 释 器 就 会 继续 做 下 去 ， 在 这 一 框架 里 求 值 规 则 的 体 
(married ?y ?x) 从 效果 上 和 看， 也 就 是 处 理 查询 (married ?who Mickey), 
。 现在 可 以 直接 从 数据 库 里 得 到 了 一 个 断言 : (married Minnie Mickey), 
。 由 于 married 规 则 仍然 可 以 应 用 ， 所 以 解释 器 又 会 去 求 值 规则 的 体 ， 这 次 它 等 价 于 
(married Mickey ?who )。 
现在 系统 就 进入 了 一 个 无 穷 循 环 。 在 实际 中 所 用 的 系统 能 否 在 陷入 循环 之 前 找 出 简单 回答 
(married Minnie Mickey)， 还 要 依赖 于 这 个 系统 检查 数据 库 中 条 目的 实现 细节 。 这 征 
一 个 非常 简单 的 可 能 出 现 这 种 循环 的 实例 。 一 组 相互 有 关 的 规则 有 可 能 导致 难以 预料 的 循环 ， 
而 这 种 循环 的 出 现 又 可 能 依赖 于 各 个 子 句 在 一 个 and 里 出 现 的 顺序 (参见 练习 4.64) ， 或 者 依 
束 于 系统 处 理 查 询 时 的 顺序 方面 的 底层 细节 ””。 
与 not 有 关 的 问题 
这 一 系统 的 另 一 个 诡异 之 处 与 not 有 关 。 对 于 4.4.1 节 的 数据 库 ， 考 虑 下 面 两 个 碍 询 : 


(and (supervisor ?x ?y) 
(not (job ?x (computer programmer ) ))) 





(and (not (job ?x (computer programmer) ) ) 


81 这 并 不 是 逻辑 的 问题 ， 而 是 由 我 们 的 解释 Be RR RR. BNWT 写 出 一 个 解释 如 ， 
使 之 不 会 在 这 里 陷 人 循环 。 警 如 说 ， 我 们 可 以 枚 举 出 从 已 有 断言 和 规则 出 发 可 以 导出 的 所 有 证 明 ， 以 宽度 优 
先 而 不 是 深度 优先 的 顺序 。 当 然 ， 这 样 的 系统 就 很 难 由 程序 中 的 推导 顺序 获得 任何 利益 了 。deKleer et al. 
1977 描 述 了 试图 将 复杂 控制 构筑 到 这 种 程序 里 的 一 次 尝试 。 另 一 种 不 会 带 来 如 此 严重 控制 问题 的 技术 是 将 特 
殊 知识 放 进 去 ， 例 如 放 入 能 够 检查 某 些 类 特定 循环 的 检测 功能 (练习 4.67 )。 但 是 ， 不 可 能 存在 一 种 可 靠 的 一 
般 性 模式 ， 能 够 防止 系统 在 执行 推导 时 落 入 无 穷人 循环 的 陷阱 。 请 设想 一 种 具有 如 下 形式 的 恶魔 规则 :“ 要 证 
明 P(x) 为 真 ， 请 证 明 PY (x)) HA”, MEP BMH BRS, 





_44 还 提 在 jf 及 和 o A 


(Supervisor ?x ?y)) 


这 两 个 查询 却 不 会 产生 出 同样 的 结果 。 第 一 个 查询 在 开始 时 找 出 了 数据 库 里 所 有 与 (super-~ 
visor ?x ?y) 匹配 的 条 目 , 而 后 从 得 到 的 框架 里 删除 了 所 有 其 中 的 ?x 满足 (job ?x 
(computer programmer)) 的 条 目 。 第 二 个 查询 在 开始 时 从 输入 框架 了 删除 所 有 满足 
(job ?x (computer programmer)) 的 框架 。 因 为 一 般 来 说 数据 库 里 存在 这 种 形式 的 条 
目 ， 所 以 这 个 not 子 句 将 过 滤 掉 空 框架 ， 返 回 一 个 空 的 框架 流 。 这 样 ， 整 个 复合 查询 也 将 得 
到 空 的 流 。 

麻烦 出 自我 们 对 not 的 解释 ， 实 际 上 ， 这 一 解释 是 希望 作为 一 个 针对 变量 值 的 过 滤 妖 。 如 
果 一 个 not 子 句 被 作用 在 一 个 框架 上 ， 其 中 存在 着 一 些 还 没有 约束 的 变量 〈 例 如 上 面 例子 里 
的 ?x )， 这 个 系统 就 会 产生 我 们 不 希望 出 现 的 结果 。 类 似 问 题 也 会 出 现在 使 用 LisP-value 的 
时 候 一 一 如 果 那 个 Lisp 谓 词 的 某 些 参数 还 没有 约束 ， 它 也 不 可 能 正确 工作 ， 匈 练习 4.77 。 

这 个 查询 语言 里 的 not 还 在 另 一 个 更 严重 的 方面 与 数理 逻辑 里 的 not 不 同 。 在 逻辑 里 ， 我 
(lik ® “JEP” 解释 为 P 不 真 。 但 是 ， 在 这 个 查询 系统 里 ,“ 非 P” 则 意味 着 P 不 能 由 数据 库 
里 的 知识 推导 出 来 。 举 例 来 说 ， 有 了 4.4.1 节 的 人 事 数 据 库 ， 这 一 系统 可 以 推导 出 所 有 各 种 各 
样 的 not 语 句 ， 例 如 Ben Bitdiddle 不 喜欢 篮球 ， 外 面 没有 下 两 ， 以 及 2 HRE FA, 换 句 话 
说 ， 逻 辑 程序 设计 语言 里 的 net 反应 了 一 种 所 谓 的 封闭 世界 假说 ， 它 认为 所 有 有 关 的 知识 都 
已 经 包含 在 所 用 的 数据 库 里 了 ”。 

练习 4.64 Louis Reasoner 错 误 地 从 数据 库 里 删除 了 有 关 outranked-by 的 规则 ( 见 4.4.1 
节 ) 。 在 认识 到 这 一 问题 后 ， 他 很 快 重新 创建 了 这 一 规则 。 不 幸 的 是 ， 他 对 规则 做 了 一 点 小 修 
改 ， 实 际 输 入 的 是 下 面 规则 : 

(rule (outranked-by ?staff-person ?boss) 

(or (supervisor ?staff-person ?boss) 


(and (outranked-by ?middle-manager ?boss) 
(supervisor ?staff-person ?middle-manager) ) ) ) 


Louis 刚 刚 把 这 些 信息 输入 系统 ，DeWitt Aull 就 希望 能 找到 谁 的 级 别 高 于 Ben Bitdiddle 。 他 发 
出 的 查询 是 : | 
(outranked-by (Bitdiddle Ben) ?who) 
系统 在 给 出 回答 之 后 就 陷入 了 无 穷 循环 。 请 解释 这 是 为 什么 。 
练习 4.65 CyD. Fect 期 望 有 朝 一 日 能 在 这 个 公司 里 得 到 提拔 ， 因 此 给 出 了 一 个 查询 ， 要 
找 出 这 里 所 有 的 大 人 物 〈 他 用 的 是 4.4.1 节 的 whee1 规 则 ): 


(wheel ?who) 


使 他 感到 很 吃惊 ， 系 统 的 回复 居然 是 


res Query results: 
(wheel (Warbucks Oliver)) 
(wheel (Bitdiddle Ben) ) 


82 ee arity (not (baseball-fan (Bitdiddle Ben))), A# RR (baseball-fan (Bitdiddle 
Ben)) 不 在 数据 库 里 ， 因 此 空 框架 不 满足 这 个 模式 ， 所 以 它 不 会 从 初始 的 框架 流 中 被 删除 。 查 询 的 结果 就 
是 这 个 空 框架 ， 它 将 被 用 于 实例 化 输入 程序 ， 产 生 (not (baseball-fan (Bitdiddle Ben))), 

283 从 论文 Clark (1978) 中 可 以 找到 有 关 这 种 not 处 理 方式 的 讨论 和 其 正当 性 的 论述 。 





(wheel (Warbucks Oliver) ) 
(wheel (Warbucks Oliver) ) 
(wheel (Warbucks Oliver)) 


为 什么 Oliver Warbucks 在 这 里 列 出 了 4 次 ? 


练习 4.66 ”Ben 正 在 对 这 一 查询 系统 进行 推广 ， 以 提供 有 关公 司 的 各 种 统计 。 例 如 ， 为 了 
找 出 所 有 程序 员 的 工资 总 额 ， 人 们 将 可 以 写 : 


(Sum ?amount 
(and (job ?x (computer programmer) ) 
(salary ?x ?amount))) 


一 般 而 言 ，Ben 的 新 系统 里 允许 下 面 形式 的 表达 式 : 
(accumulation-function <variable> 
<query pattern> ) 


tHrhaccumulation-functionwy Aksum, averagexmaximum—X HAAG, Ben% 
得 这 种 扩充 的 实现 应 该 是 小 菜 一 碟 。 他 简单 地 将 查询 模式 送 入 geval， 这 将 产生 出 一 个 框架 
流 。 而 后 他 就 可 以 把 这 个 流 送 给 一 个 映射 函数 ,该 函数 从 流 中 每 个 框架 里 提取 出 指定 变量 的 
值 ， 而 后 将 得 到 的 结果 值 的 流 送 入 一 个 累积 函数 。 正 当 Ben 刚 刚 完成 了 这 个 实现 ,希望 去 试验 
它 的 时 候 ，Cy 走 了 过 来 ， 他 还 在 为 练习 4.65 中 wheel 的 查询 结果 感到 疑惑 。 当 Cy 将 系统 的 回 
应 展示 给 Ben 时 ，Ben 忽 然 大 叫 一 声 ,，“ 哎 是， 糟糕 ， 我 的 简单 累积 模式 根本 不 行 1 ” 

Ben 刚 刚 认识 到 什么 ?请 勾画 出 一 种 他 能 利用 以 便 将 事情 从 危难 中 拯救 出 来 的 方法 。 

练习 4.67 ”请 设计 一 种 方式 ， 在 查询 系统 里 安装 一 个 循环 监测 器 ， 以 避免 正文 和 练习 4.64 
里 说 明 的 那些 简单 循环 。 一 般 性 的 想法 是 系统 需要 维护 它 当 前 所 做 推导 链 的 某 种 历史 记录 ， 
如 果 遇 到 了 正在 处 理 之 中 的 某 个 查询 ， 就 不 再 重新 开始 做 它 了 。 请 描述 在 这 一 历史 记录 中 需 
要 包含 哪些 信息 (模式 和 框架 )， 应 该 做 哪些 检查 。 在 学 习 了 4.4.4 节 里 的 查询 系统 实现 之 后 ， 
你 可 能 会 希望 修改 该 系统 ， 加 入 你 的 循环 监测 各 。 

练习 4.68 ”请 定义 一 些 规则 ， 实 现 练习 2.18 的 reverse 操 作 ， 它 返回 一 个 与 所 给 的 表 包 
含 同样 元 素 的 表 ， 但 其 中 元 素 按 相反 的 顺序 排列 (提示 ， 利 用 append-to-form)。 你 的 规 
则 能 够 回答 (reverse (1 2 3) ?x) 和 (reverse ?x (1 2 3)) 吗 ? 

练习 4.69 请 从 你 在 练习 4.63 中 构造 的 规则 出 发 , 设计 出 一 个 规则 ,为 祖 孙 关系 加 入 “ 重 
的 关系 。 这 一 关系 应 该 使 系统 能 推导 出 Irad 是 Adam 的 重 孙 ， 或 者 Jabal 和 Jubal 是 Adam 的 重重 
HEED GER: 表示 有 关 Irad 的 事实 ， 例 如 ，( (great grandson) Adam IIad) 。 写 出 
一 些 规则 ， 去 确定 是 否 某 个 表 的 最 后 是 符号 grandson。 利 用 它 描述 一 条 规则 ， 使 人 可 以 推 
导出 关系 ((great . ?rel) ?x ?y)， 其 中 的 ?rel 是 一 个 以 9randson 结 束 的 表 ) 。 用 一 
此 查询 ， 例 如 ((great grandson) ?g ?ggs) 和 (?relationship Adam Irad) 检 


查 你 的 规则 。 
4.4.4 查询 系统 的 实现 


4.4.2 节 描述 了 这 一 查询 系统 如 何 工作 的 情况 。 现 在 我 们 要 填充 其 中 的 细节 ， 给 出 这 个 系 
统 的 一 个 完整 实现 。 
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4.4.4.1 驱动 循环 和 实例 化 

这 一 查询 系统 的 驱动 循环 将 反复 读 进 输入 表达 式 。 如 果 表 达 式 是 应 该 加 入 数据 库 的 规则 
或 者 断言 ， 它 就 把 有 关 的 信息 加 进 数据 库 。 人 否则 就 认为 这 是 一 个 查询 ， 它 将 这 个 查询 送 给 求 
值 器 qeval， 同 时 送 去 的 还 有 一 个 初始 的 框架 流 ， 其 中 只 包含 一 个 空 框架 。 求 值 的 结果 是 一 
个 框架 流 ， 根据 从 数据 库 里 找 出 的 满足 查询 的 变量 值 生成 。 驱 动人 循环 使 用 这 些 框 架 产 生 一 个 
新 流 ， 其 中 包含 了 所 有 通过 将 原始 查询 里 的 变量 用 上 述 框 架 流 提供 的 值 实例 化 后 得 到 的 副本 。 
这 一 最 终 的 流 从 终端 打印 出 来 : 


(define input-prompt ":;; Query input:") 
(define output-prompt ";;; Query results:") 


(define (query-driver-loop) 
{prompt-for-input input-prompt) 
{let ((q (query-syntax-process (read)))) 

(cond ((assertion-to-be-added? q) 
(add-rule-or-assertion! (add-assertion-body q)) 
(newline) 

(display "Assertion added to data base.") 
(query-driver-loop) ) 
(else 
(newline) 
(display output—-prompt) 
(display-stream 
({stream-map 
(lambda (frame) 
(instantiate q 
frame 
(lambda {v f) 
(contract-question-mark v)))) 
(qeval q (singleton-stream °())))) 
(query-driver-loop))))) 


在 这 里 ， 就 像 在 本 章 里 讨论 的 所 有 求 值 器 里 一 样 ， 我 们 使 用 的 是 查询 语言 表达 式 的 一 种 
抽象 语法 。 表 达 式 语法 的 实现 将 在 4.4.4.7 节 给 出 ， 包 括 谓 词 assertion-to-be-added? 和 
选择 函数 add-assertion-body。add-rule-or-assertion! 在 4.4.4.5 市 定义 。 

在 对 一 个 输入 表达 式 进 行 任何 处 理 之 前 ， 驱 动 循 环 都 以 语法 方式 将 其 变换 到 另 一 种 更 容 
易 有 效 处 理 的 形式 。 其 中 涉及 到 修改 模式 变量 的 表示 。 在 对 查询 进行 实例 化 时 ， 所 有 仍 未 被 
约束 的 变量 都 需要 在 打印 之 前 变换 回 原来 的 输入 表示 形式 。 这 些 变 换 由 两 个 过 程 query- 
syntax-process 和 contract-question-mark 完 成 (4.4.4.7 市 )。 

为 了 实例 化 一 个 表达 式 ， 我 们 需要 复制 它 ， 并 用 给 定 框架 里 的 值 取 代 这 一 表达 式 里 相应 
的 变量 。 这 些 值 本 身 也 可 能 需要 实例 化 ， 因 为 它们 也 可 能 包含 着 一 些 变量 (例如 ， 作 为 合 一 
的 结果 ， 在 exp 里 的 ?x 被 约束 到 ?Y， 而 后 ?7 又 转 而 约束 到 5 )。 如 果 某 个 变量 不 能 实例 化 时 ， 
应 该 执行 的 动作 由 过 程 instantiate 的 另 一 个 参数 给 定 。 

(define (instantiate exp frame unbound-var-handler ) 

(define (copy exp) 


{cond ((var? exp) 
(let ((binding (binding-in-frame exp frame) )) 
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(if binding 
(copy (binding~value binding) ) 
(unbound-var-handler exp frame)))) 
{ (pair? exp) 
(cons (copy (car exp)) (copy (cdr exp)))) 
(else exp))) 
(copy exp) ) 


对 约束 进行 操作 的 过 程 在 4.4.4.8 节 定义 。 


4.4.4.2 KER 

query~driver-loop 调 用 过 程 qeval。 该 过 程 是 这 一 查询 的 基本 求 值 器 ， 它 以 一 个 查 
询 和 一 个 框架 的 流 作 为 输入 ， 返 回 被 扩充 后 的 框架 的 流 。4qeval 采 用 get 和 put 识 别 出 各 种 
特殊 形式 ， 并 完成 数据 导向 的 分 派 ， 就 像 我 们 在 第 2 章 实现 各 种 通用 型 操作 时 所 做 的 那样 。 任 
何 无 法 识别 为 特殊 形式 的 查询 都 被 假定 是 一 个 简单 查询 ， 由 simple-query 处 理 。 

(define {qeval query frame-stream) 

(let ((gproc (get (type query) ‘qeval))) 
(if qproc 
(qproc (contents query) frame-stream) — 


(simple-query query frame-stream) ))) 


type 和 contents 在 4.4.4.7 节 定义 ， 它 们 实现 各 种 特殊 形式 的 抽象 语法 。 


简单 查询 
simple-query 处 理 简 单 查询 。 它 以 简单 查询 (一 个 模式 ) 和 框架 流 作为 实际 参数 ， 通 
过 将 查询 与 数据 库 做 匹配 的 方式 扩充 其 中 的 每 个 框架 ， 并 将 由 此 生成 的 所 有 框架 的 硫 返 回 。 
(define (simple-query query-pattern frame-stream) 
(stream-flatmap 
(lambda (frame) 
(stream-append-delayed 
(find-assertions query-pattern frame) 
(delay (apply-rules query-pattern frame)))) 
frame~stream) ) 
对 于 输入 流 里 的 每 个 框架 ,我们 都 用 find-assertions (444.377) 去 做 模式 与 数据 
库 里 所 有 断言 的 匹配 ， 生 成 出 一 个 扩充 框架 的 流 ， 还 要 用 apPly-rules (4.4.4.4 市 ) 去 应 用 
所 有 可 能 的 规则 ， 生 成 出 另 一 个 扩充 框架 的 流 。 这 两 个 流 被 组 合 (用 stream-append- 
delayed, 4.4.4.647) 成 一 个 流 ， 表示 了 满足 给 定 模式 ， 而 且 也 与 开始 框架 相 容 的 所 有 不 同 
方式 。 用 stream-flatmap (4.4.4.6 节 ) 组 合 起 处 理 每 个 输入 框架 而 产生 的 这 种 结果 流 ， 形 
成 一 个 大 的 流 。 它 表示 的 就 是 对 初始 输入 流 里 的 各 个 框架 进行 扩充 ， 产 生出 的 与 给 定 模式 匹 
配 的 所 有 可 能 方式 。 
复合 查询 
and 查 询 的 处 理 方式 如 图 4-$ 所 示 ， 由 过 程 conjoin 完 成 。conjoin 以 有 关 的 合 取 项 和 一 
个 框架 流 作 为 实际 参数 ， 返 回 扩充 框架 的 流 。 conjoin 首 先 处 理 给 它 的 框架 流 ， 找 出 能 满足 
第 一 个 合 取 项 的 所 有 可 能 的 扩充 框架 形成 的 流 。 而 后 它 就 用 这 个 新 的 框架 流 ， 递 归 地 将 
conjoin 应 用 于 这 一 and 查询 的 剩余 部 分 。 
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(define (conjoin conjuncts frame-stream) 
(if (empty-conjunction? conjuncts) 
frame-stream 
(conjoin (rest-conjuncts conjuncts) 
(qeval (first-conjunct conjuncts) 
frame-stream) ))) 


KIEK 


(put ‘and ‘geval conjoin) 


设置 好 geval ， 使 之 能 在 遇 到 and 形 式 时 间 con]join 分 派 。 
or 查询 的 处 理 方 式 与 此 类 似 ， 如 图 4-6 所 示 。 这 时 先 分 别 计 算出 这 个 oz 中 各 个 析 取 项 的 
输出 流 ， 而 后 用 4.4.4.6 节 里 定义 的 ijnterleave-delayed 过 程 将 它们 归并 起 来 (参见 练习 


4.71 和 练习 4.72 )， 


(define (disjoin disjuncts frame-stream) 
(if (empty-disjunction? disjuncts) 
the-empty-stream 
(interleave-delayed 
(qeval (first~disjunct disjuncts) frame-stream) 
(delay (disjoin (rest-disjuncts disjuncts) 
frame-stream))))) 


(put ’or ’qeval disjoin) 


用 于 合 取 和 析 取 的 语法 谓词 和 选择 A BO TE 4.4.4.7 928 h o 


过 滤器 
not 的 处 理 采 用 4.4.2 节 给 出 了 梗概 的 方式 。 我 们 要 试 着 去 扩充 输入 流 里 的 每 个 框架 ， 看 
看 它们 能 否 满足 被 否定 了 的 查询 ， 但 只 把 那些 无 法 扩充 的 框架 包含 到 输出 流 里 。 


(define (negate operands frame-stream) 
{stream-flatmap 
(lambda (frame) 
(if (stream-null? (geval (negated-query operands) 
(singleton-stream frame))) 
(singleton-stream frame) 
the-empty-stream) ) 


frame-stream) ) 
(put "not ‘geval negate) 
lisp-value 过 滤器 的 情况 与 hot 类似。 这 里 用 流 中 的 每 个 框架 去 实例 化 模式 里 的 变量 ， 
而 后 将 给 定 谓词 应 用 于 得 到 的 实例 。 输 入 流 里 那些 使 谓词 返回 假 的 框架 被 过 涯 掉 。 如 有 AP 
未 约束 的 变量 ， 结 果 就 是 一 个 错误 。 
(define (lisp-value call frame-stream) 
(stream~flatmap 
(lambda (frame) 
(if (execute 
(instantiate 


call 


frame 
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(lambda (v f) 
(error "Unknown pat var -- LISP-VALUE" v)))) 
(singleton-stream frame) 
the-empty-stream) ) 
frame-stream) ) 


(put “‘lisp-value ‘geval lisp-value) 


execute 将 谓词 应 用 于 对 应 的 参数 。 它 必须 求 值 谓 词 表 达 式 ， 以 得 到 应 该 应 用 的 那个 实 
际 过 程 。 然 而 它 却 不 能 去 对 参数 求 值 ， 因 为 它们 已 经 是 实际 参数 了 ， 而 不 是 (Lisp 里 的 ) W 
种 需要 通过 求 值 去 产生 实际 参数 的 表达 式 。 请 注意 ，execute 是 利用 基础 Lisp 系 统 里 的 eval 
和 apply 实 现 的 ， | 


(define (execute exp) 
(apply (eval (predicate exp) user-initial-environment) 
(args exp))) 


特殊 形式 always-true 是 为 了 描述 一 种 总 能 满足 的 查询 . 它 忽略 有 关 的 内 容 (通常 为 空 )， 
并 简单 地 送出 输入 流 里 的 所 有 框架 。always-true 被 用 在 选择 函数 里 (4.4.4.7 节 )， 用 于 作 
为 那些 没有 体 部 分 的 规则 〈 即 那些 结论 总 能 够 满足 的 规则 ) 的 规则 体 。 

(define (always-true ignore frame-stream) frame-stream) 


(put ’always-true ’qeval always-true) 

所 有 定义 not 和 1isp-value 的 语法 规则 的 选择 函数 也 将 在 4.4.4.7 布 给 出 。 
4.4.4.3 ”通过 模式 匹配 找 出 断言 | 

find-assertions 由 simple-queryi 调 用 (4.4.4.2 节 )， 它 以 一 个 模式 和 一 个 框架 作 
为 输入 ， 返 回 一 个 框架 的 流 ， 其 中 的 每 个 框架 都 是 由 某 个 给 定 框架 ,经 过 对 给 定 模式 与 数据 
库 的 匹配 扩充 而 得 到 的 。 这 个 过 程 用 fetch-assertions (4.4.5 节 ) 得 到 数据 库 里 所 有 断 
言 的 一 个 流 ， 检 查 这 些 断 言 是 否 与 当时 的 模式 和 框架 匹配 。 采 用 fetch-assertiocns 的 原 
因 是 ， 我 们 常常 能 通过 一 些 简 单 测 试 删除 掉 来 自 数 据 库 的 很 多 条 目 ， 这 里 把 数据 库 作 为 成 功 
检索 的 候选 存储 地 。 如 果 删 去 了 fetch-assertions， 这 个 系统 仍然 能 够 工作 ， 所 采用 的 
将 是 简单 检查 数据 库 中 各 个 断言 的 方式 ， 这 一 做 法 可 能 使 计算 变 得 比较 低 效 ， 因 为 其 中 对 匹 
配器 的 调用 次 数 可 能 会 增加 很 多 。 


(define (find-assertions pattern frame) 
(stream-flatmap (lambda (datum) 
(check-an-assertion datum pattern frame) ) 


(fetch-assertions pattern frame) )) 


check-an-assertion 以 一 个 模式 、 一 个 数据 对 象 〈 断 言 ) 和 一 个 框架 作为 参数 。 如 
果 匹 配 成 功 就 返回 包含 着 扩充 框架 的 单元 素 流 ， 匹 配 失 败 时 返回 the-empty~stream。 
(define (check-an-assertion assertion query-pat query-frame) 
(let ((match-result 
(pattern-match query-pat assertion query-frame) )) 
(if (eq? match-result ‘failed) 
the-empty-stream 
(singleton-stream match-result)))) 


基本 模式 匹配 器 返回 的 或 者 是 符号 failed， 或 者 是 给 定 框架 的 一 个 扩充 。 这 一 匹配 器 的 基本 





思想 就 是 对 照 着 模式 检查 数据 ， 一 个 一 个 元 素 地 做 ， 在 此 同时 积累 起 各 个 模式 变量 的 约束 。 
WAR SRM RA, ， 匹 配 成 功 ， 返 回 至 今 已 经 积累 起 的 约束 形成 的 框架 。 否 则 ， 如 果 
模式 是 变量 ， 我 们 就 扩充 当前 框架 ， 将 变量 与 数据 的 约束 加 入 其 中 ， 条 件 是 这 一 约束 与 框架 
里 已 有 的 约束 相 容 。 如 果 模 式 和 数据 都 是 序 对 ， 我 们 就 (递归 地 ) 将 模式 的 car 与 数据 的 car 
匹配 , 产生 出 一 个 框架 , 而 后 在 这 一 框架 上 去 做 模式 的 cdr 部 分 与 数据 的 cdr 部 分 的 匹配 工作 。 
如 果 这 些 情 况 都 不 可 用 ， 匹 配 就 失败 了 ， 我 们 返回 符号 failed. 
(define (pattern-match pat dat frame) 
(cond ((eq? frame ’failed) ’failed) 
( (equal? pat dat) frame) 
(({var? pat) (extend-if-consistent pat dat frame) ) 
(({and (pair? pat) (pair? dat)) 
{pattern-match {cdr pat) 
(cdr dat) 
(pattern-match (car pat) 
(car dat) 
frame) )) 
(else ’failed))) 
这 个 过 程 通过 加 入 新 约束 扩充 给 定 的 框架 ， 条 件 是 ， 这 一 约束 与 框架 中 已 有 的 约束 相 容 : 
(define (extend-if-consistent var dat frame) 
(let ((binding (binding-in-frame var frame) )) 
(if binding 
(pattern-match (binding-value binding) dat frame) 
(extend var dat frame)))) 
如 果 在 框架 里 不 存在 这 个 变量 的 约束 ， 我 们 就 简单 地 将 该 变量 与 对 应 数据 的 约束 加 进去 。 否 
则 就 需要 在 这 个 框架 里 ， 用 这 一 数据 与 该 变量 在 框架 里 所 约束 的 值 做 一 次 匹配 。 如 有 果 保 存 的 
值 中 只 包含 常量 (如 果 它 是 由 extend-if-consistent 在 模式 匹配 中 存 入 的 ， 那 么 就 一 定 
是 这 样 )， 那 么 ， 这 个 匹配 也 就 是 检查 已 经 保存 的 值 和 新 值 是 否 相同 。 如 果 两 个 值 相 同 ， 那 么 
就 返回 没有 修改 的 框架 ， 如 果 不 同 就 返回 失败 标志 。 当 然 ， 框 架 里 保存 的 值 里 也 可 能 包含 变 
量 ， 如 果 它 是 在 合 一 中 保存 的 ， 就 有 可 能 出 现 这 种 情况 (参见 4.4.4.4 市 )。 将 框架 里 保存 的 值 
与 新 值 的 递归 匹配 还 可 能 会 要 求 增加 ， 或 者 要 求 检 查 这 一 模式 里 的 有 关 变 量 的 约束 。 举 例 来 
说 ， 假 如 我 们 有 一 个 框架 ， 其 中 ?x 约束 到 (f ?y) 而 ?7 没有 约束 ， 现在 希望 通过 加 入 ?Xx 到 
(£ b) 的 约束 来 扩大 这 个 框架 。 我 们 查找 ?x 并 发 现 了 它 已 经 约束 到 (£ ?y)， 这 就 导致 我 们 
必须 在 同一 框架 里 去 做 (上 ?y) 与 所 提供 的 新 值 (E b) 的 匹配 。 这 个 匹配 最 终 将 ?Y 到 b 的 
约束 加 入 框架 里 ， 而 变量 ?x 还 是 约束 到 (E ?y) 。 在 此 过 程 中 ， 已 保存 的 约束 决 不 会 修改 ， 
也 不 会 为 一 个 特定 变量 保存 多 个 约束 。 
extend-if- consistent 使 用 的 那些 对 约束 做 各 种 操作 的 过 程 在 4.4.4.8 节 定义 。 


具有 带 点 尾部 的 模式 

如 果 一 个 模式 里 包含 了 一 个 圆 点 ， 后 跟 一 个 模式 变量 ， 这 一 变量 将 与 数据 表 里 的 剩余 部 
分 匹配 (而 不 是 与 数据 表 的 下 一 元 素 匹 配 ) ， 就 像 在 练习 2.20 里 描述 的 圆 点 记 法 所 要 求 的 那样 。 
虽然 我 们 刚刚 实现 的 模式 匹配 器 并 没有 查看 圆 点 ， 但 它 确实 能 按 我 们 所 期 望 的 方式 工作 。 这 
是 因为 query-driver-1Loop 使 用 Lisp 的 read 基 本 过 程 读 人 查询 ， 并 将 它 表 示 为 一 个 表 结 
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构 ， 其 中 的 圆 点 将 用 一 种 特殊 方式 处 理 。 
当 read 遇 到 一 个 圆 点 时 ， 它 不 是 把 下 一 个 项 作为 表 里 的 下 一 元 素 (一 个 cons 的 car ,其 
cdr 将 是 这 个 表 的 其 余部 分 ), 而 是 将 下 一 个 项 直接 作为 这 个 表 结 构 的 cdr。 举 例 说 ， 对 于 给 
定 的 模式 (computer ?type)， 由 read 产 生 的 表 结 构 相 当 于 对 表达 式 (cons 
‘computer (cons '?type '0)) 求 值 所 产生 的 结构 ; 而 对 (computer . ?type) 产生 的 

结构 相当 于 对 表达 式 (cons computer '?type) 求 值 构造 出 的 结构 。 

这 样 , 在 pattern-match 递 归 地 比较 一 个 数据 表 与 一 个 模式 中 各 个 car 和 cdr 的 过 程 中 ， 
它 最 终 会 将 圆 点 后 的 变量 (是 模式 里 的 一 个 cdr ) 与 数据 表 的 一 个 子 表 匹配 ， 并 将 其 约束 于 
这 个 子 表 。 例 如 ， 将 模式 (computer . ?type) 与 (computer programmer trainee) 
匹配 ， 将 使 变量 ?type 匹 配 到 表 (programmer trainee), 


4.4.4.4 规则 积 合 一 
apply-rules 用 类 似 fijnd- assertions 的 方式 处 理 规则 (4.4.4.3 节 )。 它 以 一 个 模式 
和 一 个 框架 作为 输入 ， 生 成 一 个 通过 应 用 来 自 数据 库 的 规则 而 扩充 的 框架 流 。stream- 
flatmap 将 apply-a-rule 映 射 到 由 可 能 应 用 的 规则 (hfetch-rules $H, 4.4.4.5) 
形成 的 流 上 ， 并 组 合 起 得 到 的 框 染 流 。 
(define (apply-rules pattern frame) 
(stream-flatmap (lambda (rule) 


{apply-a-rule rule pattern frame) ) 
(fetch-rules pattern frame) )) 


apply-a-rule 采 用 4.4.2 节 里 概述 的 方法 去 完成 规则 的 应 用 。 它 首先 在 给 定 框架 里 对 规 
则 的 结论 和 模式 做 合 一 ， 以 这 种 方式 扩充 自己 的 实 参 框架 。 如 果 这 一 工作 成 功 完成 ， 那 么 就 
在 得 到 的 新 框架 里 求 值 规 则 的 体 。 
OA, 在 做 所 有 这 些 事情 之 前 , 程序 需要 将 规则 里 的 所 有 变量 重新 命名 (用 唯一 性 名 字 )。 
之 所 以 这 样 ， 是 为 了 流 免 在 不 同 的 规则 应 用 中 变量 名 字 互 扰 。 举 个 例子 ， 如 果 两 条 规则 里 都 
有 一 个 变量 的 名 字 是 ?x， 那 么 在 应 用 时 ， 这 两 条 规则 就 都 可 能 向 框架 里 加 入 对 ?x 的 约束 。 其 
实 这 两 个 约束 相互 间 毫 无 关系 ， 而 我 们 却 会 以 为 这 两 个 约束 必须 相 容 。 如 果 不 做 变量 的 重新 
命名 ， 也 可 以 设计 一 种 更 加 聪明 的 环境 结构 。 然 而 ， 重 新 命名 却 是 最 直截了当 的 解决 办 法 ， 
虽然 可 能 不 是 效率 最 高 的 办 法 (参见 练习 4.79 )。 下 面 是 apPPly-a-rule 过 程 ; 
(define (apply-a-rule rule query-pattern query-frame) 
(let ((clean-rule (rename-variables-in rule))) 
(let ((unify-result 
(unify-match query-pattern 
(conclusion clean-rule) 
query-frame) )) 
(if (eq? unify-result ‘failed) 
the-empty-stream 
(qeval (rule-body clean-rule) 
(singleton-stream unify-result)))))) 


提取 规则 成 分 的 选择 函数 rule-body 和 和 conclus ion 将 在 4.4.4.7 节 定义 。 
为 了 生成 唯一 的 名 字 ， 这 里 的 方法 是 为 每 个 规则 应 用 关联 一 个 唯一 标识 (例如 一 个 数 )， 





并 将 这 一 标识 与 原来 的 变量 名 组 合 起 来 。 璧 如 说 ， 如 果 规 则 应 用 的 标识 是 7 ， 我 们 就 可 以 把 规 
则 里 的 每 个 ?x 都 改 为 ?x-7 ， 将 其 中 的 每 个 ?Y 都 改 为 ?y-7 。(make-new-VvVariable 和 
new-LIule-application-id 与 语法 过 程 一 起 放 在 4.4.4.7 节 里 。) 


(define (rename-variables-in rule) 
(let (({rule-application-id (new-rule-application-id) ) ) 
(define (tree-walk exp) 
(cond ((var? exp) 
(make-new-variable exp rule-application-id)) 
{ (pair? exp) 
(cons (tree-walk (car exp)) 
(tree-walk (cdr exp)))) 
{else exp))) 
(tree-walk rule) )) 


合 一 算法 也 实现 为 一 个 过 程 。 这 个 过 程 以 两 个 模式 和 一 个 框架 为 参数 ， 返 回 扩充 后 的 杠 
架 或 者 符号 failed。 这 个 合 -过 程 很 像 前 面 的 模式 匹配 器 ， 但 它 是 对 称 的 ， 因 为 匹配 的 两 边 
都 可 以 有 变量 。unify-match 基 本 上 与 pattern-match 相 同 ， 只 是 多 了 一 些 代码 (下面 用 
“x***” 标 记 的 部 分 )， 用 于 处 理 匹 配 的 右边 对 象 也 是 变量 的 情况 。 

(define (unify-match pl p2 frame) | 

(cond ((eq? frame failed) ‘failed) 
( (equal? pl p2) frame) 
((var? pl) (extend-if-possible pl p2 frame)) 
((var? p2) (extend-if-possible p2 pl frame)) ; *** 
((and (pair? pl) (pair? p2)) 
(unify-match (cdr pl) 


(cdr p2) 

(unify-match (car pl) 
(car p2) 
frame) )) 


(else ’failed))) 

在 合 一 过 程 中 ， 就 像 在 单 边 的 模式 匹配 里 那样 ， 只 有 在 得 到 的 扩充 能 够 与 现存 匹配 相 容 
时 ， 我 们 才能 够 接受 这 一 扩充 。 在 合 一 里 面 使 用 的 extend-if-possible 过 程 很 像 在 模式 
匹配 里 使 用 的 extend-if-consistent， 但 在 这 里 增加 了 两 处 特殊 检查 ， 在 下 面 的 程序 里 
用 “***” 标 记 。 第 一 种 情况 出 现在 我 们 试图 去 匹配 的 变量 还 没有 约 东 ， 而 想 要 用 它 去 匹配 
的 值 本 身 也 是 一 个 (不同 的 ) 变量 时 。 此 时 就 需要 检查 这 个 (作为 值 的 ) 变量 是 否 已 经 有 了 
约束 。 如 果 有 的 话 ， 那 就 让 前 一 个 变量 也 约束 到 它 的 值 。 如 果 两 个 变量 都 没有 约束 ， 那 么 就 
可 以 将 其 中 任何 一 个 约束 到 另 一 个 。 

第 二 个 检查 处 理 的 情况 出 现在 试图 将 一 个 变量 约束 到 一 个 模式 ， 而 该 模式 里 又 包含 这 个 
恋 量 时 。 当 两 个 模式 里 都 有 重复 出 现 的 变量 的 时 候 ， 就 可 能 出 现 这 种 情况 。 举 个 例子 ， 考 请 
在 一 个 ?x 和 ?y 都 没有 约束 的 框架 里 对 两 个 模式 (?x ?x) 和 (Py < 涉及 ?Y 的 表达 式 >) 的 
合 一 。 这 里 首先 做 ?x 与 ?Y 的 匹配 ， 做 出 了 一 个 从 ?Xx 到 ?Y 的 约束 。 下 面 又 要 用 同一 个 ?Xx 去 与 
一 个 涉及 ?y 的 表达 式 匹 配 。 由 于 ?x 已 经 约束 到 ?y， 结 果 就 要 用 ?Y 去 与 这 个 表达 式 匹配 。 如 
果 我 们 认为 合 一 的 工作 就 是 为 模式 变量 找到 一 组 对 应 值 ， 它 们 能 使 两 个 模式 变 得 相同 。 堵 么 
上 面 的 模式 就 意味 着 需要 找 出 一 个 ?yY ， 使 ?y 等 价 于 那个 包含 ?Y 的 表达 式 。 不 存在 求解 这 种 方 





程 的 一 般 性 方法 ， 因 此 我 们 拒绝 这 种 约束 ”“。 谓 词 QGepends-on? 检查 这 种 情况 。 在 另 一 方面 ， 
我 们 并 不 想 拒 绝 一 个 变量 与 其 自身 的 匹配 。 举 例 来 说 ， 在 考虑 (ex ?x) 和 (Fy ?Y) We 
一 时 ， 第 二 次 尝试 将 ?x 约束 到 ?y 时 要 做 ?y (?x 的 保存 值 ) Sry (?x 的 新 值 ) 的 匹配 。 这 一 
情况 通过 unify-match 里 的 equal? 子 句 检 查 。 | 
(define (extend~if-possible var val frame) 
(let ((binding (binding-in-frame var frame) )) 
(cond (binding 
(unify-match 
(binding-value binding) val frame) ) 
((var? val) ; «** 
(let ((binding (binding-in-frame val frame) )) 
(if binding 
(unify-match 
var (binding-value binding) frame) 
(extend var val frame)))) 
({depends-on? val var frame) ; k*k 
failed) 
(else (extend var val frame))))) 


depends-on? 是 一 个 谓词 ， 它 检查 一 个 想 作为 某 模式 变量 的 值 的 表达 式 是 否 依赖 于 这 一 
变量 。 这 件 事情 也 必须 相对 于 当前 的 框架 去 做 ， 因 为 在 这 个 表达 式 里 可 能 包含 某 个 变量 的 出 
现 ， 而 该 变量 已 经 有 了 值 ， 其 值 依 赖 于 我 们 要 检查 的 变量 。depends-on? 的 结构 是 一 个 简 
单 的 递归 的 树 遍 历 ， 其 中 (在 需要 时 ) 要 将 一 些 变量 换 成 相应 的 值 。 

(define (depends-on? exp var frame) 

(define (tree-walk e) 
(cond ((var? e) 
(if (equal? var e) 


true 
(let ((b (binding-in-frame e frame) }) 


24 一般 地 说 ,将 ?y 与 一 个 涉及 ?Y 的 表达 式 合 一 ,要求 我 们 能 够 找到 方程 ?Y =< 涉 及 ?Y 的 表达 式 > 的 一 个 不 动 点。 

有 时 我 们 确实 可 能 通过 语法 方式 构造 出 一 个 表达 式 ， 使 它 正好 是 有 关 方程 的 一 个 解 。 例 如 ，?y= (£ ?y) 

看 来 似乎 有 不 动 点 (€ (€ (£ ..。 )))， 我 们 可 以 从 表达 式 (£ ?y) 开始 ,通过 反复 用 (£ ty) 替换 ?y 

而 得 到 它 。 不 幸 的 是 ， 并 不 是 每 个 这 样 的 方程 都 有 一 个 有 意义 的 不 动 点 。 这 里 出 现 的 问题 与 数学 里 无 穷 级 数 

运算 中 的 问题 类 似 。 举 例 说 ， 我 们 知道 2 是 方程 y = 1 +y/2 的 解 。 从 表达 式 1 +y/2 开 始 ， 反 复 地 用 1 +y/2 替 换 y， 

将 给 出 : 
| 2=y=1+y/2 =1 +(1 +y/2)/2 =1 412 +y/4 = 

由 此 将 得 到 
2 =1 +1/2 +1/4 41/8 + o, 

但 是 ， 如 果 我 们 由 于 看 到 了 一 1 是 方程 ) =1+2y 的 解 ， 而 试 着 去 做 同样 的 事情 时 ， 将 会 得 到 ; 

—1=y=1 +2y=1 +2(1 +2y) =1 +2+4y=…: 


并 由 此 得 到 
—1=1+2+4+8+……: 


虽然 对 这 两 个 方程 的 操作 方式 完全 一 样 ， 第 一 个 得 到 的 结果 是 关于 一 个 无 穷 级 数 的 合法 断言 ， 而 第 二 个 却 不 
是 。 与 此 类 似 ， 采 用 任意 的 语法 操作 去 构造 作 为 合 一 结果 的 表达 式 ， 也 可 能 得 到 错误 的 结果 。 
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(if b 

(tree-walk (binding-value b)) 
false)))) 

{ (pair? e) 

(or (tree-walk (car e)) 

(tree-walk (cdr e)))) 
(else false))) 
(tree-walk exp) ) 


4.4.4.5 ”数据 库 的 维护 

在 设计 逻辑 程序 设计 语言 时 ， 一 个 重要 的 问题 就 是 设法 做 出 一 些 安排 使 我 们 在 需要 检 
查 一 个 给 定 模式 时 ， 必 须 考 察 的 无 关 数据 库 条 目 越 少 越 好 。 在 我 们 的 系统 里 ， 除 了 在 一 个 很 
大 的 流 中 保存 了 所 有 断言 之 外 ， 我 们 还 将 ca 部 分 是 常量 符号 的 所 有 断言 保存 在 另外 一 些 六 
里 ， 将 这 些 流放 入 一 个 用 这 些 符 号 作为 索引 的 表格 。 在 提取 可 能 与 某 个 模式 匹配 的 断言 时 ， 
我 们 首先 查看 这 个 模式 的 car 是 否 为 常量 符号 。 如 果 是 ， 那 么 就 返回 程序 里 保存 的 所 有 具有 
同样 car 的 断言 ( 送 给 匹配 器 去 检查 )。 如 果 模 式 的 car 不 是 常量 符号 ， 那 么 就 返回 程序 里 保 
存 的 所 有 断言 。 更 聪明 的 方法 还 可 以 利用 框架 里 的 信息 ， 或 者 设法 优化 那些 模式 的 car 不 丰 
常量 符号 的 情况 。 我 们 并 没有 把 上 述 索 引 准 则 (利用 car ， 只 处 理 常量 符号 的 情况 ) 构造 到 
程序 里 ， 而 是 依靠 谓词 和 选择 函数 实现 这 种 准则 。 

(define THE-ASSERTIONS the-empty-stream) 


(define (fetch-assertions pattern frame) 
(if (use-index? pattern) 
(get-indexed-assertions pattern) 
(get-all-assertions) ) ) 


(define (get-all-assertions) THE~ASSERTIONS ) 


(define (get-indexed-assertions pattern) 
(get-stream (index-key-of pattern) "assertion-stream) ) 


get-stream 到 表格 里 查找 相应 的 流 ， 如 果 那 里 没有 东 西 就 返回 一 个 空 的 流 ，。 


(define (get-stream keyl key2) 
(let ((s (get keyl key2))) 
(if s s the-empty-stream) ) ) 


规则 也 用 类 似 方式 保存 ， 以 规则 中 结论 部 分 的 car 作 为 索引 。 当 然 ， 由 于 规则 的 结论 可 
以 是 任意 的 模式 ， 与 断言 不 同 点 就 是 在 这 里 可 以 包含 变量 。 其 car 为 常量 符号 的 模式 可 以 与 
那些 结论 部 分 具有 同样 car 的 规则 匹配 ， 还 可 以 与 那些 结论 部 分 以 变量 开始 的 规则 相 匹 配 。 
这 样 ， 假 定 某 个 模式 的 car 为 常量 符号 ， 在 提取 有 可 能 与 该 模式 匹配 的 规则 时 ， 不 但 需要 提 
. 取 所 有 结论 部 分 具有 同样 car 的 规则 ， 还 要 提取 出 所 有 结论 部 分 以 变量 开头 的 规则 1。 为 此 ， 
我 们 就 把 所 有 的 结论 部 分 以 变量 开始 的 规则 作为 一 个 单独 的 流 ， 保 存在 流 的 表格 里 ， 以 从 3? 
作为 它 的 索引 。 

(define THE-RULES the-empty-stream) 


(define (fetch-rules pattern frame) 
(if (use-index? pattern) 
(get-indexed-rules pattern) 
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(get-all-rules) )) 
(define (get-all-rules) THE-RULES) 
(define (get-indexed-rules pattern) 


(stream-append 


(get-stream (index~key-of pattern) 


*rule-stream) 
(get-stream °? ’rule-stream) )) 


Ni 
oh 
ul, 
车 
Pe 


wt feadd-rule-or-assertion! 用 在 query-driver-loop 里 ， 用 于 将 断言 和 规则 
加 入 数据 库 。 如 果 合 适 ， 就 将 条 目 都 保存 到 某 个 索引 下 ， 还 要 保存 在 数据 库 里 所 有 断言 和 规 


则 的 流 中 。 


(define (add-rule-or-assertion! assertion) 
(if (rule? assertion) 


(add-rule! assertion) 


(add-assertion! assertiv.,,, 


(define (add-assertion! assertion) 
(store-assertion-in~index assertion) 
(let ((old-assertions THE-ASSERTIONS) ) 

(set! THE-ASSERTIONS 


(cons-stream assertion old-assertions) ) 

‘Ok ) ) 

(define (add-rule! rule) 
(store-rule-in-index rule) 
(let ((old-rules THE-RULES) ) 


(set! THE-RULES (cons-stream rule old-rules) ) 
OK ) ) 


为 了 实际 地 保存 一 个 规则 或 者 断言 ， 我 们 需要 检查 Ce GRE Sl. WR ATLA AT, MA 


它 存 人 适当 的 流 。 
(define (store-assertion-in-index assertion) 
(if (indexable? assertion) | 
(let ((key (index-key-of assertion))) 
(let ((current-assertion-stream 


(get-stream key ‘assertion-stream) ) ) 
(put key 


"assertion-stream 
(cons-stream assertion 
current-~assertion-stream) ))))) 
(define (store-rule-in-index rule) 
(let ((pattern (conclusion rule))) 
(if (indexable? pattern) 
(let ((key (index-key-of pattern) )) 
(let ((current-rule-stream 


(get-stream key ‘rule-stream) ) ) 
(put key 


*rule-stream 


(cons-stream rule 


current-rule-stream)))))})) 





下 面 过 程 定义 了 这 个 数据 库 里 所 使 用 的 索引 。 如 果 一 个 模式 (一 个 断言 或 者 一 个 规则 的 
结论 部 分 ) 以 变量 或 者 常量 符号 开始 ， 它 就 将 被 存 人 表格 里 。 


(define (indexable? pat) 
(or (constant-symbol? (car pat) ) 
(var? (car pat)))) 


将 模式 保存 到 表格 里 的 关键 码 或 者 是 ? (如 果 它 以 变量 开始 )， 或 者 是 作为 该 模式 开始 的 那个 
符号 常量 。 
(define (index-key-of pat) 
(let ((key (car pat))) 
(if (var? key) °? key))) 


如 果 一 个 模式 以 某 个 符号 常量 开始 ， 这 个 常量 就 将 被 用 作 索 ?| ， 从 数据 库 里 提取 出 可 能 与 这 
个 模式 相 匹 配 的 条 目 。 


(define (use-index? pat) 
(constant~symbol? (car pat))) 


练习 4.70 在 过 程 add-assertion! 和 add-~rule! 里 的 let 约 束 起 什么 作用 ? mR 
用 下 面 方式 实现 add-assertion!, 会 出 什么 错 ? Hm: 请 参考 前 面 3.5.2 市 里 有 关 ones 的 
无 穷 流 的 定义 ，(define ones (cons-stream 1 ones)), 


(define (add-assertion! assertion) 
(store-assertion-in-index assertion) 
(set! THE-ASSERTIONS 
(cons-stream assertion THE-ASSERTIONS) ) 


"OK ) 


4.4.4.6 ” 流 操作 | 
这 一 查询 系统 用 到 了 几 个 没有 在 第 3 章 给 出 的 流 操作 。 
stream-append-delayed 和 interleave-delayed 与 stream-append 和 
interleave ( 见 3.5.3 节 ) 类 似 ， 但 它们 都 要 求 延 时 参数 (就 像 3.5.4 市 的 jntegral 过 程 )。 
在 某 些 情况 中 ， 这 将 推迟 循环 的 执行 (参见 练习 4.71 )。 
(define (stream-append-delayed sl delayed-s2) 
(if (stream-null? sl) 
(force delayed-s2) 
(cons-stream 


(stream-car Sl) 
(stream-append-delayed (stream-cdr sl) delayed-s2)))) 


(define (interleave-delayed sl delayed-s2) 
(if (stream-null? s1) 
(force delayed-s2) 
(cons-stream 
(stream-car sl) 
(interleave-delayed (force delayed-s2) 
(delay (stream-cdr sl)))))) 


stream-flatmap 在 整个 查询 求 值 器 里 到 处 使 用 ， 它 将 一 个 过 程 映射 到 一 个 框架 流 上 ， 
并 组 合 起 得 到 的 结果 框架 流 。 这 个 过 程 可 以 看 作 2.2.3 节 所 介绍 的 针对 常规 表 的 flatmap 过 程 





e < E E A E 


的 流 版 本 。 但 其 中 也 有 一 些 与 常规 flatmap 不 同 的 地 方 ，stream-flatmap 采 用 一 种 交错 
的 方式 累积 起 各 个 流 ， 而 不 是 简单 地 将 它们 连接 起 来 (参见 练习 4.72 和 4.73 ) 。 
(define (stream-flatmap proc s) 


(flatten-stream (stream-map proc s))) 


(define (flatten-stream stream) 
(if (stream-null? stream) 
the-empty-stream 
(interleave-delayed 
(stream-car stream) 


(delay (flatten-stream (stream-cdr stream)))))) 


求 值 器 还 使 用 下 面 的 简单 过 程 ， 去 生成 一 个 只 包含 着 一 个 元 素 的 流 : 
(define (singleton-stream x) 
(cons-stream x the-empty-stream) ) 


4.4.4.7 ”查询 的 语法 过 程 
qeval 里 使 用 的 type 和 contents ( 见 4.4.4.2 节 ) 说 明 各 种 特殊 形式 都 由 其 car 部 分 的 
符号 作为 标识 。 这 两 个 过 程 与 2.4.2 节 的 type-tag 和 contents 过 程 一 样 ， 只 是 其 中 的 错误 
信息 不 同 。 | 
(define (type exp) 
(if (pair? exp) 
(car exp) 
(error "Unknown expression TYPE" exp))) 


(define (contents exp) 
(if (pair? exp) 
(cdr exp) 
(error "Unknown expression CONTENTS" exp) ) ) 


下 面 两 个 过 程 用 在 query-driver-1loop 里 ( 见 4.4.4.1 节 )， 它 们 说 明 ， 用 于 加 入 数据 库 
的 规则 和 断言 所 用 的 形式 是 (assert! <rule-or-assertion>) ; 


(define (assertion-to-be-added? exp) 


(eq? (type exp) ‘assert!)) 


(define (add-assertion-body exp) 

(car (contents exp))) 
这 里 是 特殊 形式 and、or 、not 和 1lisp~value 的 语法 定义 ( 见 4.4.4.2 节 ): 
(define (empty-conjunction? exps) (null? exps)) 


(define (first-conjunct exps) (car exps)) 
(define (rest-conjuncts exps) (cdr exps)) 


(define (empty-disjfunction? exps) (null? exps)) 
(define (first-disjunct exps) (car exps)) 
(define (rest-disjuncts exps) (cdr exps)) 


(define (negated-query exps) (car exps)) 


(define (predicate exps) (car exps)) 
(define (args exps) (cdr exps) ) 


下 面 三 个 过 程 定义 了 规则 的 语 革 形式 : 
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(define (rule? statement) 
(tagged-list? statement ‘’rule)) 


(define (conclusion rule) (cadr rule)) 


(define (rule-body rule) 

(if (null? (cddr rule)) 
*(always-true) 
(caddr rule))) 


query-driver-loop ( 见 4.4.4.1 节 ) 调用 query-syntax~process， 对 表达 式 里 的 
模式 变量 做 一 种 变换 ， 将 其 由 ?symbolil 形 式 变 换 为 内 部 形式 (? Symbol )。 这 也 就 是 说 ， 一 - 
个 形 如 (job ?x ?y) 的 模式 ,在 系统 内 部 的 实际 表示 是 (job (? x) (? y))。 这 样 做 可 
以 提高 查询 处 理 的 效率 ， 因 为 这 就 使 系统 在 需要 检查 一 个 表达 式 是 否 为 模式 变量 时 ， 只 需 检 
查 这 一 表达 式 的 car 是 不 是 符号 ? ， 而 不 需要 做 从 符号 里 提取 字符 的 工作 。 这 一 语法 变换 由 下 
面 过 程 完 成 入 : | 

(define (query-syntax-process exp) 

(map-over-symbols expand-question-mark exp) ) 


(define (map~over-symbols proc exp) 
(cond ((pair? exp) 
(cons (map-over-symbols proc (car exp)) 
(map-over-symbols proc (cdr exp)))) 
((symbol? exp) (proc exp) ) 
(else exp))) 


(define (expand-quest ion-mark symbol ) 
(let ((chars (symbol->string symbol))) 
(if (string=? (substring chars 0 1) "?") 
(list °? 
(string->symbol 
(substring chars 1 (string-length chars)))) 
symbol ) ) ) 


一 旦 以 这 种 方式 对 变量 做 了 变换 ， 模 式 里 的 变量 就 都 变 成 了 以 ?开头 的 表 ， 而 常量 符号 
(为 了 数据 库 素 引 需 要 识别 它们 。 见 4.4.4.5 节 ) 还 是 符号 。 | 
(define (var? exp) 
(tagged-list? exp 2)) 


(define (constant-symbol? exp) (symbol? exp) ) 


在 规则 应 用 过 程 中 需要 构造 唯一 变量 ( 见 4.4.4.4 节 )， 此 事 通 过 下 面 过 程 完成 。 一 次 过 程 
调用 的 唯一 标识 是 一 个 数 ， 在 每 次 规则 应 用 时 加 一 。 


(define rule-counter 0) 


85 大 部 分 Lisp 系 统 允 许 用 户 修改 常规 的 read 过 程 , 使 之 能 执行 这 类 变换 。 为 此 提供 了 定义 读 入 器 宏 字 茶 的 功能 。 
引号 表 达 式 也 是 按 这 种 方式 处 理 的 : 读 入 器 能 自动 将 "expression 变 为 (quote expression), mijat 
把 它 送 给 求 值 器 。 我们 可 以 做 出 一 些 安排 ， 以 同样 方式 将 ?expression 变 换 为 (? expression), Rif, 
为 了 清晰 起 见 ， 这 里 写 出 了 显 式 的 变换 过 程 。 | 

expand~question-markfcontract-question-mark 里 用 到 几 个 名 字 里 包含 String 的 过 程 ， 
它们 都 是 Scheme 的 基本 操作 。 
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(define (new-rule-application-id) 
(set! rule-counter (+ 1 rule-counter) ) 
rule-counter ) 


(define (make-new-variable var rule-application-id) 
(cons °? (cons rule-application-id (cdr var)))) 


在 Suery-drivVer-1Loop 为 了 打印 回答 而 实例 化 查询 表达 式 时 ， 它 需要 用 下 面 过 程 将 所 
有 未 约束 的 模式 变换 回 打 印 用 的 正 确 形式 : 
(define (contract-question-mark variable) 
(string->symbol | 
(string-append "2?" 
(if (number? (cadr variable) ) 
(string-append (symbol->string (caddr variable) ) 


(number->string (cadr variable))) 
(symbol->string (cadr variable)))))) 


44.4.8 框架 和 汐 束 
框架 被 表示 为 一 组 约束 的 表 ， 每 个 约束 是 一 个 变量 - 值 序 对 ; 
(define (make-binding variable value) 
(cons variable value) ) 


(define (binding-variable binding) 
(car binding) ) 


(define (binding-value binding) 
(cdr binding) ) 


(define (binding-in-frame variable frame) 
(assoc variable frame) ) 


(define (extend variable value frame) 
(cons (make-binding variable value) frame) ) 


练习 4.71 Louis Reasoner 感 到 奇怪 的 是 ， 为 什么 Simple-query 和 disjoin 过 程 (W 
4.4.4.2 节 ) 里 显 式 使 用 过 程 delay 实现 ， 而 没有 定义 为 下 面 形式 : 
(define (simple-query query-pattern frame-stream) 
(stream-flatmap 
(lambda (frame) 
(stream-append (find-assertions query-pattern frame) 
(apply-rules query-pattern frame) )) 
frame-stream) ) 


(define (disjoin disjuncts frame-stream) 
(if (empty-disjunction? disjuncts) 
the-empty-stream 
(interleave 
(geval (first-disjunct disjuncts) frame-stream) 
(disjoin (rest-disjuncts disjuncts) frame-stream) ))) 


你 能 够 给 出 一 些 查询 实例 ， 对 于 它们 ， 这 种 更 简单 的 定义 将 会 导致 非 预 期 的 行为 吗 ? 
练习 4.72 ”为 什么 disjoin 和 stream-flatmap 以 交错 方式 合并 流 ， 而 不 是 简单 地 连接 





它们 ? 请 给 出 实例 说 明 采 用 交错 方式 更 加 合适 。( 提 示 ， 为 什么 我 们 在 3.5.3 节 里 需要 使 用 过 程 
interleave? ) 
练习 4.73 为 什么 flatten-stream 中 显 式 地 使 用 了 delay? 如 果 用 下 面 形式 定义 它 ， 
为 什么 就 是 错误 的 呢 ? 
(define (flatten-stream stream) 
(if (stream-null? stream) 
the-empty-stream 
(interleave 
(stream-car stream) 


(flatten-stream (stream-cdr stream))))) 


练习 4.74 Alyssa P. Hacker#ix fenegate, lisp-value#ifind-assertions # 
采用 一 种 更 简单 些 的 stream-flatmap 版 本 。 她 注意 到 ， 在 这 些 情况 下 ， 被 映射 到 框架 流 
的 过 程 总 是 或 者 产生 一 个 空 流 ,或 者 产生 一 个 单元 素 流 。 因 此 ， 在 组 合 这 些 流 时 根本 不 需要 
交错 。 

a) 请 填充 下 面 Alyssa 的 程序 里 缺少 的 表达 式 : 

(define (simple-stream-flatmap proc s) 


(simple~flatten (stream-map proc s))) 


(define (simple-flatten stream) 
(stream-map <??> 
(stream-filter <??> stream) )) 


b) 如 果 我 们 这 样 修改 程序 ， 查 询 系统 的 行为 会 改变 吗 ? 
练习 4.75 为 这 一 查询 语言 实现 一 一 种 称 为 unique 的 新 特殊 形式 。 unique 应 该 在 数据 库 
里 恰好 只 有 一 个 满足 特殊 查询 的 条 目 时 成 功 。 例 如 ， 


(unique (job ?x (computer wizard) )) 
应 该 打印 出 只 含 下 面 一 个 条 目的 流 
(unique (job (Bitdiddle Ben) (computer wizard))) 
因为 Ben 是 这 里 仅 有 的 计算 机 大 师 。 而 
(unique (job ?x (computer programmer))) 
应 输出 一 个 空 流 ， 因 为 这 里 的 计算 机 程序 员 不 止 一 个 。 进 一 步 说 ， 
(and (job ?x ?j) (unique (job ?anyone ?j))) 
应 该 列 出 所 有 只 有 一 个 人 做 的 工作 ， 以 及 做 这 些 工 作 的 人 。 
实现 unique 的 工作 包括 两 部 分 。 第 一 部 分 是 写 出 一 个 能 够 处 理 这 一 特殊 形式 的 过 tE, # 
二 部 分 是 让 geval 能 为 这 个 过 程 做 分 派 。 第 二 部 分 工作 很 简单 ， 因 为 geval 的 分 派 是 以 数据 
导向 的 方式 做 的 ， 如 果 你 的 过 程 名 字 叫 uniquely-asserted， 需 要 做 的 事情 也 就 是 写 
(put "unique 'deval uniquely-asserted) 
这 就 能 使 gseval 在 遇 到 某 查 询 的 type (car) 是 符号 unique 时 ， 就 会 将 它 分 派 给 这 个 过 程 。 
真正 的 问题 是 写 过 程 uniquely~asserted。 它 需要 以 相应 unique 查 询 的 contents 
(cdr) 部 分 和 一 个 框架 流 作为 输入 ， 对 这 个 流 里 的 每 个 框架 ， 它 应 该 利用 qeval 去 找 出 这 
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一 框 染 的 所 有 福 足 给 定 查 询 的 扩充 框架 的 流 。 所 有 包含 着 多 个 条 目的 流 都 应 该 抛弃 。 剩 下 的 
六 送 回 并 累积 到 一 个 大 流 里 ， 作 为 unique 查 询 的 结果 。 这 一 方式 与 特殊 形式 not 的 实现 方 
式 类 似 。 | 

通过 构造 下 面 查询 检查 你 的 实现 : 找 出 所 有 这 样 的 人 ， 他 们 只 有 一 个 上 级 。 

练习 4.76 ”我 们 将 and 实 现 为 一 系列 查询 的 组 合 ( 见 图 4-5) 的 方式 很 优美 ， 但 却 比 较 低 
效 ， 因 为 在 处 理 and 的 第 二 个 查询 时 ， 我 们 还 必须 针对 第 一 个 查询 产生 出 的 框架 扫描 整个 数据 
库 。 如 果 数 据 库 里 有 久 个 元 素 ， 一 次 典型 查询 产生 出 的 输出 框架 个 数 等 比 于 NA (例如 N/A)， 那 
么 为 第 一 个 查询 所 生成 的 所 有 输出 框架 扫描 数据 库 ， 就 需要 N/K 次 调用 模式 匹配 器 。 实 现 这 一 
计算 过 程 的 另 一 方式 是 分 别处 理 and 的 两 个 子 句 ， 而 后 考察 两 个 流 里 的 所 有 输出 框架 对 偶 是 否 
兼容 。 如 果 每 个 查询 产生 出 N/K 个 输出 框架 ， 这 就 意味 着 我 们 需要 做 N/K 次 相 容 性 检查 一 一 与 
目前 所 采用 的 方式 相 比 ， 新 方式 所 需 的 匹配 次 数 小 了 一 个 倍 的 因子 。 | 

请 设计 一 个 采用 这 种 策略 的 and 实 现 。 你 必须 实现 一 个 过 程 ， 它 以 两 个 流 作 为 输入 ， 检 
查 其 中 框架 里 的 匹配 是 否 兼 容 。 如 果 是 的 话 ， 就 生成 一 个 合并 了 这 两 集约 束 的 框架 。 这 一 操 
作 很 像 合 一 。 

练习 4.77 ”在 4.4.3 节 里 我 们 看 到 ， 如 果 将 过 恋 吉 not 和 1isp-value 作 用 于 包含 未 约束 
变量 的 框架 ， 就 可 能 导致 查询 语言 给 出 “错误 的 ”回答 。 请 设计 一 种 方式 纠正 这 个 问题 。 一 
种 想法 是 以 某 种 “ 延 时 ”方式 执行 过 滤 ， 让 这 些 框架 为 过 滤器 附加 一 个 “人 允诺 ， 只 有 在 框 染 
里 的 变量 约束 足够 多 ， 使 这 一 操作 能 正常 完成 时 才 去 执行 它 。 我 们 可 以 等 到 所 有 其 他 操作 都 
执行 完 之 后 才 去 执行 过 滤 。 然 而 ， 由 于 效率 的 原因 ， 我 们 还 是 希望 尽 可 能 早 地 做 过 滤 ， 以 减 
少 所 生成 出 的 中 间 框 架 的 数量 。 | 

练习 4.78 ”重新 将 这 一 查询 语言 的 实现 设计 为 一 个 非 确定 性 程序 〈 而 不 是 作为 一 个 流 过 
程 ) ， 利 用 4.3 节 的 求 值 器 实现 它 。 按 照 这 种 方式 ， 每 个 查询 将 产生 出 一 个 回答 (而 不 是 所 有 
回答 的 一 个 流 )， 但 可 以 通过 输入 try-again 得 到 更 多 的 回答 。 你 将 会 发 现 ， 我 们 在 这 一 节 
里 构造 出 来 的 大 部 分 机 制 都 已 经 被 非 确定 性 搜索 和 回调 所 概括 了 。 当 然 ， 你 可 能 还 会 发 现 ， 
从 行为 上 看 ， 这 一 新 查询 语言 与 本 节 给 出 的 语言 有 一 些微 妙 的 差异 。 你 能 找 出 一 些 说 明 这 种 
差异 的 例子 吗 ? 

练习 4.79 ”在 4.1 节 实现 Lisp 求 值 器 时 ， 我 们 曾经 看 到 如 何 通过 使 用 内 部 环境 来 避免 过 程 
参数 之 间 的 名 字 溃 突 。 例 如 ， 在 求 值 下 面 表 达 式 时 : 

(define (square x) 

(* x X)) 
(define (sum-of-squares x y) 
(+ (square x) (square y))) 

(sum-of-squares 3 4) 7 
在 square 的 x 与 sum-of-squares 的 x 之 间 根 本 不 会 产生 混乱 ， 因 为 对 各 个 过 程 体 的 求 值 都 
是 在 某 个 特别 构造 的 ， 包 含 了 局 部 变量 的 环境 里 进行 的 。 在 上 述 查 询 系统 里 ， 我 们 为 避免 在 
过 程 应 用 中 的 名 字 冲 突 ， 采 用 的 是 另 一 种 方式 。 每 次 应 用 一 条 规则 之 前 ， 我 们 都 将 其 中 的 变 
量 重新 命名 ， 并 保证 这 些 名 字 都 是 唯一 的 。 要 想 在 Lisp 求 值 器 里 采用 这 一 策略 ， 也 可 以 不 用 
局 部 环境 ， 而 是 在 每 次 应 用 一 个 过 程 时 重新 命名 过 程 体 里 的 所 有 变量 。 

请 为 查询 语言 实现 另 一 种 规则 应 用 方式 ， 在 其 中 使 用 局 部 环境 而 不 是 重新 命名 。 看 看 你 
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是 否 能 够 基于 自己 创建 的 环境 结构 ， 为 查询 语言 构造 起 一 些 机 构 ， 使 之 能 处 理 很 大 的 系统 ， 
例如 类 似 于 块 结构 过 程 的 规则 。 你 能 将 这 一 结构 中 的 一 些 东 西 与 在 一 个 上 下 文 里 做 推导 的 问 


题 (例如 , “如 果 假 定 了 P 真 ， 我 就 能 推导 出 4 和 B。”) 联系 起 来 ， 做 成 一 个 问题 求解 方法 吗 ? 
(这 个 问题 是 永 无 止境 的 ， 一 个 好 回答 也 许可 以 当 博 士 。) 





第 5 章 寄存 器 机 器 里 的 计算 


我 的 目的 是 想 说 明 ， 这 一 天 空 机 器 并 不 是 一 种 天 赐 造 物 或 者 生命 体 ， 它 只 不 过 
是 钟表 一 类 的 机 械 装置 ( 而 那些 相信 钟表 有 灵 瑰 的 人 却 和 将 这 一 工作 说 成 是 其 创造 者 
S588 HE), EIR ARAL, 这 里 多 种 多 样 的 运动 都 是 由 最 简单 的 物质 力量 产生 的 ， 就 
像 钟 表 里 所 有 活动 都 是 由 一 个 发 条 产生 的 一 样 。 


一 一 约翰 尼斯 . 开 普 勒 (给 Herwart von Hohenburg 的 信 ，1605 ) 


本 书 从 研究 计算 过 程 ， 并 用 Lisp 写 出 的 过 程 描述 它们 开始 。 为 了 解释 这 些 过 程 的 意义 ， 
我 们 提出 了 一 系列 的 求 值 模型 : 第 1 章 的 代 换 模型 ， 第 3 章 的 环境 模型 ， 以 及 第 4 章 的 元 循环 模 
型 。 我 们 特别 仔细 地 考察 这 个 元 循环 模型 ， 就 是 为 了 尽 可 能 地 揭 开 有 关 类 Lisp 语 言 的 程序 如 
何 解释 的 神秘 面纱 。 但 是 ， 即 使 是 这 个 元 循环 解释 器 ， 也 还 遗留 下 一 些 没有 回答 的 问题 ， 因 
为 它 无 法 阐释 Lisp 系统 里 的 控制 机 制 。 举 例 来 说 ， 这 个 求 值 器 不 能 解释 子 表 达 式 的 求 值 怎样 
返回 一 个 值 ， 以 便 送 给 使 用 这 个 值 的 表达 式 ， 该 求 值 器 也 无 法 解释 为 什么 有 些 递 归 过 程 能 产 
生 迭 代 型 的 计算 过 程 (也 就 是 说 ， 只 需要 常量 空间 就 可 以 求 值 )， 而 另 一 些 递 归 过 程 却 生成 递 
归 型 的 计算 。 无 法 回答 这 些 问题 的 原因 在 于 ， 元 循环 求 值 器 本 身 也 是 一 个 Lisp 程 序 ， 并 因此 
继承 了 基础 Lisp 系 统 的 控制 结构 。 为 了 提供 有 关 Lisp 求 值 器 的 控制 结构 的 一 个 更 完整 的 描述 ， 
我 们 就 必须 转 到 一 个 比 Lisp 本 身 更 基本 的 层次 上 去 工作 。 

在 这 一 章 里 ， 我 们 将 基于 传统 计算 机 的 一 步 一 步 操作 ， 横 述 一 些 计 算 过 程 。 这 类 计算 机 
也 称 为 寄存 器 机 器 ， 它 们 能 顺序 地 执行 一 些 指令 ， 对 一 组 固定 称 为 寄存 器 的 存储 单元 的 内 容 
完成 各 种 操作 。 寄 存 器 机 器 的 一 条 典型 指令 将 一 种 基本 操作 作用 于 茶几 个 寄存 器 的 内 容 ， 并 
将 作用 的 结果 赋 给 另 一 个 寄存 器 。 我 们 对 寄存 器 机 器 执行 的 计算 过 程 的 描述 ， 看 起 来 很 像 传 
统计 算 机 的 “机 器 语言 ”程序 。 当 然 ， 我 们 在 这 里 不 打算 关注 任何 特定 计算 机 的 机 器 语言 ， 
而 是 要 考察 若干 Lisp 过 程 ， 并 为 执行 每 个 过 程 设计 一 部 特殊 的 寄存 器 机 器 。 这 样 ， 我 们 可 以 
把 自己 的 工作 看 成 是 硬件 结构 设计 师 ， 而 不 是 机 器 语言 的 计算 机 程序 员 。 在 这 些 寄存 器 机 器 
的 设计 中 ， 我 们 要 开发 出 一 些 机 制 ， 以 实现 各 种 重要 的 程序 设计 结构 ， 例 如 递归 。 我 们 还 要 
给 出 一 种 能 够 用 于 描述 寄存 器 机 器 设计 的 语言 。 在 5.2 节 里 ， 我 们 将 要 实现 一 个 Lisp 程 序 ， 它 
能 够 使 用 这 样 的 描述 去 模拟 我 们 所 设计 的 机 器 。 

我 们 的 寄存 器 机 器 的 大 部 分 基本 操作 都 非常 简单 。 例 如 ， 有 一 个 操作 从 两 个 寄存 器 里 取 
出 值 后 相 加 ， 产 生 结 果 后 存 人 第 三 个 寄存 器 。 这 样 一 个 操作 可 以 由 很 容易 描述 的 硬件 来 执行 。 
为 了 处 理 表 结构 ， 我 们 当然 还 要 使 用 存储 器 操作 car 、cdr 和 cons ， 它 们 要 求 更 精细 的 存储 
分 配 机 制 。 我 们 将 在 5.3 节 里 研究 如 何 基 于 更 基本 的 操作 实现 它们 。 

在 已 经 积累 了 许多 将 简单 过 程 构造 为 寄存 器 机 器 的 经 验 之 后 ， 我 们 将 在 5.4 节 里 设计 一 部 
机 器 ， 它 能 够 执行 由 4.1 节 里 的 元 循环 求 值 器 描述 的 算法 。 这 一 工作 将 填补 起 我 们 对 于 如 何 解 
释 Scheme 表达 式 的 理解 中 的 缺陷 ， 为 求 值 器 里 的 控制 机 制 提供 一 个 显 式 模 型 SSH, R 
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们 将 研究 一 个 简单 的 编译 器 ， 它 能 将 Scheme 程序 翻译 为 指令 的 序列 ， 这 种 序列 可 以 直接 通过 
上 述 的 求 值 器 寄存 器 机 器 的 寄存 器 和 操作 去 执行 。 


5.1 寄存 器 机 器 的 设计 


要 设计 一 部 寄存 器 机 器 ， 我 们 必须 设计 好 它 的 数据 通路 《寄存 器 和 操作 ) 和 控制 A, 1% 
控制 器 实现 操作 的 顺序 执行 。 为 了 展示 一 部 简单 寄存 器 机 器 的 设计 过 程 ， 让 我 们 考察 欧 几 里 
得 算法 ， 它 用 于 计算 两 个 整数 的 最 大 公约 数 (GCD )。 正 如 我 们 在 1.2.5 节 已 经 看 到 过 的 ， 欧 几 
里 得 算法 可 以 通过 一 个 迭代 计算 过 程 执行 ， 由 下 面 的 过 程 描述 ， 

(define (gcd a b) 

(if (= b 0) 
(gcd b (remainder a b)))) 


如 果 一 部 机 器 要 执行 这 一 算法 ， 它 就 必须 维持 好 两 个 数 4< 和 4b 的 变动 轨迹 ， 所 以 ， 让 我 们 
假定 这 两 个 数 被 保存 在 名 字 与 它们 相同 的 两 个 寄存 器 里 。 所 需要 的 基本 操作 包括 检查 寄存 器 b 
的 内 容 是 否 为 9， 计算 寄存 器 a 的 内 容 除 以 寄存 器 b 的 内 容 得 到 的 余数 。 余 数 操作 是 一 个 复杂 的 
计算 过 程 ， 但 现在 暂时 假定 我 们 有 一 个 能 计算 余数 的 基本 设备 。 在 这 个 GCD 算 法 的 每 次 循环 
里 ,寄存器 a 的 内 容 都 必须 用 寄存 器 b 的 内 容 取 代 ， 而 b 的 内 容 必 须 代 以 原来 a 的 内 容 除 以 原来 
b 的 内 容 的 余数 。 如 果 这 些 操作 能 在 同一 个 时 间 完 成 ， 事 情 就 会 方便 得 多 。 但 是 在 我 们 的 寄存 
器 机 器 模型 里 ， 假 定 每 一 步 中 只 能 给 一 个 寄存 器 赋 新 值 。 为 了 完成 上 述 代 换 ， 我 们 的 机 器 里 
要 使 用 第 三 个 “临时 性 的 ”寄存 器 ， 称 为 t。 (首先 将 余数 放 在 寄存 器 t ， 而 后 将 b 的 内 容 存 人 
a 中 ， 最 后 再 把 保存 在 t 里 的 余数 存 人 b 中 。) i 

我 们 可 以 用 数据 通路 图 来 展示 这 个 机 器 中 所 需 的 寄存 器 和 各 种 操作 ， 如 图 5-1 所 示 。 在 这 
个 图 里 ， 寄 存 器 (a, bait) 用 和 矩形 表示 ， 给 某 个 寄存 器 赋值 的 一 种 方式 用 一 个 第 头 表 示 ， 
箭头 的 后 面 画 着 一 个 x， 从 数 源 指向 被 赋值 的 寄存 器 。 我 们 可 以 将 这 里 的 X 看 作 一 个 按钮 ， 在 
按压 它 的 时 候 ， 就 会 多 许 这 个 值 从 数据 源 “ 流 向 ”指定 的 寄存 器 。 位 于 按钮 旁边 的 名 字 用 于 
表示 相应 的 按钮 。 这 些 名 字 可 以 任意 取 ， 因 此 最 好 选用 助 记 的 名 字 ( 例 如， 用 a<-b 表 示 按 压 
这 一 按钮 将 把 寄存 器 b 的 内 容 赋 值 给 寄存 器 a ) 。 一 个 寄存 器 的 数据 源 可 以 是 另 一 个 寄存 器 . (就 
像 赋值 a<-b 的 情况 ) ， 或 者 是 一 个 操作 的 结果 (如 赋值 t<~r 的 情况 )， 或 者 是 一 个 常数 (一 
个 不 允许 改变 的 内 置 的 值 ， 在 数据 通路 图 上 用 一 个 三 角形 表示 ， 其 中 包含 着 这 个 常数 )。 

在 数据 通路 图 里 ， 从 常数 或 者 寄存 器 内 容 出 发 计算 出 一 个 值 的 操作 用 一 个 梯形 框 表 示 ， 
其 中 写 着 有 关 操 作 的 名 字 。 例 如 ， 在 图 5-1 里 用 rem 标 记 的 梯形 框 表示 一 -个 计算 余数 的 操作 ， 
它 针 对 寄存 器 a 和 b 的 内 容 做 计算 ， 因 为 它们 都 连接 在 这 个 操作 框 上 。 有 箭头 (上面 没有 按钮 
的 ) 从 操作 的 输入 寄存 器 和 常量 指向 操作 框 ， 还 有 箭头 从 操作 的 输出 连接 到 寄存 器 。 检 测 用 
一 个 圆圈 表示 ， 其 中 写 着 检测 的 名 字 。 例 如 ， 在 这 一 GCD 机 器 里 有 一 个 检测 操作 ， 它 检测 寄 
存 器 b 的 内 容 是 否 为 0。 一 个 检测 同样 也 有 从 其 输入 寄存 器 和 常量 来 的 箭头 ， 但 没有 输出 箭头 ， 
检测 的 结果 值 将 由 控制 器 使 用 ， 并 不 用 于 数据 通路 。 从 整体 上 看 ， 数 据 通 路 图 表示 了 一 部 机 
器 里 所 需要 的 寄存 器 和 操作 ， 以 及 它们 之 间 的 数据 连接 。 如 果 我 们 将 箭头 看 作 连 线 ， 将 X 按 钮 
看 作 开 关 ， 这 种 数据 通路 图 很 像 是 一 部 机 器 的 线路 图 ， 就 像 这 部 机 器 可 以 用 电子 元 件 构造 出 
来 似 的 。 | | | 
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图 3-1 一 部 iCD 机 器 的 数据 通路 


为 了 使 这 一 数据 通路 本 能 够 实现 GCD 的 计算 ， 其 中 的 按钮 就 必须 按照 正确 的 顺序 按 动 。 
我 们 用 一 个 控制 器 图 描述 这 种 上 顺序， 如 图 5$-2 所 示 。 控 制 器 图 里 的 元 素描 述 的 是 数据 通路 图 里 
的 部 件 应 该 如 何 操作 。 在 控制 器 图 里 的 矩形 表示 的 是 数据 通路 按钮 的 按压 动作 ， 其 中 的 箭头 
表示 从 一 个 步骤 到 下 一 步骤 的 顺序 。 在 这 一 图 形 里 的 菱形 表示 一 次 决策 ， 随 后 有 两 个 可 以 走 
的 箭头 ， 有 具体 走 哪 一 个 要 看 葵 形 里 标明 的 数据 通路 所 检测 的 值 。 我 们 可 以 用 一 种 物理 类 比 来 
解释 这 个 控制 器 : 将 这 个 图 看 作 一 个 迷宫 ， 其 中 有 一 个 在 里 面 深 的 弹子 。 当 弹子 滚 到 一 个 盒 
T GÆ) 里 的 时 候 ， 就 会 按压 在 这 里 盒子 里 标明 的 数据 通路 按钮 ， 当 弹子 滚 到 一 个 决策 结 
点 时 (例如 这 里 对 b =0 的 检测 )， 它 究竟 从 哪 条 路 线 离 开 将 由 指定 检测 的 结 采 确定 。 绿 合 在 一 
起 ， 这 里 的 数据 通路 和 控制 器 完全 描述 了 一 部 计算 GCD 的 机 器 。 在 寄存 器 a 和 b 里 安放 了 适当 
的 值 之 后 ， 控 制 器 的 启动 (弹子 的 滚动 ) 从 标明 start 的 位 置 开 始 。 当 控制 器 达到 done 了 时 ， 
就 会 看 到 在 寄存 器 a 里 的 GCD 值 .。 





图 5-2 一 部 GCD 机 器 所 用 的 控制 絮 





M6 SH 字 闪 器 机 器 里 的 计算 


练习 5.1 ”请 设计 一 部 寄存 器 机 器 ， 采 用 由 下 面 过 程 所 描述 的 迭代 算法 计算 阶乘 。 请 画 出 
这 一 机 器 的 数据 通路 图 和 控制 器 图 。 
(define (factorial n) 
(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 
(iter 1 1)) 


5.1.1 一 种 描述 寄存 器 机 器 的 语言 


数据 通路 图 和 控制 器 图 很 适合 描述 像 GCD 这 样 的 简单 机 器 ， 但 如 果 用 于 描述 大 型 机 器 ， 
例如 Lisp 的 解释 器 ， 这 些 图 就 会 变 得 非常 策 拙 不 便 了 。 为 了 能 够 处 理 复 杂 的 机 器 ， 我 们 将 创 
造 一 种 语言 ， 它 能 以 正文 的 形式 表现 出 由 数据 通路 图 和 控制 器 图 所 给 出 的 所 有 信息 。 我 们 将 
从 一 种 直接 模仿 这 些 图 示 的 记 法 形式 开始 。 

在 定义 一 部 机 器 的 数据 通路 图 时 ， 我 们 需要 描述 其 中 的 寄存 器 和 各 种 操作 。 为 了 描述 一 
个 寄存 器 ， 我 们 需要 给 它 取 一 个 名 字 ， 并 描述 那些 给 它 赋值 的 按钮 。 这 里 又 需要 给 出 每 个 按 
钮 的 名 字 ， 并 描述 在 这 些 按钮 的 控制 之 下 进入 寄存 器 的 数据 源 (这 种 数据 源 是 一 个 寄存 器 ， 
或 一 个 常量 ,或 一 个 操作 )。 为 了 描述 一 个 操作 ， 我 们 也 需要 给 它 一 个 名 字 ， 并 描述 好 它 的 输 
入 (寄存 器 或 者 常量 )。 

我 们 将 一 部 机 器 的 控制 器 定义 为 一 个 指令 序列 ， 另 外 再 加 上 一 些 标 号 ， 它 们 标明 了 序列 
中 的 一 些 入 口 点 。 一 条 指令 可 以 是 下 面 几 种 东西 之 一 : | 

。 数据 通路 图 中 的 一 个 按钮 ， 按压 它 将 使 一 个 值 被 冉 给 一 个 寄存 器 。( 这 对 应 于 控制 器 图 

里 的 一 个 矩形 框 。) 

“七 est 指 令 ， 执 行 相 应 的 检测 。 

。 有 条 件 地 转移 到 某 个 由 控制 器 标号 指明 的 位 置 的 分 支 指令 (branch 指 令 )， 它 基于 前 面 

检测 的 结果 (检测 和 分 支 一 起 对 应 于 控制 器 图 里 的 菱形 ) 。 如 果 检 测 为 假 ， 控 制 器 将 继 

续 序 列 中 的 下 一 条 指令 ， 否 则 控制 器 就 将 继续 去 做 指定 标号 之 后 的 下 一 条 指令 

。 无条件 分 支 指 令 (9oto 指 令 ) 指明 继续 执行 的 控制 器 标号 。 

机 器 将 从 控制 器 指令 序列 的 开始 处 启动 ， 直 到 执行 达到 序列 末尾 时 停止 。 这 些 指 令 总 按照 它 
们 列 出 的 顺序 执行 ， 除 非 遇 到 分 支 指令 改变 控制 流 。 

图 5-3 显 示 了 用 这 种 方式 描述 的 GCD 机 器 。 这 一 实例 只 是 为 了 说 明了 这 种 表示 方式 的 通用 
性 ， 因 为 GCD 机 器 是 一 个 非常 简单 的 实例 ， 其 中 的 每 个 寄存 器 只 有 一 个 按钮 ， 每 个 按钮 和 检 
测 都 只 在 控制 器 里 使 用 了 一 次 。 

不 幸 的 是 ， 这 种 描述 很 难 阅 读 。 为 了 理解 控制 器 里 的 指令 ， 我 们 必须 时 常 去 参照 查看 按 
钮 的 名 字 和 操作 的 名 字 ， 为 了 理解 一 个 按钮 究竟 做 了 什么 事情 ， 我 们 又 必须 参照 查看 操作 名 
字 的 定义 。 为 此 我 们 希望 改变 这 种 记 法 形式 ， 把 来 自 数据 通路 图 和 控制 器 图 的 描述 组 合 到 一 
起 ， 使 我 们 能 在 一 起 观看 它们 。 

为 了 得 到 这 种 描述 形式 ， 我 们 将 用 按钮 和 操作 的 行 了 为 定义 代替 为 它们 任意 取 的 名 字 。 也 
就 是 说 ， 不 采用 在 一 个 地 方 (在 控制 器 里 ) 说 “按压 按钮 t<-r”， 并 在 另 一 个 地 方 ( 在 数据 
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通路 图 里 ) 说 “按压 t<-r 将 把 操作 rem 的 值 赋 给 寄存 器 t” 以 及 “操作 rem 的 输入 是 寄存 器 a 
和 b 的 内 容 ” 的 方式 ， 以 后 将 (在 控制 器 里 ) 直接 说 :“ 按 压 那个 按钮 ， 将 操作 rem 对 寄存 器 a 
和 b 的 内 容 算 出 的 值 赋 给 寄存 器 t”。 与 此 类 似 , 不 是 (在 控制 器 里 ) 说 “执行 = 检测 ”并 另外 
(在 数据 通路 里 ) 说 “这 个 = 检测 是 对 寄存 器 b 的 内 容 和 常量 0 操作 ”， 而 将 说 “对 于 寄存 器 b 
的 内 容 和 常量 0 做 = 检测 。” 我 们 将 忽略 掉 数 据 通 路 描述 ， 只 留 下 控制 器 序列 。 这 样 ，GCD 机 
器 就 可 以 搬 述 为 下 面 的 形式 : 
(controller 
test-b 
(test (op =) (reg b} (const 0)) 
(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t}) 
(goto (label test-b)) 
gcd-done) 


({data-paths 
(registers 
({name a) 
(buttons ((name a<-b) (source (register b))))) 
( {name b) 
(buttons ((name b<-t) (source (register t))))) 
((name t) 
(buttons ((name t<-r) (source (operation rem)))))) 


(operations 
((name rem) 
(inputs (register a) (register b))) 
{( (name =) 
(inputs (register b) (constant 0))))) 


(controller 

test-b ; label 
(test =) ; test 
(branch (label gcd-done) ) ; conditional branch 
(t<-r) ; button push 


(a<-b) ; button push 


(b<-t) ; button push 
(goto (label test-b)) : unconditional branch 
gcd-done) ; label 





图 3-3 一 部 CD 机 器 的 规范 描述 


与 图 5-3 给 出 的 形式 相 比 ， 现 在 这 种 描述 形式 更 容易 阅读 ， 但 它 也 还 有 一 些 缺 点 : 

* 对 于 大 型 机 器 而 言 ， 这 种 描述 太 罗 嗪 ， 因 为 只 要 控制 器 指令 序列 中 多 次 提 到 某 个 数据 通 
路 元 素 ， 该 元 件 的 完整 描述 就 会 反复 地 出 现 ( 在 GCD 实 例 里 并 没有 出 现 这 一 问题 ， 因 为 
在 这 里 ， 每 个 操作 和 按钮 都 只 出 现 了 一 次 ) 。 进 一 步 说 ,重复 出 现 的 数据 通路 描述 将 使 
机 器 中 的 实际 数据 通路 结构 变 得 模糊 不 清 , 对 于 大 型 的 机 器 而 言 ， BURA SDSS ae 
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操作 和 按钮 ， 它 们 之 间 如 何 连接 的 情况 都 将 更 难看 清楚 。 

。 因 为 机 器 定义 中 的 控制 器 指令 看 起 来 像 Lisp 的 表达 式 ， 因 此 就 使 人 很 容易 忘记 它们 并 不 

是 任意 的 Lisp 表 达 式 ， 只 能 表示 合法 的 机 器 指令 。 举 例 来 说 ， 这 里 的 操作 只 能 直接 对 党 

量 和 寄存 器 的 内 容 去 做 ， 不 能 作用 于 其 他 操作 的 结果 。 
虽然 存在 这 些 缺 点 ， 在 这 一 章 里 我 们 还 是 准备 始终 采用 这 一 寄存 器 机 器 语言 ， 因 为 下 面 将 更 
加 关注 对 于 控制 器 的 理解 ， 而 较 少 注意 数据 通路 里 的 元 素 和 连接 。 当 然 ， 我 们 还 是 应 该 记 住 ， 
对 于 设计 实际 机 器 而 言 ， 数 据 通路 的 设计 是 至 关 重要 的 。 

练习 5.2 请 用 这 里 的 寄存 器 机 器 语言 描述 练习 5.1 的 迭代 型 阶乘 机 器 。 

动作 

我 们 现在 要 修改 上 述 GCD 机 器 ， 以 便 能 把 想 求 GCD 的 数 输入 给 它 ， 并 使 它 能 把 结果 从 终 
端 打印 出 来 。 我 们 并 不 想 讨 论 如 何 使 机 器 能 够 读 入 和 打印 ， 而 是 假定 这 些 都 可 以 作为 基本 操 
作 使 用 (就 像 我 们 在 Scheme 里 需要 时 就 直接 用 read 和 display 一 样 ) "$, 

read 就 像 我 们 已 经 在 用 的 那些 操作 ， 它 产生 出 一 个 可 以 保存 到 寄存 器 里 的 值 。 但 是 
read 并 不 从 任何 寄存 器 取得 输入 ， 它 所 产生 的 值 依 赖 于 某 些 情况 ， 而 这 些 情 况 发 生 在 我 们 所 
设计 的 机 器 的 组 成 部 分 之 外 。 我 们 允许 机 器 的 一 些 操作 具有 这 种 行为 方式 ， 并 据 此 画 出 或 者 
说 明 read 的 使 用 ， 就 像 所 用 的 是 一 个 能 计算 出 值 的 操作 一 样 。 

在 另 一 方面 ，print 与 我 们 已 经 使 用 的 任何 操作 都 有 本 质 性 的 不 同 : 它 并 不 产生 任何 可 
以 存 入 寄存 器 的 输出 值 。 虽 然 print 会 产生 一 种 效果 ， 但 这 种 效果 却 不 是 我 们 所 设计 的 机 器 
的 一 部 分 。 下 面 把 这 类 操作 称 为 动作 。 在 数据 通路 图 上 ， 动 作 的 表示 形式 就 像 是 一 个 能 产生 
值 的 操作 -用 一 个 梯形 ， 其 中 包含 着 这 个 动作 的 名 字 。 应 该 有 来 自 输入 (寄存 器 或 者 常量 ) 

的 箭头 指向 动作 框 ， 我 们 也 为 这 些 动作 关联 一 个 按钮 ,按压 这 个 按钮 将 导致 该 动作 的 出 现 。 
为 了 使 控制 器 可 以 按压 动作 的 按钮 ， 在 这 里 增加 一 种 新 的 称 为 perform 的 指令 。 这 样 ， 在 控 
制 器 序列 里 ， 打 印 寄 存 器 a 的 内 容 的 动作 用 下 面 指令 表示 : 

(perform (op print) (reg 4)) 

图 5-4 显 示 的 是 新 的 GCD 机 器 的 数据 通路 和 控制 器 。 这 里 我 们 没有 让 这 一 机 器 打印 结果 后 
就 停止 ， 而 是 让 它 重 新 开始 ， 因 此 这 部 机 器 将 反复 地 读 入 一 对 数 ， 计 算 它 们 的 GCD 并 打印 出 
结果 。 这 种 结构 很 像 我 们 在 第 4 章 讲 的 解释 器 里 用 的 驱动 循环 。 


5.1.2 机 器 设计 的 抽象 


我 们 经 常 需要 定义 一 部 包括 着 某 些 “基本 ”操作 的 机 器 ， 这 些 操作 本 身 实 际 上 也 非常 复 
Ju 举例 说 ， 在 5.4 和 5.5 节 里 ， 我 们 将 要 把 Scheme 的 环境 操作 当 作 基本 操作 。 这 种 抽象 非 党 
有 价值 ， 因 为 它 使 我 们 能 忽略 机 器 中 一 些 部 分 的 细节 ， 将 注意 力 集中 到 有 关 设计 的 其 他 方面 。 
当然 ， 我 们 能 够 将 大 量 复杂 事务 隐藏 起 来 ， 这 并 不 意味 着 该 机 器 的 设计 是 不 实际 的 。 因 为 我 
们 总 能 用 一 些 更 简单 的 基 本 操作 来 取代 这 些 复杂 s 的 “基本 操作 。 

考虑 上 面 的 GCD 机 器 ， 在 这 一 机 器 里 有 一 条 指令 ， 它 计 算 寄存 器 a 和 b 的 内 容 的 余数 ， 并 
将 结果 赋值 给 寄存 伍 t。 如 果 我 们 希望 在 构造 这 一 GCD 机 器 时 不 用 这 种 余数 基本 操作 ， 那么 就 


26 这 一 假设 掩盖 了 很 多 复杂 问题 。 通 常 在 Lisp 系 统 的 实现 里 ， 大 部 分 工作 就 是 完成 读 和 信和 打 印 的 工作 。 





必须 描述 清楚 如 何 利用 更 简单 的 操作 计算 出 余数 来 ， 例 如 采用 减法 。 我 们 确实 能 写 出 下 面 的 
能 够 找 出 余数 的 Scheme 过 程 : 


(define (remainder n d) 
(if (< n d) 
n 
(remainder (- n d) d})) 


(controller 

gcd-loop 
(assign a (op read)) 
(assign b (op read)) 

test-b 
(test (op =) (reg b) (const 0)) 
(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label test-b)) 

gcd-done 


(perform (op print) (reg al)) 
(goto (label gcd-loop))) 





图 5-4 ”一 部 读 输 入 并 打印 结果 的 CD 机 天 
这 样 ， 我 们 就 可 以 用 一 个 减法 操作 和 一 个 比较 检测 ， 去 代替 GCD 机 器 的 数据 通路 里 的 余数 操 
作 。 图 5-5 显 示 了 这 一 细 化 后 的 机 器 的 数据 通路 和 控制 器 。 原 GCD 控 制 幽 定义 里 的 指令 : 
(assign t (op rem) (reg a) (reg b)) -_ 
现在 被 一 个 包含 循环 的 指令 序列 取代 了 ， 如 图 5-6 所 示 。 
练习 5.3 ”请 设计 一 部 机 器 ， 采 用 牛顿 法 计算 平方 根 ， 如 1.1.7 节 所 描述 的 : 





(define (sqrt x) 
(define (good-enough? guess) 
(< (abs (- (Square guess) x)) 0.001)) 
(define (improve guess) 
(average guess (/ x guess))) 
(define (sqrt-iter guess) 
(if (good-enough? guess) 
guess 
(sqrt-iter (improve guess)))) 
(sqrt-iter 1.0)) 





start 





图 $-5 细 化 后 的 GCD 机 器 的 数据 通路 和 控制 器 


在 开始 时 ， 请 假设 good-enough? 和 ;improve 都 是 可 用 的 基本 操作 。 Caen ecm ne 
操作 展开 它们 。 请 描述 这 些 sqrt 机 器 的 设计 ， 画 出 它们 数据 通路 图 ， 并 用 寄存 器 机 器 


出 控制 器 的 定义 。 
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(controller 

test-b 
(test (op =) (reg b) (const 0)) 
(branch (label gcd-done ) 
(assign t (reg a)) 

rem-loop 
(test (op <) (reg t) (reg b)) 
(branch (label rem-done) ) 
(assign t (op -) (reg t) (reg b)) 
(goto (label rem-loop)) 

rem-done 
(assign a (reg b)) 


(assign b (reg t)) 
(goto (label test-b) ) 
gcd-done) 





图 5-6 针对 图 5-5 中 GCD 机 器 的 控制 器 指令 序列 


5.1.3 FEF 


在 设计 一 部 执行 某 种 计算 的 机 器 时 ， 我 们 常常 更 希望 能 对 其 中 的 一 些 部 件 做 出 一 些 安 
排 ， 使 计算 中 某 些 不 同 的 部 分 可 以 共享 这 些 部 件 ， 而 不 是 重复 描述 这 些 部 件 。 现 在 考虑 一 
部 包含 着 两 个 GCD 计 算 的 机 器 ， 一 个 找 出 寄存 器 a 和 b 的 内 容 的 GCD ， 另 一 个 找 出 寄存 器 c 
和 dd 的 内 容 的 GCD。 在 开始 时 ， 我 们 可 以 假定 已 经 有 了 一 个 gcd 基 本 操作 ， 而 后 再 基于 更 基 
本 的 操作 展开 gcad 的 这 两 个 实例 。 图 5-7 中 只 显示 了 结果 机 器 的 数据 通路 里 与 GCD 有 关 的 部 
分 ， 没 有 显示 它们 与 机 器 中 其 他 部 分 的 连接 。 这 个 图 里 还 显示 了 这 一 机 器 的 控制 器 序列 里 
的 相应 部 分 。 

在 这 一 机 器 里 有 两 个 余数 操作 框 和 两 个 检测 相等 的 框 。 如 果 重 复出 现 的 部 件 比 较 复 杂 ， 

就 像 这 里 的 余数 框 ， 这 样 做 就 不 是 构造 这 一 机 器 的 最 经 济 方式 了 。 我 们 希望 能 用 同一 个 部 件 
完成 这 两 个 GCD 计 算 ， 以 避免 数据 通路 部 件 的 重复 出 现 ， 条 件 是 这 样 做 时 不 会 影响 更 大 的 机 
器 计算 里 的 其 他 部 分 。 如 果 在 控制 器 到 达 9cd-2 的 时 候 ， 寄存 器 a 和 b 里 的 值 已 经 不 再 需要 了 
(或 者 ， 如 果 为 了 保证 安全 , 已 经 将 这 些 值 搬 到 了 其 他 寄存 器 )， 我 们 就 可 以 修改 这 部 机 器 ， 
使 它 在 计算 第 二 个 GCD 时 也 使 用 寄存 器 a 和 b ， 而 不 用 寄存 器 c 和 qd， 就 像 在 第 一 次 计算 GCD 时 
那样 。 如 果 这 样 做 ， 我 们 就 会 得 到 如 图 5-8 所 示 的 控制 器 序列 。 
”这 样 我 们 就 除去 了 重复 的 数据 通路 部 件 (因此 数据 通路 又 变 回 到 图 5-1 的 样子 )， 但 是 在 
控制 器 里 还 是 有 两 个 有 关 GCD 的 序列 ， 它 们 之 间 的 差异 仅仅 在 于 入 口 标号 不 同 。 如 果 能 将 这 
样 的 两 个 序列 代 换 为 到 同一 个 序列 (一 个 gcd 子 程序 ) 的 不 同 分 支 ， 并 能 在 该 序列 最 后 重新 
通过 分 支 ， 回 到 主流 指令 序列 中 正确 的 位 置 ， 那 当然 就 更 好 了 。 我 们 可 以 通过 如 下 方式 完成 
这 一 工作 ;在 分 支 进 入 gcd 之 前 ,首先 在 特定 的 寄存 器 continue 里 存 和 一 个 区 分 值 ( 例 如 0 
或 者 1) ， 在 gcd 子 程序 结束 时 ,让 计算 根据 寄存 器 continue 里 的 值 决定 是 回 到 after- 
gcd-1 还 是 after-gcd-2。 图 5-9 显 示 了 这 样 做 之 后 的 控制 器 序列 里 的 相关 部 分 ， 其 中 只 包 
含 了 gcd 指 令 的 一 个 副本 ，。 








gcd-1 
(test (op =) (reg b} (const 0)) 
(branch (label after-gcd-1)) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd-1)) 

after-gcd-1 


gcd-2 
(test (op =) (reg d) (const 0)) 
(branch (label after-gcd-2) ) 
(assign s (op rem) (reg c) (reg d)) 
(assign c (reg d)) 
dassign d (reg s)) 
(goto (label gcd-2)) 
after-gcd-2 


图 5-7 ”一 部 完成 两 次 GCD 计 算 的 机 器 的 数据 道路 和 控制 器 的 一 部 分 


gcd-1 | 
(test (op =) (reg b) (const 0)) 
(branch (label after-gcd-1) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg B))° 
(assign b (reg t)) 
(goto (label gcd-1)) 

after-gcd-1 


gcd-2 
{test (op =) (reg b) (const 0)) 
(branch (label after-gced-2) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd-2)) 

after-gcd-2 


图 $-8 在 一 部 机 器 中 为 两 个 不 同 GCD 计 算 使 用 了 同样 的 
数据 通路 部 件 ， 这 里 是 它 的 控制 器 序列 的 一 部 分 
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ged 
{test {op =) (reg b) (const 0)) 
(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
{goto (label gcd)) 

gcd-done 
{test (op =) (reg continue) (const 0)) 
(branch (label after-gcd-1)) 
(goto (label after-gcd-2)) 


;; Before branching to gcd from the first place where 
z itis needed, we place 0 in the continue register 
(assign continue (const 0)) 
(goto {label gcd)) 


after-gcd-1 


;; Before the second use of gcd, we place | in the continue register 
{assign continue (const 1)) 
(goto (label gcd)) 

after-gced-2 





图 5-9 采用 一 个 continue 寄 存 器 ， 避 免 像 图 5-8 那 样 重复 的 控制 器 序列 


在 处 理 很 小 的 问题 时 ， 这 是 一 种 合理 的 方法 ， 但 如 果 在 控制 器 序列 里 出 现 了 许多 GCD 计 
算 的 实例 ， 事 情 就 会 变 得 很 难 弄 了 。 为 了 在 gcd 子 程序 完成 之 后 确定 转 到 哪里 继续 执行 ， 我 
们 就 需要 为 在 控制 器 里 所 有 使 用 gcd 的 地 方 加 上 做 检测 的 数据 通路 和 分 支 指令 。 实 现 子 程序 
的 另 一 种 更 有 力 的 方法 ， 是 在 寄存 器 continue 里 保存 控制 器 序列 里 一 个 人 口 点 的 标号 ， 用 
这 个 标号 指明 子 程序 结束 时 执行 应 从 哪里 继续 下 去 。 要 实现 这 一 策略 ， 就 需要 在 寄存 器 机 器 
里 的 数据 通路 与 控制 器 之 间 建 立 一 类 新 的 联系 : 这 里 必须 有 一 种 方式 ， 能 用 于 控制 器 序列 里 
一 个 标号 的 值 赋 给 一 个 寄存 器 ， 而 所 用 的 赋值 方式 又 必须 使 这 种 值 可 以 从 寄存 器 里 提取 出 来 ， 
用 于 确定 继续 执行 的 指定 人口 点 。 

为 了 实现 这 种 能 力 ， 我 们 要 扩充 寄存 器 机 器 里 assign 指 令 的 能 力 ， 人 允许 将 控制 器 序列 里 
的 标号 作为 值 (作为 一 种 特殊 常量 ) 赋 给 一 个 寄存 器 。 还 要 扩充 9oto 指 令 的 能 力 ， 允 许 执行 
进程 不 仅 可 以 从 一 个 常量 标号 描述 的 入 口 点 继续 ， 还 可 以 从 一 个 寄存 器 的 内 容 所 描述 的 入 口 
点 继续 下 去 。 利 用 这 些 新 的 结构 ， 我 们 就 可 以 在 gcd 子 程序 的 结束 处 放 一 条 分 支 指令 ， 要 求 
转向 保存 在 continue 寄 存 器 里 的 那个 位 置 。 这 样 做 出 的 控制 器 序列 如 图 5-10 所 示 。 

如 果 一 部 机 器 里 有 多 个 子 程 序 ， 那 么 可 以 采用 多 个 继续 寄存 器 〈 例 如 ，gcQ-continue ， 
factorial-continue)， 也 可 以 让 所 有 子 程序 共享 同一 个 continue 寄 存 器 。 共 享 一 个 寄 
存 器 当然 更 经 济 一 些 ， 但 是 在 出 现 一 个 子 程序 (subl) 调用 另 一 个 子 程序 (sub2) 的 情况 
下 ， 我 们 就 必须 小 心 了 。 除 非 sub1l 在 设置 continue 寄 存 器 以 便 准 备 去 调用 sub2 之 前 ， 事 
先 保存 了 continue 寄 存 器 的 内 容 ， 否 则 在 sub1 本 身 结束 时 就 不 知道 该 往 哪 里 去 了 。 下 一 市 
将 开发 一 种 用 于 处 理 递 归 的 机 制 ， 它 也 同样 为 解决 子 程序 修 套 调用 提供 了 一 种 更 好 的 办 法 。 
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gcd 
(test (op =) (reg b) (const 0)) 
(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd) ) 
gcd-done 
(goto (reg continue) ) 


;; Before calling gcd, we assign to continue 

;; the label to which gcd should return. 
(assign continue (label after-gcd-1)) 
(goto (label gcd)) 

after-gced-1 





;; Here is the second call to gcd, with a different continuation. 
(assign continue (label after-~gcd-2)) 
(goto (label gcd) ) 

after-gcd-2 


图 5-10 为 continue 寄 存 器 做 标号 赋值 ， 可 以 简化 并 推广 图 5-9 中 展示 的 策略 


5.1.4 采用 堆栈 实现 递归 


AT BS PRA BAR, ， 我 们 已 经 可 以 通过 描述 有 关 的 寄存 器 机 器 ， 实 现 所 有 的 迭代 计 
算 过 程 了 ， 其 中 用 一 个 寄存 器 对 应 于 计算 过 程 中 的 一 个 状态 变量 。 这 种 机 器 反复 地 执行 一 个 
控制 器 循环 ， 并 不 断 改 变 各 个 寄存 器 的 内 容 ， 直 至 满足 了 某 些 结束 条 件 。 在 控制 器 序列 中 的 
每 一 点 ， 机 器 的 状态 (对 应 于 迭代 计算 过 程 的 状态 ) 完全 由 这 些 寄存 器 的 内 容 (对 应 于 状态 
变量 的 值 ) 所 确定 。 

然而 ， 要 想 实现 递归 计算 过 程 ， 我 们 还 需要 增加 新 的 机 制 。 考 虑 下 面 计 算 阶 乘 的 递归 方 
法 ， 我 们 在 1.2.1 节 第 一 次 看 到 它 : 

(define (factorial n) 

(if (= N 1) 


1 
(* (factorial (- n 1))-n))) 


正如 从 这 一 过 程 中 可 以 看 到 的 ， 在 计算 n! 时 将 需要 计算 (n 一 1) !。 用 下 面 过 程 描述 的 另 一 部 


GCD 机 器 
(define (gcd a b) 
(if (= b 0) 


a 
(gcd b (remainder a b)))) 


也 类 位 地 需要 去 计算 另 一 个 GCD。 但 是 ,在 这 个 gcd 过 程 与 上 面 的 factorial 之 间 有 一 点 重 
要 不 同 ， 这 个 gcd 过 程 将 原来 的 计算 简化 为 一 个 新 的 GCD 计 算 ， 而 factorial 则 要 求 计 算出 
另 一 个 阶乘 作为 一 个 子 问题 。 在 这 个 GCD 过 程 里 ， 对 于 新 的 GCD 计 算 的 回答 也 就 是 原来 问题 
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的 回答 。 为 了 计算 下 一 个 GCD ， 我 们 只 需 简单 地 将 新 的 参数 放 进 GCD 机 器 的 输入 寄存 器 里 ， 
并 通过 执行 同一 个 控制 器 序列 ， 重 新 使 用 这 个 机 器 的 数据 通路 。 在 机 器 完成 了 最 后 一 个 GCD 
问题 的 求解 时 ， 整 个 计算 也 就 完成 了 。 

但 是 ,在 阶乘 (以 及 其 他 任何 递归 计算 过 程 ) 的 情形 里 ， 对 于 新 的 阶乘 子 问题 的 回答 并 
“不 是 对 于 原 问题 的 回答 。 由 (n 一 1)! 得 到 的 值 还 必须 乘 以 z， 才 能 得 到 最 后 的 结果 。 如 果 我 们 
试图 去 模仿 GCD 设 计 ， 通 过 减少 寄存 器 n 的 值 并 重新 运行 阶乘 机 器 的 方式 求解 这 里 的 阶乘 子 问 
Bi, ATR een 原来 的 值 ， 也 就 无 法 再 用 它 去 乘 计算 结果 了 。 这 样 我 们 就 需要 第 二 部 阶乘 
机 器 去 完成 子 问题 的 工作 。 而 这 第 二 个 子 问题 本 身 又 有 一 个 阶乘 子 问题 ， 它 又 要 求 第 三 部 阶 
乘机 器 ， 并 继续 这 样 下 去 。 因 为 每 部 阶乘 机 器 里 都 需要 包含 另 一 部 阶乘 机 器 ， 完 整 的 机 器 中 
将 要 包含 着 无 穷 姐 套 的 类 似 机 器 ， 这 是 不 可 能 从 固定 的 有 限 个 部 件 构造 起 来 的 。 

然而 ， 我 们 还 是 可 能 将 这 一 阶乘 计算 过 程 实现 为 一 部 寄存 器 机 器 ， 只 要 我 们 能 做 出 一 种 
安排 ,设法 使 每 个 修 套 的 机 器 实例 都 使 用 同样 的 一 组 部 件 。 也 就 是 说 ， 计 算 n! 的 机 器 应 该 用 
同样 部 件 去 完成 计算 针对 (n 一 1)! 的 子 问 题 ， 去 计算 针对 (一 2)! 的 子 问题 ， 并 如 此 下 去 。 这 是 
可 能 的 ， 因 为 ， 虽 然 阶乘 计算 过 程 在 执行 中 要 求 同 一 机 器 的 无 穷 多 个 副本 ， 但 是 在 任何 给 定 
时 肇 ， 它 所 实际 使 用 的 只 是 这 些 副 本 中 的 一 个 。 当 这 部 机 器 遇 到 一 个 递归 子 问 题 时 ， 它 就 可 
以 挂 起 针对 原 问 题 的 工作 ， 重 新 使 用 同样 物理 部 件 去 处 理 这 个 子 问题 ， 完 成 后 再 继续 进行 前 
面 挂 起 的 计算 。 

在 处 理子 问题 时 ， 寄 存 器 的 内 容 与 它们 在 原 问题 里 的 情况 不 同 (在 目前 情况 下 ， 寄 存 器 n 
的 值 减 小 了 )。 为 了 能 够 继续 进行 前 面 挂 起 的 计算 ， 机 器 必须 把 解决 了 子 问题 之 后 还 需要 的 那 
些 寄 存 器 的 内 容 保存 起 来 ， 以 便 后 来 能 恢复 它们 ， 以 继续 进行 前 面 挂 起 的 计算 。 对 于 阶乘 问 
题 ， 我 们 应 读 保 存 起 n 的 原 值 ， 在 完成 对 减 小 后 n 寄 存 器 的 阶乘 计算 之 后 再 恢复 它 2*。 

由 于 对 递归 调用 的 嵌 套 深度 并 没有 一 个 事先 知道 的 界限 ， 我 们 可 能 需要 保存 任意 个 的 寄 
存 器 值 。 这 些 值 需要 以 与 它们 的 保存 顺序 相反 的 顺序 存储 起 来 ， 因 为 在 代 套 的 递归 中 ， 最 后 
进入 的 那个 子 问题 将 首先 结束 。 这 就 要 求 我 们 使 用 一 个 堆栈 ， 或 称 为 “后 进 先 出 ”数据 结构 ， 
用 它 保存 寄存 器 的 值 。 我 们 可 以 扩充 寄存 器 机 器 语言 ， 增 加 两 种 指令 ， 将 一 个 堆栈 包括 进来 : 
将 值 放 入 堆栈 用 一 个 save 指 令 ， 从 堆栈 中 恢复 一 个 值 用 restore 指 令 。 在 将 一 系列 值 Ssave 
- 到 堆栈 里 之 后 ， 一 系列 的 restore 将 以 相反 的 顺序 提取 出 这 些 值 ”。 

有 了 堆栈 的 帮助 之 后 ， 我 们 就 可 以 重复 使 用 阶乘 机 器 的 数据 通路 的 同一 个 副本 ， 完 成 所 
有 的 阶乘 子 问题 了 。 在 重复 使 用 对 这 个 数据 通路 进行 操作 的 控制 器 序列 时 ， 也 存在 类 似 的 设 
计 问 题 。 为 了 重复 地 执行 阶乘 计算 ， 这 个 控制 器 就 不 能 像 选 代 计算 过 程 那样 简单 地 转 回 到 开 
始 的 地 方 ， 因 为 在 解决 了 (n 一 1)! 子 问题 之 后 ， 这 部 机 器 还 必须 将 结果 乘 以 nx。 控 制 器 需要 挂 
起 它 对 n! 的 计算 ， 去 解决 (4 一 1)! 子 问题 ， 而 后 再 继续 它 对 nn! 的 计算 。 对 阶乘 计算 的 这 种 观点 
提示 我 们 采用 5.1.3 节 里 描述 的 子 程序 机 制 ， 在 那里 使 用 了 一 个 continue 寄 存 器 ， 以 便 在 转 
到 解决 子 问题 的 序列 部 分 之 后 ， 还 能 回 到 它 脱 离 主 问题 的 那个 位 置 继续 下 去 。 我 们 同样 新 以 
让 阶乘 子 程序 把 返回 的 入 口 点 保存 到 continue 寄 存 器 里 。 围 绕 着 每 个 子 程序 调用 ， 我 们 都 


87 有 人 可 能 会 说 ， 在 这 里 并 不 需要 保存 0 的 原 值 ， 因 为 再 减 小 它 并 解决 了 子 问 题 之 后 ， 我 们 可 以 再 增 大 它 去 恢 
复 到 原来 的 值 。 虽 然 这 种 策略 对 于 阶乘 确实 可 行 ， 但 却 不 是 一 般 可 用 的 ， 因 为 一 般 而 言 ， 一 个 寄存 器 原来 的 
值 不 一 定 能 从 它 的 新 值 计算 出 来 。 

?33 在 5.3 节 里 ， 我 们 将 看 到 如 何 基于 更 基本 的 操作 实现 堆栈 。 
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需要 做 寄存 器 continue 的 保存 和 恢复 ， 就 像 对 寄存 器 Rh 所 做 的 那样 ， 因 为 每 一 “ 层 ” 阶乘 计 
算 都 将 使 用 同一 个 continue 寄 存 器 ZH, ， 阶 乘 子 程序 在 调用 自己 以 开始 解决 一 个 子 回 题 
之 前 ， 必 须 将 一 个 新 值 存 人 continue， 但 它 后 来 还 会 需要 那个 老 的 值 ， 以 便 能 返回 原来 调 
用 它 以 解决 这 个 子 问 题 的 位 置 。 

图 5-11 显 示 了 实现 这 一 递归 的 factorial 过 程 的 机 器 的 数据 通路 和 控制 器 。 在 这 一 机 器 
里 ， 有 一 个 堆栈 和 三 个 分 别称 为 hn、val 和 continue 的 寄存 器 。 为 了 简化 数据 通路 图 ， 我 们 


sn 
x) 
EE S Yoa 
2 stack 





\、*/ \-/ continue controller 
x) 


(controller 
(assign continue (label fact-done) ) ; set up final return address 
fact-loop | 
(test (op =) (reg n) (const 1)) 
(branch (Label base-case) ) 
`; Set up for the recursive call by saving n and continue. 
;; Set up continue so that the computation will continue 
--atafter-fact when the subroutine returns. | 
(save continue) 
(save n) 
(assign n (op -) (reg n) (const 1)) 
(assign continue (label after-fact) ) 
(goto (label fact-loop)) 
after-fact 





(restore n) 
(restore continue) 


(assign val (op *) (reg n) (reg val)) ; val now contains n(n - 1)! 

(goto (reg continue) ) l : return to caller 
base-case 

(assign val (const 1)) , base case: 1! = 1 

(goto (reg continue) ) ; return to caller 


fact-done) 


图 5-11 一 部 递归 的 阶乘 机 器 
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并 没有 给 寄存 器 赋值 按钮 命名 ， 而 是 只 给 堆栈 操作 按钮 俞 了 名 (sc 和 sn 保存 寄存 器 内 容 ，Ic 
和 rn 恢复 寄存 器 内 容 )。 为 了 操作 这 部 机 器 ， 我 们 在 寄存 器 n 里 存 和 人 希望 计算 阶乘 值 的 数 ， 而 
后 启动 机 器 。 当 机 器 到 达 fact-done 时 计算 结束 ， 在 寄存 器 val 里 将 能 找到 对 应 回答 。 在 相 
应 的 控制 器 序列 里 ， 每 次 递归 调用 之 前 都 保存 起 n 和 continue ， 从 调用 返回 时 恢复 它们 。 移 
成 从 一 个 调用 返回 的 方式 就 是 转 到 保存 在 continue 里 的 位 置 。 在 机 器 启动 时 对 continue 
做 初始 化 ， 使 得 机 器 在 最 后 能 返回 到 fact-done 。Vval 寄 存 器 里 保存 着 阶乘 计算 的 结 采 ， 在 
递归 调用 时 并 不 保存 它 ， 因为 val 原 来 的 内 容 在 子 程序 返回 后 已 经 没有 用 。 此 时 只 需要 它 
的 新 值 ， 是 由 这 一 次 子 计算 产生 出 来 的 。 

虽然 从 原理 上 说 阶乘 计算 需要 一 部 无 穷 机 器 ， 图 $-11 所 示 的 机 器 实际 上 却 是 有 穷 的 ， 除 
了 其 中 的 堆栈 之 外 ， 因 为 它 是 潜在 无 界 的 。 当 然 ， 堆 栈 的 任何 特定 物理 实现 都 具有 有 穷 的 大 
小 ， 这 也 将 限制 这 一 机 器 所 能 处 理 的 递归 调用 深度 。 阶 乘 的 这 一 具体 实现 展示 了 实现 递归 算 
法 的 通用 策略 : 采用 一 部 常规 的 寄存 器 机 器 ， 再 增加 一 个 堆栈 。 在 遇 到 递归 子 程序 时 ， 只 
某 些 寄 存 器 的 值 在 子 问题 求解 完成 后 还 需要 用 ， 就 把 它们 的 当前 值 存 和 堆栈。 而 后 去 求解 递 
归 的 子 问题 ， 再 恢复 保存 起 来 的 寄存 器 值 ， 并 继续 执行 原来 的 主 程序 。continue 寄 存 器 的 
值 必 须 保存 ， 其 他 寄存 器 的 值 是 否 需要 保存 ， 就 要 看 特定 机 器 的 情况 ， 因 为 并 不 是 所 有 的 化 
归 计 算 都 需要 各 个 寄存 器 原来 的 值 ， 即 使 这 些 值 在 求解 子 问题 的 过 程 中 修改 了 ( 见 练习 5.4)。 


双重 递归 | 
现在 让 我 们 来 考察 一 个 更 复杂 的 递归 计算 过 程 ， 有 关 斐 波 那 契 数 的 树 型 递归 计算 。 这 是 
在 1.2.2 节 介绍 过 的 
(define (fib n) 
(if (< n 2) 
(+ (fib (- n 1)) (fib (- n 2))))) 


BRERA, REA DB SEE BS SB A aS ae DL ae, 其 中 采用 寄 
存 器 n 、val 和 continue。 这 部 机 器 比 计算 阶乘 的 机 器 更 复杂 一 些 ， 因 为 在 这 里 的 控制 序列 
中 有 两 个 地 方 需要 执行 递归 调用 一 一 一 个 计算 Fib(n 一 1) ， 另 一 个 计算 Fib(n 一 2) 。 为 了 安排 好 
其 中 的 各 个 递归 调用 ， 我 们 需要 保存 起 那些 后 来 需要 使 用 的 寄存 器 值 ， 而 后 将 n 寄 存 器 设置 为 . 
需要 去 递归 计算 Fib 的 数值 (2 一 1 或 -2)， 并 将 continue 赋 值 为 计算 返回 时 应 该 转向 的 主 
序列 入 口 点 (分 别 为 afterfib-n-1 或 者 afterfib-n-2)， 而 后 转向 fib-loop。 在 从 化 
归 调用 返回 时 答案 就 在 val 里 。 图 $-12 显 示 了 这 一 机 器 的 控制 器 序列 。 
练习 5.4 ”请 描述 实现 下 面 各 个 过 程 的 寄存 器 机 器 。 对 于 这 里 的 每 部 机 人 各， 请 写 出 它 的 控 
制 器 指令 序列 ， 并 画 出 相应 的 数据 通路 图 形 。 
a) 递归 的 指数 计算 : 
(define (expt b n) 
(if (= n 0) 
1 
(* b (expt b (- n 1))))) 
b) 迭代 的 指数 计算 : 


(define (expt b n) 
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.(define (expt-iter counter product) 
(if (= counter 0) 
product 
(expt-iter (- counter 1) (* b product)))) 
(expt-iter n 1)) 


(controller 

(assign continue (label fib-done) ) 
fib-loop 

(test (op <) (reg n} (const 2)) 

(branch (label immediate-answer ) ) 

7; Set up to compute Fib(n —1) 

(save continue) 

(assign continue (label afterfib-n-1)) 





(save n) ; save old value of n 

(assign n (op -) (reg n) (const 1)); clobbernton—1 

(goto (label fib-loop)) ; perform recursive call 
afterfib-n-l ; upon return, val contains Fib(n — 1) 


(restore n) 

(restore continue) 

,; set up to compute Fib(n —2) 

(assign n (op -) (reg n) (const 2)) 
(save continue) 

(assign continue (label afterfib-n-2)) 


(save val) ; save Fib(n —1) 
(goto (label fib-loop)) 
afterfib-n-2 ; upon return, val contains Fib(n 一 2) 
(assign n (reg val)) » n now contains Fib(n —2) 
(restore val) ; val now contains Fib(n —1) 
(restore continue) 
(assign val ; Fib(n —1) + Fib(n —2) 
(op +) (reg val) (reg n)) l 
(goto (reg continue)) ; return to caller, answer is in val 
immediate-answer 
(assign val (reg n)) ; base case: Fib(n) =n 
(goto (reg continue) ) 
fib-done) 





图 5-12 一 部 计算 斐 波 那 契 数 的 机 器 的 控制 器 


练习 5.5 “请 用 手工 模拟 阶乘 和 斐 波 那 契机 器 的 计算 过 程 ， 用 某 个 非 平凡 的 输入 《需要 执 
行 至 少 一 次 递归 调用 )。 说 明 执 行 中 每 个 关键 点 上 堆栈 的 内 容 。 

练习 5.6 Ben Bitdiddle 注 意 到 ， 在 斐 波 那 契 机 器 的 控制 序列 里 有 一 个 额外 的 save 和 一 个 
额外 的 zestore， 可 以 将 它们 删 去 ， 得 到 一 个 更 快速 的 机 器 。 这 些 指令 在 哪里 ? 


5.1.5 指令 总 结 
在 我 们 的 寄存 器 机 器 语言 里 ， 一 条 控制 器 指令 具有 下 述 之 一 的 形式 ， 其 中 的 每 个 <inputi> 或 


者 是 一 个 (reg <register-name> ) ， 或 者 是 一 个 (const <constant-value> ) 。 
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下 面 指令 是 在 5.1.1 节 介绍 的 : 

(assign <register-name> (reg <register-name>) ) 

(assign <register-name> (const <constant-value> ) ) 

(assign <register-name> (op <operation-name>) <input,> ... <input,>) 

(perform {op <operation-name>) <input,> ... <input,>) 

(test (op <operation-name>) <input,> ... <input,>) 

(branch (label <Jabel-name>) ) 

(goto (label <label-name>)) 

采用 寄存 器 保存 标号 的 指令 是 在 5.1.3 节 讨论 的 : 

(assign <register-name> (label <label-name>) ) 

(goto (reg <register-name> ) ) 

使 用 堆栈 的 指令 在 5.1.4 节 介绍 : 

(save <register-name>) 

(restore <register-name> ) 

我 们 至 今 已 经 见 过 的 <constant-value> 都 是 数值 ， 后 面 还 会 用 到 字符 串 、 符 号 和 表 。 例 如 ， 
(const "abc") 就 是 字符 申 "abc" 。(const abc) 是 符号 abc, (const (a b c)) 是 
表 (a b c), 而 (const ()) 就 是 空 表 。 


5.2 一 个 寄存 器 机 器 模拟 器 


为 了 取得 对 于 寄存 器 机 器 设计 的 更 好 理解 ， 我 们 必须 测试 自己 设计 出 的 机 器 ， 看 看 它 能 
否 按照 预期 的 方式 执行 。 测 试 一 个 设计 的 一 种 方法 是 手工 模拟 控制 器 的 操作 ， 如 练习 3.3 中 所 
说 的 那样 。 但 是 ， 如 果 这 一 机 器 不 是 特别 简单 ， 手 工 做 就 会 特别 元 长 而 枯燥 。 在 这 一 节 里 ， 
我 们 要 为 用 寄存 器 机 器 语言 描述 的 机 器 构造 一 个 模拟 器 。 这 一 模拟 器 是 一 个 Scheme 程序 ， 其 
中 包括 四 个 界面 过 程 。 第 一 个 过 程 根据 一 个 寄存 器 机 器 的 描述 ， 为 这 部 机 器 构造 一 个 模型 
(一 个 数据 结构 ， 其 中 的 各 个 部 分 对 应 于 被 模拟 机 器 的 各 个 组 成 部 分 ) ， 另 外 三 个 过 程 使 我 们 
可 以 通过 操作 这 个 模型 ， 去 模拟 相应 的 机 器 : 

(make-machine <register-names> <operations> <controller>) 
构造 并 返回 机 器 的 模型 ， 其 中 包含 了 给 定 的 寄存 器 BRER He. 


(set-register-contents! <machine-model> <register-name> <value>) 
将 一 个 值 存 入 给 定 机 器 的 一 个 被 模拟 的 寄存 器 里 。 
(get-register-contents <machine-model> <register-name> ) 
返回 给 定 机 器 里 一 个 被 模拟 的 寄存 器 的 内 容 。 
(start <machine-model>) 
模拟 给 定 机 器 的 执行 ， 从 相应 控制 器 序列 的 开始 处 启动 ， 直 至 到 达 这 一 序列 的 结束 时 停止 。 
作为 说 明 这 些 过 程 如 何 使 用 的 实例 ， 我 们 可 以 定义 下 面 的 9cd-machine ， 为 3.1.1 布 的 


f 
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GCD 机 规定 义 一 个 模型 : 


(define gcd-machine 
(make-machine 
"(a b t) 
(list (list ’rem remainder) (list = =)) 
"(test-b 
(test (op =) (reg b) (const 0)) 
(branch {label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label test-b)) 
gcd-done))) 
make-machine 的 第 一 个 参数 是 一 个 寄存 器 名 字 的 表 ， 下 一 参数 是 一 个 表格 (AP RNR 
的 表 ) ， 其 中 的 每 个 对 偶 包 括 一 个 操作 的 名 字 和 实现 这 一 操作 ( 即 ， 对 于 给 定 的 同样 输入 值 ， 
能 够 产生 出 同样 的 输出 值 ) 的 一 个 Scheme 过 程 。 最 后 一 个 参数 描述 了 相应 控制 器 ， 用 一 个 标 
号 和 机 器 指令 的 表 表 示 ， 就 像 在 3.1 市 里 那样 。 
为 了 用 这 一 机 器 去 计算 SGCD ， 我 们 需要 设置 输入 寄存 器 ， 启 动 这 部 机 器 ， 在 模拟 结束 时 
检查 计算 结业 : 
(set-register-contents! gcd-machine ‘a 206) 


done 


(set-register-contents! gcd-machine ‘b 40) 


done 


(start gcd-machine) 
done 


(get-register-contents gcd-machine a) 
2 


这 个 计算 的 运行 速度 比 直接 用 Scheme 写 出 的 9cd 过 程 慢 得 多 ， 因 为 我 们 是 在 模拟 低级 的 机 器 
指令 ， 例 如 assign ， 而 使 用 的 却 是 比 它 高 级 得 多 的 操作 。 
练习 5.7 用 这 个 模拟 器 检查 你 在 练习 5.4 中 设计 的 机 器 。 


5.2.1 机 器 模型 


由 make-machine 生 成 的 机 器 模型 被 表示 为 一 个 包含 局 部 变量 的 过 程 ， 其 中 采用 了 第 3 
章 里 开发 的 消息 传递 技术 。 为 了 实现 这 一 模型 ，make-machine 在 开始 时 调用 过 程 nake- 
new_machine， 构 造 出 所 有 寄存 器 机 器 的 机 器 模型 里 都 需要 一 些 公共 部 分 。 由 make-new- 
machine 构 造 出 的 基本 机 器 模型 ， 从 本 质 上 说 就 是 一 个 容器 ， 其 中 包含 了 若干 个 寄存 器 和 一 
个 堆 模 ， 还 有 一 个 执行 机 制 ， 它 一 条 一 条 地 处 理 控制 器 指令 。 

在 此 之 后 ，make-machine 将 扩充 这 一 基本 模型 (通过 给 它 传递 消息 )， 把 现在 要 定义 
的 特殊 机 器 的 寄存 器 、 操 作 和 控制 器 加 进去 。 它 首先 为 新 机 器 里 需要 提供 的 每 个 寄存 器 名 字 
分 配 一 个 寄存 器 ， 并 安装 好 这 一 机 器 所 指定 的 各 种 操作 。 最 后 ， 它 用 一 个 汇编 程序 〈 在 下 面 
的 5.2.2 节 讨论 ) 把 控制 器 列表 变换 为 新 机 器 所 用 的 指令 ， 并 将 它们 安装 为 这 一 机 器 的 指令 序 
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列 。make-machine 返 回 修改 后 的 机 器 模型 作为 值 。 


(define (make-machine register-names ops controller-text) 

(let ((machine (make-new-machine) ) ) 

(for-each (lambda (register-name) 

( (machine ’allocate-register) register-name ) 
register-names) 
( (machine ’install-operations) ops) 
( (machine ’install-instruction-sequence) 
(assemble controller-text machine)) 
machine} ) 


寄存 器 
我 们 把 一 个 寄存 器 表示 为 一 个 带 有 局 部 状态 的 过 程 ， 就 像 第 3 章 里 那样 ，make-Iegister 
过 程 创建 这 种 寄存 器 ， 它 们 里 面 保存 着 一 个 值 ， 可 以 访问 或 者 修改 : 
(define (make-register name) 
(let ((contents ’*.nassigned*) ) 
(define (dispatch message) 
(cond ((eq? message ‘get) contents) 
((eq? message set) 
(lambda (value) (set! contents value) ) ) 
(else | 
(error "Unknown request -- REGISTER" message) ))) 
dispatch) ) 


TEEMAT [aie BE St a 
(define (get-contents register) 
(register ‘get)) 


(define (set-contents! register value) 


{ (register ’set) value) ) 


堆栈 
我 们 把 堆栈 也 表示 为 一 个 带 有 局 部 状态 的 过 程 。make-stack 过 程 创建 起 一 个 堆栈 ， 其 
局 部 状态 就 是 一 个 包含 着 这 一 堆栈 里 的 数据 项 的 表 。 堆 栈 接受 的 请 求 包括 将 一 个 数据 项 放 入 
堆栈 的 push ， 以 及 将 数据 项 从 堆栈 里 去 掉 并 返回 它 的 pop 。initialize 将 堆栈 初始 化 为 空 。 
(define (make~stack) 
(let ((s ())) 
(define (push x) 
(set! s (cons x 8s))) 
(define (pop) 
(if (null? s) 
(error "Empty stack -- POP") 
(let ((top (car s))) 
(set! s (cdr s)) 
top))) 
(define (initialize) 
(set! s ’()) 
*done) 
(define (dispatch message) 





(cond ((eq? message “push) push) 
((eq? message ‘pop) (pop)) 
( (eq? message ’initialize) (initialize) ) 
(else {error "Unknown request -- STACK" 
message)))) 
dispatch) ) 
下 面 过 程 用 于 访问 堆栈 ; 
(define {pop stack) 
(stack “PoP 1) ) 


(define (push stack value) 
({stack ‘push) value) ) 


HAHA 

过 程 make-new-machine 如 图 5-13 所 示 ， 它 构造 起 一 个 对 象 ， 其 内 部 状态 包括 了 一 个 堆 
栈 ， 另 外 还 有 一 个 初始 为 空 的 指令 序列 和 一 个 操作 的 表 ， 开 始 时 这 个 表 里 只 包含 一 个 急 始 化 
堆栈 的 操作 ;还 有 一 个 寄存 器 的 列表 ， 初 始 时 包含 两 个 分 别称 为 flag 和 pc (表示 “程序 计数 
器 ”，program counter) HJH 428. 内 部 过 程 al1locate-register 用 于 向 寄存 器 列表 中 加 
人 新 项 ， 内 部 过 程 ]0o0okup~register 在 这 个 列表 里 查找 寄存 强 。 

寄存 器 £1ag 用 于 控制 被 模拟 机 器 的 分 支 动 作 。test 指 令 设 置 flag 的 内 容 ， 表 示 检 测 的 
结果 ( 真 或 者 假 ) 。branch 指 令 通 过 检查 f1ag 的 内 容 确 定 是 否 需 要 转移 。 

在 机 器 的 运行 中 ，pc 寄 存 器 决定 了 指令 的 执行 顺序 。 这 一 顺序 由 内 部 过 程 execute 实 现 。 
在 这 个 模拟 模型 里 ， 每 条 机 器 指令 就 是 一 个 数据 结构 ， 其 中 包含 了 一 个 无 参 过 程 ， 称 为 指令 
执行 过 程 ， 调 用 这 一 过 程 就 能 模拟 相应 指令 的 执行 。 在 模拟 运行 时 ，pc 总 是 指向 指令 序列 里 
下 一 条 需要 执行 的 指令 的 开始 位 置 。execute 取 得 这 条 指令 ， 通 过 调用 与 之 对 应 的 指令 执行 
过 程 ， 完 成 相应 的 执行 。 这 一 循环 重复 进行 ， 直 到 再 也 没有 需要 执行 的 指令 为 止 《 也 就 是 说 ， 
直到 pc 指向 了 指令 序列 的 结束 )。 

作为 操作 的 一 部 分 ， 每 个 指令 执行 过 程 都 将 修改 Pc ， 使 之 指向 下 一 条 需要 执行 的 指令 。 
branch 和 goto 指 令 直接 修改 Pc ， 使 之 指向 一 个 新 的 位 置 ， 其 他 所 有 指令 都 简单 地 增加 pc 的 
值 ， 使 它 指向 序列 中 的 下 一 条 指令 。 可 以 看 到 ， 每 次 对 execute 的 调用 都 将 册 次 调用 
execute ， 但 这 并 不 会 产生 一 个 无 穷 循环 ， 因 为 指令 执行 过 程 的 执行 会 改变 Pc 的 内 容 。 

make-new-machine 返 回 一 个 dispatch 过 程 ， 这 一 过 程 实现 对 内 部 状态 的 消息 传递 访 
问 。 请 注意 ， 启 动 这 一 机 器 就 是 把 pc 设置 到 指令 序列 的 开始 并 调用 execute. 

为 了 方便 起 见 ， 一 部 机 器 除了 有 设置 和 检查 寄存 器 内 容 的 过 程 之 外 ， 我 们 还 为 start 的 
操作 提供 另 一 个 过 程 性 界面 ， 如 5.2 节 开始 时 所 描述 的 : 


(define (start machine) 


(machine ‘start)} 
(define (get-register-contents machine register-name) 


(get-contents (get-register machine register-name) ) ) 


(define (set-register-contents! machine register-name value) 
(set-contents! (get-register machine register-name) value) 


*done) à 
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(define (make-new-machine) 
(let ((Pe (make-register `pc)) 
(flag (make-register ’flag) ) 
(stack (make-stack) ) 
(the-instruction-sequence *())) 
(let ((the-ops 
(list (list ’initialize-stack 
(lambda () (stack ’initialize))))) 
(register-table 
(list (list ’pe pc} (list ’flag flag)))) 
(define (allocate-register name) 
(if (assoc name register-table) 
(error "Multiply defined register: " name) 
(set! register-table 
(cons (list name (make-register name) ) 
register-table) )) 
"register-—allocaced) 
(define (lookup-register name) 
(let ((val (assoc name register-table))) 
(if val 
(cadr val) 
(error "Unknown register:" name) ))) 
(define (execute) 
(let ((insts (get-contents pc))) 
(if (null? insts) 
‘done 
(begin 


((instruction-execution-proc (car insts))) 


(execute))))) 
(define (dispatch message) 
(cond ((eq? message ‘start) 


(set-contents! pc the-instruction-sequence) 


(execute) ) 


( (eq? message ’install-instruction-sequence) 
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(lambda (seq) (set! the-instruction-sequence seq) ) ) 
((eq? message ’allocate-register) allocate-register) 


( (eq? message ’get-register) lookup-register) 


((eq? message ’install-operations) 


(lambda (ops) (set! the-ops (append the-ops ops)))) 


((eq? message ’stack) stack) 
((eq? message ’operations) the-ops) 


(else (error "Unknown request -~ MACHINE" message) ))) 


dispatch) ) ) 


图 5-13 过 程 make-new-machine ， 它 实现 基本 机 器 模型 
这 些 过 程 (以 及 5.2 和 5.3 节 里 的 许多 其 他 过 程 ) 里 都 使 用 了 下 面 过 程 ， 其 中 用 


部 给 定 的 机 器 里 查看 有 关 寄 存 器 的 内 容 : 


(define (get-register machine reg-name) 
( (machine ’get-register) reg-name) ) 


给 定 的 名 字 在 一 
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5.2.2 汇编 程序 


这 一 汇编 程序 将 一 部 机 器 的 控制 器 表达 式 序列 翻译 为 与 之 对 应 的 机 器 指令 的 表 ， 每 条 指 
令 都 带 着 相应 的 执行 过 程 。 从 整体 上 看 ， 这 个 汇编 程序 很 像 我 们 在 第 4 章 里 研究 过 的 各 种 求 值 
器 一 一 它 有 一 个 输入 语言 (目前 情况 下 就 是 寄存 器 机 器 语言 )， 以 及 对 于 这 一 语言 里 的 每 个 类 
型 必须 执行 的 适当 动作 。 

为 每 条 指令 生成 一 个 执行 过 程 的 技术 ， 也 就 是 我 们 在 4.1.7 节 里 采用 的 ， 为 加 快 求 值 器 的 
速度 ， 把 分 析 工作 与 运行 时 的 执行 动作 分 离 的 技术 。 正 如 在 第 4 章 已 经 看 到 过 的 ， 对 于 Scheme 
表达 式 的 大 部 分 的 有 用 分 析 ， 都 可 以 在 不 知道 变量 实际 值 的 情况 下 完成 。 与 此 类 似 ， 在 这 里 ， 
对 寄存 器 机 器 语言 表达 式 的 许多 有 用 分 析 ， 也 可 以 在 不 知道 机 器 寄存 器 的 实际 内 容 的 情况 下 
完成 。 举 例 来 说 ， 我 们 可 以 用 指向 寄存 器 对 象 的 指针 代替 对 寄存 器 的 引用 ， 可 以 用 指向 标号 
所 指定 的 指令 序列 中 的 位 置 的 指针 代替 对 相应 标号 的 引用 。 

在 能 够 开始 生成 指令 执行 过 程 之 前 ， 这 个 汇编 程序 还 必须 知道 所 有 标号 的 引用 位 置 。 为 
此 它 首 先 扫描 控制 器 的 正文 ， 从 指令 序列 中 分 辨 出 各 个 标号 。 在 扫描 这 一 正文 的 过 程 中 ， 汇 
编程 序 构造 起 一 个 指令 的 表 和 另 一 个 列表 ， 列 表 里 为 每 个 标号 关联 一 个 指 到 指令 表 里 的 指针 。 
汇编 程序 而 后 扩充 这 样 得 到 的 指令 表 ， 为 每 条 指令 插入 一 个 执行 过 程 。 

过 程 assemble 是 这 个 汇编 程序 的 主要 入 口 ， 它 以 一 个 控制 器 正文 和 相应 机 器 模型 作为 
参数 ， 返 回 存储 在 模型 里 的 指令 序列 。assemb1le 调 用 extract-1labe1Ls ， 这 个 过 程 根据 所 
提供 的 控制 器 正文 构造 出 初始 的 指令 表 和 标号 列表 。extzract-1abels 的 第 二 个 参数 是 一 个 
过 程 ， 需 要 调用 它 去 处 理 上 面 得 到 的 结果 。 这 个 过 程 使 用 update-~insts! 生成 指令 执行 过 
程 ， 将 其 插入 指令 表 里 ， 并 返回 修改 之 后 的 表 。 


(define (assemble controller-text machine) 
(extract-labels controller-text 
(lambda (insts labels) 
(update-insts! insts labels machine) 


insts))) 


extract-labels 的 参数 是 一 个 表 text (也 就 是 控制 器 指令 表达 式 的 序列 ) 和 一 个 过 程 
receive。receive 将 被 用 两 个 值 调用 : (1) 一 个 指令 数据 结构 的 表 insts ， 其 中 每 个 指令 
数据 结构 包含 一 条 来 自 text 的 指令 ，(2) 一 个 名 字 为 1abe1ls 的 表格 ， 其 中 是 来 目 +ext 的 各 
个 标号 ， 它 们 都 关联 于 相应 标号 在 表 insts 里 的 位 置 。 
(define (extract-labels text receive) 
(if (null? text) 
(receive °() °()) 
(extract-labels (cdr text) 
(lambda (insts labels) 
(let ((next-inst (car text))) 
(if (symbol? next-inst) 
(receive insts 
(cons (make-label-entry next-inst 
insts) 
labels) ) 
(receive (cons (make-instruction next-inst) 





insts) 
labels))))))) 


extIact-1Iabels 的 工作 方式 是 顺序 扫 拉 text 里 的 各 个 元 素 ， 逐 新 积累 起 insts 和 
labels 。 如 果 一 个 元 素 是 个 符号 《因此 就 是 一 个 标号 )， 它 就 将 适当 的 条 目 加 入 表格 1abels ， 
否则 就 把 这 个 元 素 加 入 到 insts 表 里 一 。 | 

update-insts! 修改 指令 表 ， 原 来 这 里 只 包含 指令 的 正文 ， 现 在 要 加 入 对 应 的 执行 过 程 : 

(define (update-insts! insts labels machine) 

(let ((pe (get-register machine ’pc)) 
(flag (get-register machine ‘flag)) 
(stack (machine ‘stack)) 

(ops (machine ‘operations) )) 
(for-each 
(lambda (inst) 
(set-instruction-execution-proc! 
inst 
(make-execution-procedure 
(instruction-text inst) labels machine 
pe flag stack ops))) 
insts))) 


机 器 指令 的 数据 结构 也 就 是 指令 正文 和 对 应 的 执行 过 程 的 对 偶 。 在 extract~labels 构 
造 这 些 指令 上 时， 这些 执行 过 程 还 不 能 用 。 它 们 是 后 来 由 pdate-insts! 插 入 的 。 
(define (make-instruction text) 
(cons text'’())) 


289 在 这 里 使 有 receive 过程 ， 是 作为 一 种 有 效 地 返回 两 个 值 (labels 和 insts ) 的 方式 ， 这 样 就 不 必 做 出 一 
个 复合 数据 结构 去 保存 它们 。 另 一 实现 方式 是 返回 这 两 个 值 的 序 对 : 


(define (extract-labels text) 
(if (null? text) 
(cons () ()) 
(let ((result (extract-labels (cdr text)))) 
(let ((insts (car result)) (labels (cdr resuit))) 
(let ((next-inst (car text))) 
(if (symbol? next-inst) 
(cons insts 
(cons (make-label-entry next-inst insts) labels)) 

(cons (cons (make-instruction next-inst) insts) 


labels))))}))) 


汇编 程序 应 该 采用 如 下 方式 调用 它 : 
(define {assemble controller-text machine) 
(let ((result (extract-labels controller-text) )) 
(let ((insts (car result)) (labels (cdr result))) 

(update-insts! insts labels machine) 

insts))) . 
你 也 可 以 认为 ， 这 里 对 receive 的 使 用 展示 了 一 个 返回 多 个 值 的 优雅 方法 ， 或 者 简单 地 将 它 看 成 不 过 是 一 个 
程序 设计 技巧 。 向 receive 这 样 的 参数 被 作为 下 一 个 被 调用 过 程 ， 这 种 过 程 通常 称 为 “继续 ”过 程 。 请 回忆 
一 下 ， 在 4.3.3 节 的 amb 求 值 器 里 实现 回潮 控制 结构 时 ， 使 用 的 也 是 这 种 继续 过 程 。 | 
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(define (instruction-text inst) 


(car inst) ) 


(define (instruction-execution-proc inst) 


(cdr inst) ) 


(define (set-instruction-execution-proc! inst proc) 


(set-cdr! inst proc)) 


我 们 的 模拟 器 并 不 使 用 这 些 指令 正文 ， 但 还 是 把 它们 保存 在 这 里 。 将 指令 正文 留 到 排除 程序 
错误 时 ， 可 能 带 来 许多 方便 〈 见 练习 5.16 ) 。 

标号 列表 里 的 元 素 是 序 对 : 

(define (make-label-entry label-name insts) 


(cons label~name insts)) 


下 面 过 程 用 于 在 这 个 列表 里 查找 条 目 : 


(define (lookup-label labels label-name) 
(let ((val (assoc label-name labels))) 


(if val 
(cdr val) 
(error "Undefined label ~- ASSEMBLE" label-name) ))) 
练习 5.8 下 面 寄 存 器 机 器 代码 有 歧义 ， 因 为 其 中 的 标号 here 有 不 止 一 个 定义 : 
start 


(goto (label here)) 
here 

(assign a (const 3)) 

{goto (label there) ) 
here 

“(assign a (const 4)) 

(goto (label there) ) 


there 
SF 上面 写 出 的 模拟 器 ， 当 控制 到 达 thezre 时 ， 寄 存 器 a 的 内 容 是 什么 ? 请 修改 过 程 
extract-labels, 使 汇编 程序 在 发 现 同 一 标号 用 于 指明 两 个 不 同位 置 时 ， 能 发 出 一 个 错 


误 信号 。 
9.2.3 为 指令 生成 执行 过 程 


汇编 程序 调用 make-execution-procedure ， 为 一 条 指令 生成 一 个 执行 过 程 。 这 很 像 
4.1.7 节 里 求 值 器 中 的 analyze 过 程 。 这 一 过 程 也 基于 指令 的 类 型 ， 把 生成 适当 的 执行 过 程 的 
工作 分 派出 去 。 


(define (make-execution-procedure inst labels machine 
pc flag stack ops) 
(cond ((eq? (car inst) ‘assign) 
(make-assign inst machine labels ops pc)) 
((eq? (car inst) ‘test) 
(make-test inst machine labels ops flag pc)) 
((eq? (car inst) "branch) 
(make-branch inst machine labels flag pc)) 
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( (eq? (car inst) ‘goto) 
(make-goto inst machine labels pc)) 
((eq? (car inst) ’save) 
(make-save inst machine stack pc)) 
((eq? (car inst) ’restore) 
(make-restore inst machine stack pc)) 
( (eq? (car inst) ’perform) 
(make-perform inst machine labels ops pc)) 
(else (error "Unknown instruction type -- ASSEMBLE" 
inst)))) 


对 于 这 个 寄存 器 机 器 语言 里 的 每 类 指令 ， 在 这 里 都 有 一 个 生成 器 ， 其 功能 就 是 构造 出 适 
当 的 执行 过 程 。 这 些 过 程 的 细节 由 相应 寄存 器 机 器 语言 里 每 条 具体 指令 的 语法 和 意义 确定 。 
我 们 采用 数据 抽象 ， 将 寄存 器 机 器 表达 式 的 语法 细节 与 通用 的 执行 机 制 隔离 开 ， 就 像 前 面 对 
4.1.2 节 的 求 值 器 所 采用 的 做 法 ， 这 里 用 一 些 语法 过 程 提取 出 一 条 指令 里 的 各 个 部 分 ， 并 对 它 
们 进行 分 类 。 
assign 指 令 
过 程 make-assign 处 理 ass1gn 指 令 : 
(define (make-assign inst machine labels operations pc) 
{let ( (target 
(get-register machine (assign-reg-name inst))) 
(value-exp (assign-value-exp inst))) 
(let ({value-proc 
(if (operation-exp? value~exp) 
(make-operation-exp 
value-exp machine labels operations) 
(make-primitive-exp 
(car value-exp) machine labels)))) 
(lambda () ; execution procedure for assign 


(set-contents! target (value-proc) ) 
(advance-pce pc))))) 


make-assign 用 了 几 个 选择 函数 ， 从 assign 指 令 里 提取 出 目标 寄存 器 的 名 字 〈 指 令 的 第 二 
个 元 素 ) 和 值 表达 式 (形成 指令 里 剩余 部 分 的 表 ) : 


(define (assign-reg-name assign-instruction) 


(cadr assign-instruction)) 
(define (assign-value-exp assign-instruction) 

(cddr assign-instruction) ) 
get-register 用 寄存 器 名 的 名 字 去 查找 ， 产 生 对 应 的 目标 寄存 器 对 象 。 如 果 有 关 的 值 是 一 
个 操作 的 结果 ， 这 个 值 表达 式 就 被 送 给 make-operation-exp， 否则 就 送 给 make- 
primitive-exp。 这 些 过 程 (下 面 给 出 ) 还 要 进一步 分 析 值 表达 式 ， 并 为 它 生成 一 个 执行 
过 程 。 这 是 一 个 称 为 value-proc 的 无 参 过 程 ， 在 模拟 中 ， 当 需要 为 寄存 器 赋值 生成 实际 的 
值 时 就 会 调用 这 个 过 程 。 请 注意 ， 查 找 寄 存 器 名 字 和 分 析 值 表达 式 的 工作 ， 都 只 需 在 汇编 时 
做 一 次 ， 而 不 是 在 指令 模拟 时 每 次 做 。 这 样 将 能 节省 工作 ， 也 是 我 们 采用 执行 过 程 的 原因 。 
这 一 做 法 与 4.1.7 节 的 求 值 器 里 将 程序 分 析 工 作 从 执行 中 分 离 出 来 有 着 直接 的 对 应 。 





由 make-assign 返 回 的 结果 就 是 assign 指 令 的 执行 过 程 。 当 这 个 过 程 被 调用 时 〈 由 机 
器 模型 的 execute 过 程 调用 )， 它 将 用 执行 Value-proc 得 到 的 结果 设置 目标 寄存 器 的 内 容 。 
而 后 通过 运行 下 面 过 程 更 新 pc ， 使 之 指向 下 一 条 指令 


(define (advance-pc pc) 
(set-contents! pe (cdr (get-contents pc)))) 


advance-pc 是 每 条 指令 的 正常 结束 操作 ， 除 了 branch 和 goto 之 外 。 


test 、branch 和 goto 指 令 

make-test 以 类 似 方 式 处 理 test 指 令 。 它 提取 出 描述 了 需要 检测 的 条 件 的 表达 式 ， 并 
为 它 生 成 一 个 执行 过 程 。 在 模拟 时 ， 对 应 于 有 关 条 件 的 过 程 被 调用 ， 检 测 结果 赋 给 f1ag 寄 存 
器 ， 而 后 更 新 pC : 


(define (make-test inst machine labels operations flag pc) 
(let ((condition (test-condition inst) }) 
(if (operation-exp? condition) 
(let ((condition-proc 
(make-operation~-exp 
condition machine labels operations) ) ) 
(lambda () 
(set-contents! flag (condition-proc) ) 
(advance-pc pc))) 
(error "Bad TEST instruction -- ASSEMBLE" inst) ))) 


(define (test-condition.test-instruction) 
(cdr test-instruction) ) 
branch 指 令 的 执行 过 程 检查 ELag 寄 存 器 的 内 容 ， 或 者 是 将 pc 的 内 容 设置 为 分 支 的 月 标 
(如 果 需 要 执行 分 支 ) ， 或 者 是 简单 地 更 新 Pc (如 果 不 要 分 支 )。 请 注意 ， 一 条 branch 指 令 里 
所 指定 的 目标 必须 是 一 个 标号 ， make-branch 过 程 要 求 这 件 事 。 还 请 注意 标号 也 是 在 汇编 
时 查找 ， 而 不 是 在 模拟 branch 指 令 的 时 候 再 查找 。 
(define (make-branch inst machine labels flag pc) 
(let ((dest (branch-dest inst))) 
(if (label-exp? dest) 
(let ((insts 
(lookup-label labels (label-exp-label dest)))) 
(lambda () | 
(if (get-contents flag) 
(set-contents! pe insts) 


(advance-pce pc)))) 
(error "Bad BRANCH instruction -- ASSEMBLE" inst)))) 


(define (branch-dest branch-instruction) 


(cadr branch-instruction) ) 
goto 指 令 的 情况 与 分 支 类 似 ， 这 里 的 目标 可 以 用 一 个 标号 或 者 一 个 寄存 器 描述 ， 而 且 也 
不 需要 检测 条 件 。 这 里 总 将 pc 设置 为 新 的 目标 位 置 。 


(define (make-goto inst machine labels pc) 
(let ((dest (goto-dest inst))) 
(cond ((label-exp? dest) 





(let ((insts 
(lookup-label labels 
(label-exp-label dest)))) 
(lambda (} (set-contents! pc insts)))) 
(({register-exp? dest) 
(let ((reg 
(get-register machine 
(register-exp-reg dest)))) 


{lambda () 
(set-contents! pc (get-contents reg))))) 
(else (error "Bad GOTO instruction -- ASSEMBLE" 


inst))))) 


(define (goto-dest goto-instruction) 
(cadr goto-instruction) ) 


其 他 指令 
堆栈 指令 save 和 restore 简 单 地 对 指定 寄存 器 使 用 堆栈 ， 并 且 更 新 pc : 


(define (make-save inst machine stack pc) 
(let ((reg (get-register machine 
(stack-inst-reg-name inst)))) 
(lambda () 
(push stack (get-contents reg) ) 
(advance-pc pc)))) 


(define (make-restore inst machine stack pc) 
(let ((reg (get-register machine 
(stack-inst-reg-name inst)))) 
(lambda () 
(set-contents! reg (pop stack)) 
(advance-pc pc)))) 


(define (stack-inst-reg-name stack-instruction) 


(cadr stack-instruction) ) 
最 后 一 类 指令 由 make-perform 处 理 ， 它 为 需要 执行 的 动作 生成 有 关 执行 过 程 。 在 模拟 
时 执行 相应 的 动作 过 程 并 更 新 PC 。 | 


(define (make-perform inst machine labels operations pc) 
(let ((action (perform-action inst) ) ) 
(if (operation-exp? action) 
(let (({action-proc 
(make-operation-exp 
action machine labels operations) ) ) 
(lambda () 
(action-proc) 
(advance-pc pc))) 
(error “Bad PERFORM instruction -- ASSEMBLE" inst)))) 


(define (perform-action inst) (cdr inst) ) 


子 表 达 式 的 执行 过 程 
在 为 一 个 寄存 器 赋值 (make-assign )， 或 者 为 其 他 操作 提供 输入 时 (make-operation- 





exp， 见 下 )， 可 能 需要 使 用 一 个 reg、label 或 者 const 表 达 式 的 值 。 下 面 过 程 为 这 些 表达 
式 生 成 出 一 个 执行 过 程 ， 在 模拟 中 产生 出 这 些 子 表达 式 的 值 : 
(define (make-primitive-exp exp machine labels) 
(cond ((constant-exp? exp) 
{let ((c (constant-exp-value exp))) 
{lambda () c))) 
((label-exp? exp) _ 
(let ((insts 
(lookup-label labels 
(label-exp-label exp)))) 
(lambda () insts))) 
((register-exp? exp) 
(let ((r (get-register machine 
(register-exp-reg exp)))) 
{lambda () (get-contents r)))) 
(else 
(error "Unknown expression type -- ASSEMBLE" exp)))) 


reg、label 和 const 表 达 式 的 语法 形式 由 下 面 过 程 确定 : 

(define (register-exp? exp) (tagged-list? exp ‘reg)) 

(define (register-exp-reg exp) (cadr exp)) 

(define (constant-exp? exp) (tagged-list? exp ‘const)) 

(define (constant-exp-value exp) (cadr exp)) 

(define (label-exp? exp) (tagged-list? exp ‘tabel)) 

(define (label-exp-label exp) (cadr exp)) 

在 assign、perform 和 test 指 令 里 ， 可 能 需要 将 一 个 机 器 操作 (由 一 个 op 表达 式 描 述 
的 应 用 到 某 些 操作 对 象 (由 reg 和 const 表 达 式 描述 )。 下 面 过 程 为 一 个 “操作 表达 式 ” (一 
个 包含 着 一 条 指令 里 的 操作 和 操作 对 象 表达 式 的 表 ) 生成 一 个 执行 过 程 : 

(define (make-operation-exp exp machine labels operations) 

(let ((op (lookup-prim (operation-exp-op exp) operations) ) 
(aprocs 


(map (lambda (e) 
(make-primitive-exp e machine labels) ) 


eee” 


(operation-exp-operands exp)))) 
(lambda () 
(apply op (map (lambda (p) (p)) aprocs))))) 


操作 表达 式 的 语法 由 下 面 过 程 确定 : 
(define (operation-exp? exp) 
(and (pair? exp) (tagged-list? (car exp) ‘op))) 


(define (operation-exp-op operation-exp) 
(cadr (car operation-exp) ) ) 


(define (operation-exp-operands operation-exp) 
(cdr operation-exp) ) 


可 以 看 到 ， 这 里 对 于 操作 表达 式 的 处 理 很 像 4.1.7 节 的 求 值 器 里 的 analyze~application 过 程 
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里 对 过 程 应 用 的 处 理 。 我 们 要 为 每 个 操作 对 象 生 成 一 个 执行 过 程 。 模 拟 时 将 调用 这 些 对 应 于 操 
作对 象 的 过 程 ， 得 到 它们 的 值 ， 而 后 将 模拟 有 关 操 作 的 scheme 过 程 应 用 于 这 些 值 。 找 出 模拟 过 
程 的 方式 ， 就 是 用 操作 的 名 字 到 机 器 的 操作 表格 里 查找 : 
(define (lookup-prim symbol operations) 
(let ((val (assoc symbol operations) )) 
(if val 
(cadr val) 
(error "Unknown operation -- ASSEMBLE" symbol) ))) 


练习 5.9 在 上 面 对 于 机 器 操作 的 处 理 中 ， 除 了 允许 它们 对 常量 和 寄存 器 的 内 容 进 行 操作 
外 ， 还 允许 它们 处 理 标号 。 请 修改 上 述 表 达 式 处 理 过 程 ， 加 上 一 个 条 件 ， 要 求 这 些 操作 只 能 
用 于 寄存 器 和 常量 。 

练习 5.10 ”请 为 寄存 器 机 器 指令 设计 一 种 新 的 语法 形式 ， 而 后 修改 这 个 模拟 器 ， 使 模拟 
器 能 采用 你 的 新 语法 。 你 能 实现 你 的 新 语法 ， 而 且 在 修改 中 除了 语法 过 程 之 外 不 修改 本 市 的 
模拟 器 里 的 任何 部 分 吗 ? 

练习 5.11 我 们 在 5.1.4 节 引入 save 和 restore 时 ， 并 没有 说 明 如 果 试 图 恢复 一 个 并 不 是 
以 前 最 后 保存 的 寄存 器 ， 那 会 出 现 什 么 情况 。 例 如 下 面 的 序列 : 


(save y) 
(save x) 
(restore y) 


对 于 这 里 restore 的 意义 有 几 种 合理 的 可 能 性 : 

a) (restore y) 把 最 后 存 入 堆栈 里 的 值 放 入 y， 无 论 这 个 值 原来 来 自 哪 个 寄存 器 。 这 
也 是 上 面 模拟 器 中 的 行为 方式 。 请 说 明 如 何 利用 这 种 方式 的 优点 ， 从 5.1.4 节 (参见 图 5-12) 
的 斐 波 那 契 机 器 中 删 去 一 条 指令 。 

b) (restore y) 把 最 后 存 入 堆栈 里 的 值 放 入 Y， 但 只 是 在 这 个 值 原 来 确实 来 自 y 的 情况 
下 ， 否 则 就 发 出 一 个 错误 消息 。 请 修改 模拟 器 ,使 之 按 这 种 方式 活动 。 你 需要 修改 save， 使 
它 不 但 把 值 存 人 人 堆栈， 还 要 存 入 寄存 器 的 名 字 。 

c) (restore y) 把 来 自 y 的 最 后 存 和 人 堆栈 里 的 值 放 入 y ， 而 不 管 在 保存 7 之 后 义 有 哪些 
寄存 器 的 值 存 和 人 或 者 恢复 。 请 修改 模拟 器 ， 使 它 能 按照 这 种 方式 活动 。 你 将 需要 为 每 个 寄存 
器 关联 一 个 堆栈 ， 还 需要 修改 initialize-stack 操 作 ， 让 它 初 始 化 所 有 的 寄存 器 堆栈 。 

练习 5.12 ”这 个 模拟 器 可 用 于 帮助 我 们 确定 为 实现 一 个 采用 给 定 控制 器 的 机 器 所 需要 的 
数据 通路 。 请 扩充 这 个 汇编 程序 ， 将 下 面 信息 存储 到 机 器 模型 里 ; | 

。 一 个 指令 的 表 ， 其 中 删除 了 所 有 的 重复 ， 并 按照 指令 的 类 型 保存 (assign, goto 
等 ) ， 

。 一 个 用 于 保存 入 口 点 的 寄存 器 的 表 (其 中 没有 重复 )， 这些 入 口 点 都 有 goto 指 令 引 用 ， 

。 一 个 使 用 了 save 或 者 restore 的 寄存 器 的 表 (其 中 没有 重复 ) ， 

。 对 于 每 个 寄存 器 ， 一 个 对 它 的 赋值 来 源 的 表 ( 共 中 没有 重复 )。 例 如 ， 对 于 图 5-11 的 阶 
乘机 器 ， 寄存 器 val 的 赋值 来 源 包 括 (const 1) 和 ((op *) (reg n) (reg 
val)), 

请 扩充 有 关机 器 的 消息 传递 界面 ， 提 供 对 这 些 新 信息 的 访问 机 制 。 为 了 测试 你 的 分 析 器 ， 请 
定义 图 $-12 的 斐 波 那 契 机 器 ， 并 检查 所 列 出 的 各 个 表 。 | 
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练习 5.13 ”请 修改 上 面 的 模拟 器 ， 使 它 可 以 直接 利用 控制 器 序列 去 确定 机 器 里 需要 哪些 
寄存 器 ， 不 必 另 将 一 个 寄存 器 表 作 为 make-machine 的 参数 ， 不 采用 在 make-machine 里 预 
先 分 配 这 些 寄存 器 的 方式 ， 你 可 以 在 汇编 指令 的 过 程 中 ， 第 一 次 遇 到 一 个 寄存 器 时 完成 它 的 
分 配 。 | 


5.2.4 监视 机 器 执行 


模拟 的 用 途 不 仅 在 于 可 用 于 验证 所 提出 的 机 器 的 正确 性 ， 还 能 帮助 度量 机 器 的 性 能 。 举 
例 说 ， 我 们 可 以 在 自己 的 模拟 程序 里 安装 一 个 “测量 仪器 ” ， 记 录 在 计算 中 使 用 堆栈 操作 的 次 
数 。 要 做 好 这 件 事 ， 我 们 应 该 修改 被 模拟 的 堆栈 ， 记 录 将 寄存 器 保存 到 堆栈 里 的 次 数 和 堆栈 
达到 的 最 大 深度 的 轨迹 ， 如 下 面 所 示 。 我 们 还 需要 在 基本 机 器 模型 里 增加 一 个 操作 ， 用 于 对 
应 对 于 堆栈 的 统计 数据 ， 并 在 make-new-machine 里 将 the-ops 初 始 化 为 : 


(list (list `initialize-stack 
(lambda () (stack ’initialize))) 
(list ’print-stack-statistics 
(lambda () (stack ’print-statistics)))) 


这 里 是 make-stack 的 新 定义 : 
(define (make-stack) 
(let ((s ()) 
(number-pushes 0) 
(max-depth 0) 
(current-depth 0)) 
(define (push x) 
(set! s (cons x s)) 
(set! number-pushes (+ 1 number-pushes) ) 
(set! current-depth (+ 1 current-depth) ) 
(set! max-depth (max current-depth max-depth) )) 
(define (pop) 
(if (null? s) 
(error "Empty stack -- POP") 
(let ((top (car s))) 
(set! s (cdr s)) 
(set! current-depth (- current-depth 1)) 
top) ) ) 
(define (initialize) 
(set! s *()) 
(set! number-pushes 0) 
(set! max-depth 0) 
(set! current-depth 0) 
*done) 
(define (print-statistics) 
(newline) 
(display (list ‘total-pushes = number-pushes 
‘maximum-depth °= max-depth))) 
. (define (dispatch message) 
(cond ((eq? message ’push) push) 
( (eq? message ‘pop) (pop)) 
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((eq? message ’initialize) (initialize) ) 
( (eq? message ‘print-statistics) 
(print-statistics)) 
(else 
(error "Unknown request -- STACK" message) ))) 
dispatch) ) 
练习 5.15 到 5.19 描 述 了 其 他 一 些 在 监视 和 排除 程序 错误 方面 很 有 用 的 特征 ， 可 以 考虑 将 它们 加 
入 寄存 器 机 器 模拟 器 中 。 
练习 5.14 ”请 度量 由 图 5-11 所 示 的 阶乘 机 器 对 各 种 小 的 ' 值 计算 以 时 ， 所 执行 的 堆栈 压 入 
次 数 和 最 大 座 度 。 根 据 你 得 到 的 数据 确定 有 关 的 公式 ， 对 于 任何 上 >1 ， 基 于 nn 描述 压 入 操作 的 
次 数 和 在 计算 2! 时 的 最 大 堆栈 深度 。 请 注意 ， 这 两 个 公式 都 是 "的 线性 函数 ， 因 此 请 设法 确定 
其 中 的 两 个 常数 。 为 了 打印 统计 数据 ， 你 将 需要 扩充 这 一 阶乘 机 器 ， 增 加 初始 化 堆栈 和 打印 
统计 结果 的 指令 。 你 还 可 能 想 修 改 有 关机 器 ， 使 它 能 反复 地 将 值 读 和 全 ， 计 算 其 阶乘 并 打印 结 
果 (就 像 我 们 在 图 5-4 里 对 GCD 机 器 所 做 的 那样 ) ， 使 你 以 后 再 也 不 必 反 复 去 调用 get- 
register-contents, set-register-contents! #fstart, 
练习 5.15 ”给 寄存 器 机 器 模拟 器 增加 指令 计数 功能 。 也 就 是 说 ， 让 这 一 机 器 模型 维持 所 
执行 指令 的 数目 。 扩 充 这 一 机 器 模型 ， 使 它 能 接受 一 个 新 消息 ， 打 印 出 当时 的 指令 计数 值 并 
将 计数 器 重新 设置 为 0 。 
练习 5.16 ”扩充 上 述 模拟 器 BRS. DRA, 在 每 条 指令 被 执行 了 之 前 ， 
让 模拟 器 打印 出 这 一 指令 的 正文 。 让 扩充 后 的 机 器 模型 能 接受 trace-~on 和 trace-off 消 息 ， 
并 能 相应 地 打开 或 者 关闭 志 踪 功能 。 
练习 5.17 扩充 练习 5.16 的 指令 追踪 功能 ， 使 得 在 打印 一 条 指令 之 前 ， 模 拟 器 先 打 印 出 在 
控制 序列 里 正好 位 于 这 条 指令 之 前 的 标号 。 在 做 这 件 事 情 时 ， 请 小 心地 保证 它 不 会 干扰 了 指 
令 计 数 功能 (练习 5.15 )。 你 需要 让 模拟 器 保存 必要 的 标号 信息 。 
练习 5.18 ”请 修改 第 5.2.1 节 里 的 make-register 过 程 ， 使 寄存 器 可 以 被 迫 踪 。 寄 存 器 
应 该 能 接受 打开 和 关闭 追踪 的 消息 。 当 一 个 寄存 器 被 追踪 时 ， 一 旦 给 这 个 寄存 器 赋值 BA 
打印 出 寄存 器 的 名 字 ， 寄 存 器 原来 的 内 容 和 当时 将 要 赋值 的 新 内 容 。 请 扩充 机 器 模型 的 界面 ， 
以 允许 你 打开 或 者 关闭 对 任何 特定 寄存 器 的 妃 踪 。 
练习 5.19 Alyssa P. Hacker 希 望 在 模拟 器 里 有 断 点 功能 ,以 帮助 她 排除 机 缆 设 计 中 的 错 
误 。 你 现在 被 雇佣 来 为 她 安装 这 种 特征 。 hs See AS Se GEA A ee ee [EER i at 
能 停止 在 那里 ， 并 使 她 能 够 检测 机 器 的 状态 。 你 需要 实现 一 个 过 程 : 
(set-breakpoint <machine> <label> <n>) 
它 将 在 第 "条 指令 之 前 的 给 定 标号 后 面 设置 一 个 断 点 。 例 如 ， 
(set-breakpoint gcd-machine ‘test-b 4) 
将 在 9cd-machine 里 给 寄存 器 a 赋值 前 安装 一 个 断 点 。 当 模拟 器 到 达 这 个 断 点 时 ， 它 应 打印 
那个 标号 和 断 点 的 偏 移 量 ， 并 停止 指令 的 执行 。 这 样 Alyssa 就 可 以 用 get-register- 
contents 和 set-register-contents! 去 操作 被 模拟 机 器 的 状态 。 此 后 她 应 该 能 让 机 .性 
继续 执行 ， 用 


(proceed-machine <machine>) 


ft as EZ AT LAA F KBR Be eT A 
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(cancel-breakpoint <machine> <label> <n>) 


Be FAP a A BBR Bra BT : 


(cancel-all-breakpoints <machine>) 


5.3 存储 分 配 和 废料 收集 


在 5.4 节 里 ， 我 们 将 要 说 明 如 何 把 一 个 Scheme 求 值 器 实现 为 一 部 寄存 器 机 器 。 为 了 简化 这 
一 讨论 ， 下 面 将 假定 在 我 们 的 寄存 器 机 器 里 可 以 安装 好 一 个 表 结 构 存储 器 ， 其 中 对 于 表 结构 
数据 的 基本 操作 都 是 机 器 的 基本 过 程 。 当 我 们 需要 集中 精力 考虑 Scheme 解释 器 里 的 控制 机 制 
时 ， 假 定 存在 这 样 一 个 存储 器 是 一 种 很 有 用 的 抽象 ， 但 这 并 没有 反应 当前 计算 机 中 实际 的 基 
本 数据 操作 的 情况 。 为 了 得 到 有 关 一 个 Lisp 系 统 如 何 工作 的 一 种 更 完整 的 认识 ， 我 们 还 必须 
去 考察 表 结 构 可 以 怎样 以 一 种 与 常规 的 计算 机 存储 器 相 容 的 方式 表示 。 

有 关 表 结构 的 实现 需要 考虑 两 方面 问题 。 首 先是 一 个 纯粹 的 表示 问题 : 如 何 去 表 示 Lisp 
序 对 的 “盒子 和 指针 ”结构 ， 其 中 只 使 用 到 典型 计算 机 存储 器 的 存储 单元 和 寻 址 能 力 。 第 二 
个 问题 ， 是 需要 关心 如 何 将 对 存储 的 管理 作为 一 个 计算 过 程 。Lisp 系 统 的 操作 强烈 地 依赖 于 
连续 创建 新 数据 对 象 的 能 力 ， 包 括 那些 被 解释 的 Lisp 过 程 里 显 式 创 建 的 各 种 对 象 ， 以 及 由 解 
释 器 本 身 创建 的 对 象 ， 例 如 环境 和 参数 表 等 等 。 如 果 计 算 机 里 有 数量 无 穷 的 可 以 快速 寻 址 的 
存储 器 ， 那 么 连续 不 断 地 创建 新 对 象 就 不 会 有 问题 。 但 是 ， 实 际 的 计算 机 存储 器 只 有 有 穷 的 
规模 (实在 可 惜 )。 因 此 Lisp 系统 需要 提供 一 种 自动 存储 分 配 功 能 ， 以 支撑 一 种 无 穷 存储 器 的 
假象 。 当 一 个 数据 对 象 不 再 需要 时 ， 分 配给 它 的 存储 就 自动 回收 ， 并 可 用 于 构造 新 的 数据 对 
家 。 存 在 着 多 种 能 提供 这 样 的 自动 存储 分 配 的 技术 。 我 们 将 要 在 这 一 节 里 讨论 的 方法 称 为 度 
料 收集 。 


5.3.1 将 存储 看 作 疝 量 


常规 计算 机 的 存储 器 可 以 看 作 是 一 串 排 列 整齐 的 小 隔 间 ， 每 个 小 隔 间 里 可 以 保存 一 所 信 
息 。 这 里 的 每 个 小 晤 间 有 一 个 具有 唯一 性 的 名 字 ， 称 为 它 的 地 址 或 者 位 置 。 典 型 的 存储 器 系 
统 提供 了 两 个 基本 操作 ， 一 个 能 取出 保存 在 一 个 特定 位 置 的 数据 ， 另 一 个 能 将 新 的 数据 赋 给 
指定 的 位 置 。 我 们 可 以 做 存储 器 地 址 的 增 量 操作 ， 以 支持 对 某 一 组 小 隔 间 的 顺序 访问 。 更 一 
般 的 情况 是 ， 许 多 重要 的 数据 操作 都 要 求 将 存储 器 地 址 也 作为 数据 来 看 待 和 处 理 ， 以 便 可 以 
将 地 址 保存 到 存储 位 置 里 ， 并 能 在 机 器 的 寄存 器 里 对 它们 做 各 种 操作 。 表 结构 的 表示 就 是 这 
种 地 址 算术 的 一 个 具体 应 用 。 

为 了 模拟 计算 机 的 存储 器 ， 我 们 采用 一 种 新 的 数据 结构 ， 称 为 向 量 。 抽 象 地 看 ， 一 个 同 
量 由 是 一 个 复合 数据 对 象 ， 其 中 各 个 元 素 都 可 以 通过 一 个 整数 下 标 访问 ， 这 种 访问 所 需 的 时 
间 量 与 具体 下 标 无 关 ”。 为 描述 存储 器 操作 ， 我 们 用 Scheme FAP AERE EER i 过 程 : 

。 (vector-ref <vector> <n>) 返回 向 量 里 的 第 n 个 元 素 。 
e (vector-set! <vector> <n> <value> ) 将 向 量 里 的 第 ”个 元 素 设 置 为 指定 值 。 
举例 说 ， 如 果 v 是 一 个 向 量 ， 那 么 ，(Vector-Ief v 5) 将 取得 向 量 V 里 的 第 个 元 素 ， 而 


2% 我 们 也 可 以 将 存储 器 表示 为 数据 项 的 表 。 但 是 这 样 做 时 ， 访 问 时 间 就 不 会 与 下 标 无 关 了 ， 因 为 要 访问 其 中 的 
第 "个 元 素 需 要 做 ?一 1 次 cdr 操作 。 
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(vector-set! v 5 7) 把 向 量 v 里 的 第 5 个 元 素 修改 为 ?7。” 对 于 计算 机 存储 器 而 言 ， 这 种 
访问 可 以 通过 地 址 算术 实现 ， 其 中 采用 描述 一 个 向 量 在 存储 器 里 的 开始 位 置 的 基 址 加 上 一 个 
下 标 ， 这 种 下 标 描 述 的 是 向 量 里 某 个 特定 元 素 的 偏 移 量 。 


Lisp 数 据 的 表示 

我 们 可 以 用 向 量 实现 表 结 构 存储 器 所 需 的 基本 序 对 结构 。 让 我 们 设想 计算 机 的 存储 器 被 
分 成 了 两 个 向 量 , the-cars 和 the-cdrs 。 这 时 我 们 就 可 以 采用 下 面 方式 表示 表 结 构 了 : 
指向 序 对 的 指针 就 是 到 这 两 个 向 量 的 下 标 ， 一 个 序 对 的 car 就 是 向 量 the~cars 里 具有 指定 
下 标的 项 ， 该 序 对 的 cdr 部 分 就 是 向 量 the~cdrs 里 具有 指定 下 标的 项 。 我们 还 需要 为 那些 
不 是 序 对 的 对 象 ( 例 如 数 和 符号 ) 确定 表示 方式 ， 需 要 有 一 种 方式 来 区 分 是 这 种 数据 还 是 那 
种 数据 。 完 成 这 些 事情 的 方法 很 多 ， 但 它们 都 可 以 归结 为 采用 某 种 带 类 型 的 指针 ， 也 就 是 说 ， 
现在 需要 扩充 指针 的 概念 ， 使 之 包含 有 关 数 据 类 型 的 信息 ”。 数 据 类 型 使 系统 能 辨别 是 指 问 
序 对 的 指针 ( 它 包 括 “ 序 对 ”数据 类 型 和 一 个 到 存储 器 向 量 的 下 标 )， 还 是 指向 其 他 种 类 的 数 
据 的 指针 ( 它 包 含有 关 某 种 数据 类 型 的 信息 和 某 些 用 于 表示 该 类 型 的 数据 的 其 他 东西 )。 认 为 
两 个 数据 对 象 是 同一 个 东西 (eq?) 的 条 件 就 是 它们 的 指针 相同 ”。 图 5-14 显 示 的 是 采用 这 种 
方法 表示 表 ((1 2) 3 4) 的 情况 ， 这 个 表 的 盒子 和 指针 表示 也 显示 在 图 中 。 图 中 用 字母 前 
组 标明 类 型 信息 。 这 样 ， 指 向 下 标 为 5 的 序 对 的 指针 标的 是 P5 ， 空 表 用 指针 e0 表 示 ， 指 四 数 4 
的 指针 标的 是 用 n4 。 在 盒子 和 指针 图 里 ， 我 们 在 每 个 序 对 的 左下 方 标 了 一 个 向 量 下 标 ， 表 示 
这 个 序 对 的 car 和 ”cdr 存储 的 地 方 。 在 the-cars 和 the-cdrs 里 空白 的 地 方 可 能 保存 了 其 
他 数据 结构 的 序 对 (在 这 里 不 关心 它们 ) 。 


((1 2) 3 4) 





Index 0 1 2 3 4 5 6 7 8 


the-cars 





the-cdrs 


图 5-14 表 ((1 2) 3 4) 的 方块 指针 图 和 存储 器 向 量 表 示 


21 为 完整 起 见 ， 我 们 还 要 描述 一 个 构造 向 量 的 make-vector 操作 。 但 在 目前 的 应 用 里 ， 我 们 只 是 使 用 问 量 去 
模拟 计算 机 存储 器 的 固定 划分 情况 。 

292 这 与 我 们 在 第 ?2 章 为 处 理 通用 操作 而 引进 的 “ 带 标志 数据 ”的 思想 完全 一 样 。 当 然 ， 在 这 里 的 数 据 类 型 位 于 
基本 的 机 器 层面 上 ， 而 不 是 在 表 的 基础 上 构造 出 来 的 。 

23 类 型 信息 可 以 采用 各 种 方式 编码 ， 具 体 做 法 依赖 于 Lisp 系统 的 实现 所 在 的 机 器 细节 。 Lisp 程 序 执 行 的 效率 在 
很 大 程度 上 依赖 于 所 做 出 的 这 种 选择 有 多 么 聪明 ， 但 是 ， 想 把 好 的 选择 形式 化 为 一 般 性 的 设计 原则 却 非常 困 
难 。 实 现 带 类 型 指针 的 最 直接 方式 是 在 每 个 指针 里 都 分 配 固定 的 一 组 二 进 制 位 作为 类 型 域 ， 用 于 做 类 型 的 编 
码 。 在 设计 这 样 的 表示 时 ， 必 须 处 理 的 重要 问题 包括 下 面 这 些 : 表示 类 型 需要 多 少 个 二 进 制 位 ? 向 量 的 下 标 
必须 有 多 大 ? 用 于 对 指针 的 类 型 域 操作 的 基本 机 器 指令 的 效率 如 何 ? 有 些 机 器 为 有 效 操作 类 型 域 提供 了 特殊 
的 硬件 ， 这 种 机 器 也 被 称 为 是 带 标志 体系 结构 的 机 器 。 
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指向 一 个 数值 的 指针 ， 例 如 n4， 也 完全 可 能 同时 包含 着 指明 数值 对 象 的 类 型 信息 以 及 数 4 
的 表示 本 身 “”。 如 果 需 要 处 理 的 数值 太 大 ， 无 法 在 固定 大 小 的 指针 空间 里 表示 ， 可 以 用 一 个 
大 数 数据 类 型 ， 此 时 就 是 让 指针 指向 一 个 表 ， 在 其 中 存储 这 个 大 数 里 的 各 个 部 分 ”。 

一 个 符号 也 可 以 表示 为 一 个 带 类 型 的 指针 ， 它 指向 一 个 字符 序列 ， 这 个 字符 序列 形成 了 
该 符号 的 输出 表示 形式 。 这 一 序列 是 由 Lisp 读 入 程序 在 输入 时 第 一 次 遇 到 这 一 字符 序列 时 构 
造 起 来 的 。 因 为 我 们 希望 同一 个 符号 的 两 个 实例 被 eq? 认定 为 “同一 个 ”符号 ， 而 希望 eq? 只 
是 简单 地 检测 指针 相等 ， 因 此 我 们 就 必须 保证 ， 当 读 和 程序 两 次 看 到 同一 个 符号 时 ， 它 一 定 
能 用 同一 个 指针 〈 指 呵 相应 的 字符 序列 ) 表示 这 两 个 出 现 。 为 了 做 到 这 一 点 ， 读 入 程序 一 直 
维护 着 它 所 过 到 的 所 有 符号 的 一 个 表格 ， 按 照 传统 ， 这 称 为 对 象 表 (obarray ) 。 当 读 人 程序 遇 
到 了 一 个 字符 串 ， 并 考虑 据 此 构造 一 个 符号 时 ， 它 就 会 去 检查 对 象 表 ， 看 看 前 面 是 否 已 经 看 
到 过 同样 的 字符 串 。 如 果 前 面 没 看 到 过 ， 它 就 用 这 一 字符 串 构 造 出 一 个 新 符号 〈 指 同 新 的 字 
符 序列 的 带 类 型 指针 ) ， 并 将 这 个 指针 加 入 对 象 表 里 。 如 果 读 入 程序 已 经 看 到 过 这 个 字符 串 ， 
它 就 直接 返回 保存 在 对 象 表 里 的 符号 指针 。 将 字符 串 用 这 种 唯一 指针 取代 的 过 程 称 为 加 入 
(interning) 一 个 符号 。 


直 本 表 操 作 的 实现 

有 了 上 面 的 表示 方式 ， 我 们 就 可 以 将 寄存 器 机 器 里 的 各 个 “基本 ” 表 操 作 代 换 为 一 个 或 
者 几 个 基本 向 量 操作 了 。 下 面 将 使 用 两 个 寄存 器 the~cars 和 the-cdrs， 用 它们 标识 与 之 
对 应 的 内 存 向 量 ， 假 定 vector-~ref 和 vector-set! 是 可 以 使 用 的 基本 向 量 操作 。 我 们 还 


要 假定 有 对 指针 的 算术 操作 (增加 一 个 指针 的 值 ， 用 一 个 序 对 的 指针 作为 向 量 的 下 标 ， 或 者 
加 起 两 个 数 )， 它 们 都 将 自动 地 应 用 到 带 类 型 指针 的 下 标 部 分 。 

举例 说 ， 我 们 可 以 让 寄存 器 机 器 支持 下 面 的 指令 : 

(assign <reg,> (op car) (reg <reg.>)) 

(assign <rveg,> (op cdr) (reg <reg.>)) 
如 果 我 们 分 别 将 它们 实现 为 : 

(assign <reg,> (op vector-ref) (reg the-cars) (reg <reg,>)) 


(assign <reg,> (op vector-ref) (reg the-cdrs) (reg <re82> ) ) 


(perform (op set-car!) (reg <reg,>) (reg <reg,>)) 

(perform (op set-cdr!) (reg <reg,>) (reg <reg.>)) 
将 实现 为 

(perform 


(op vector-set!) (reg the-cars) (reg <reg,;>) (reg <reg.>)) 


4 有 关 数 值 如 何 表 示 的 决定 ， 也 确定 了 我 们 能 否 用 eg? ( 它 检测 指针 的 相等 ) 检测 两 个 数值 的 相等 SE. MR 
指针 里 包含 的 是 数值 本 身 ， 那 么 相等 的 数值 就 会 有 相同 的 指针 值 。 但 是 如 果 指 针 里 包含 的 是 保存 数 的 位 置 的 
下 标 ， 那 么 ， 要 想 保 证 相等 的 数 也 具有 相同 的 指针 ， 我 们 就 需要 小 心安 排 ， 不 能 让 同一 个 数 存 人 多 个 位 置 
里 。 

25 这 就 像 是 将 一 个 数 写成 一 个 数字 的 序列 ， 除 了 这 里 的 每 个 “数字 ”有 所 不 同 之 外 ， 它 的 取 值 可 以 是 位 于 0 到 
某 个 可 能 保存 在 一 个 指针 里 的 最 大 的 数 之 间 的 一 个 值 。 
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(perform 
(op vector~set!) (reg the-cdrs) (reg <reg,>) (reg <reg.>)) 


执行 cons 时 需要 分 配 一 个 朵 置 未 用 的 下 标 ， 将 cons 的 参数 存 人 向 量 the-cars 和 the- 
cdrs 里 由 这 个 下 标 确定 的 位 置 。 我 们 还 要 假定 有 一 个 特殊 的 寄存 器 free， 它 保存 着 一 个 序 
对 指针 ， 总 是 指向 下 一 个 可 用 下 标 ， 而 且 我 们 可 以 增加 这 一 指针 的 下 标 部 分 ， 以 便 找 到 下 一 
AB, HERI, TES: 


(assign <reg,> (op cons) (reg <reg.>) (reg <reg;>)) 


由 下 面 的 向 量 操作 序列 实现 : 
(perform 
(op vector~set!) (reg the-cars) (reg free) (reg <reg2z> ) ) 
(perform 
(op vector-~set!) (reg the-cdrs) (reg free) (reg <reg;>)) 


(assign <reg,> (reg free) ) 
(assign free (op +) (reg free) (const 1)) 


操作 eq? 


(op eq?) (reg <regi>) (reg <reg2>) 


简单 检测 寄存 器 的 所 有 域 是否 相 等 ， 而 像 pPair?、null? 、symbol? 和 number? 一 类 谓词 都 
只 检测 指针 的 类 型 域 。 


堆栈 的 实现 

虽然 我 们 的 寄存 器 机 器 里 使 用 了 堆栈 ， 但 在 这 里 却 不 需要 做 任何 特殊 事情 ， 因 为 堆栈 可 
以 用 表 来 模拟 。 堆 栈 可 以 是 一 个 用 于 保存 值 的 表 ， 由 一 个 特定 寄存 器 the-stack 指 向 。 这 样 ， 
(save <reg>) 就 可 以 实现 为 : 


(assign the~stack (op cons) (reg <reg>) (reg the-stack) ) 


类 似 地 ，(restore <reg>) 可 以 实现 为 : 
(assign <reg> (op car) (reg the-stack)) 
(assign the~stack (op cdr) (reg the-stack)) 
而 (perform (op initialize-stack)) 可 以 实现 为 : 


(assign the~stack (const ())) 


这 些 操 作 都 可 以 进一步 基于 上 面 给 出 的 向 量 操作 给 出 解释 。 在 常规 计算 机 体系 结构 里 ， 堆 栈 
另行 分 配 为 一 个 单独 的 向 量 常 有 很 大 优越 性 。 采 用 这 种 做 法 ， 对 于 堆栈 的 压 人 和 弹出 操作 都 
可 以 通过 增加 或 者 减少 向 量 下 标的 方式 实现 。 

练习 5.20 ”请 画 出 由 下 面 表达 式 产生 的 表 结 构 的 盒子 和 指针 表示 ， 以 及 对 应 的 存储 背 回 
量 表 示 的 图 形 《就 像 图 5-4 里 那样 ) 。 


(define x (cons 1 2)) 
(define y (list x x)) 


6 也 有 找 自 由 存储 的 其 他 方式 。 举 例 说 ， 我 们 也 可 以 将 所 有 未 用 的 序 对 链接 起 来 ， 形 成 一 个 自由 表 。 在 这 里 的 
自由 位 置 是 连续 的 (并 因此 可 以 通过 增加 指针 值 的 方式 访问 )， 是 因为 这 里 采用 了 一 种 紧缩 式 的 废料 收集 程 


序 ， 我 们 将 在 5.3.2 节 看 到 有 关 的 情况 。 
27 从 本 质 上 说 ， 这 就 是 基于 set-car! 和 set-cdr! 的 cons 实 现 ， 如 3.3.1 节 所 述 。 在 那里 的 实现 中 所 用 的 


get-new-pair ,现在 通过 free 指 针 实现 了 。 
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假定 free 指 针 开 始 时 的 值 是 pl1。 表 示 x 和 Yy 的 值 的 是 哪些 指针 ? 

练习 5.21 ”为 下 面 过 程 实现 寄存 器 机 器 。 假 定 表 结 构 存 储 操作 可 以 作为 机 器 的 基本 操作 
使 用 : 

a) 递归 的 count-leaves. 


(define (count-leaves tree) 
{cond ({null? tree) 0) 
((not (pair? tree)) 1) 
(else (+ (count-leaves (car tree)) 


(count-leaves (cdr tree)))))) 


b) 递归 的 count-Ieaves， 带 有 一 个 显 式 的 计数 右 : 


(define (count-leaves tree) 
(define (count-iter tree n) 
(cond ((null? tree) n) 
((not (pair? tree)) (+ n 1)) 
(else (count-iter (cdr tree) 
(count-iter (car tree) n))))) 


(count-iter tree 0)) 
练习 5.22 练习 3.12 和 3.3.1 节 给 出 了 一 个 append 过 程 ， 它 连接 起 两 个 表 ， 构 成 一 个 新 
表 ， 还 有 另 一 个 过 程 append! ， 它 直接 将 两 个 表 粘 连 到 一 起 。 请 为 实现 这 两 个 操作 各 设计 一 
个 寄存 器 机 器 ， 假 定 表 结 构 存 储 操作 是 可 用 的 基本 操作 。 


5.3.2 维持 一 种 无 穷 存储 的 假象 


在 5.3.1 节 所 勾画 的 表示 方式 能 够 解决 表 结 构 的 问题 ， 当 然 这 里 还 需要 有 一 个 前 提 ， 那 就 
是 需要 有 无 穷 数 量 的 存储 。 如 果 采 用 实际 的 计算 机 ， 我 们 最 终 总 会 用 光 所 有 用 于 构造 新 序 对 
的 自由 空间 %。 然 而 ， 典 型 计算 中 产生 的 大 部 分 序 对 只 是 用 于 保存 计算 的 中 间 结 果 ， 在 这 些 
结果 被 访问 之 后 ， 有 关 的 序 对 就 不 再 有 用 了 一 一 它们 变 成 了 废料 。 例 如 ， 计 算 

{accumulate + 0 (filter odd? (enumerate-interval 0 n))) 

将 构造 起 两 个 表 ; 枚 举 出 的 表 和 对 枚 举 进行 过 滤 的 结果 表 。 在 这 里 的 累计 工作 完成 之 后 ， 这 
两 个 表 就 都 不 需要 了 ， 为 它们 分 配 的 存储 可 以 回收 。 如 果 我 们 能 做 出 一 种 安排 ， 周 期 性 地 收 
集 起 所 有 的 废料 ， 而 且 对 存储 的 这 种 重复 使 用 的 速度 与 构造 新 序 对 的 速率 大 至 差不多， 那么 
我 们 就 能 维持 一 种 假象 ， 好 像 这 里 存在 着 无 穷 数量 的 存储 器 。 

为 了 回收 这 些 序 对 ， 我 们 必须 有 一 种 方式 来 确定 原先 分 配 的 哪些 序 对 已 经 不 再 需要 了 
(这 一 说 法 实际 上 意味 着 它们 的 内 容 对 今后 的 计算 不 再 有 影响 了 )。 我 们 下 面 要 考察 的 方法 称 
为 废料 收集。 废料 收集 是 基于 如 下 的 认识 : 在 Lisp 解 释 过 程 中 的 任何 时 刻 ， 有 可 能 影响 未 来 
的 计算 过 程 的 对 象 ， 也 就 是 从 当前 机 器 寄存 器 里 的 指针 出 发 ， 经 过 一 系列 car 和 cdr 操 作 能 够 


298 这 句 话 将 来 也 可 能 不 成 立 ， 因 为 存储 器 有 可 能 变 得 足够 大 ， 以 至 在 一 部 计算 机 的 存在 期 间 不 可 能 用 完 它 。 举 
例 说 ， 一 年 里 大 约 有 3 x 105 微 秒 ， 因 此 如 果 我 们 每 个 微 秒 做 一 次 cons ， 大 约 需要 有 10 个 存储 单元 就 可 以 构 
造 出 一 台 机 器 ， 它 可 以 运行 30 年 而 不 会 用 光 所 有 的 存储 器 。 按 照 今 天 的 标准 ， 这 样 的 存储 器 似乎 太 大 了， 但 
在 物理 上 这 并 不 是 不 可 能 的 。 而 在 另 一 方面 ， 处 理 器 的 速度 也 在 变 得 更 快 ， 明 天 的 一 台 计算 机 可 能 有 着 一 大 
批 处 理 器 ， 在 一 个 内 存 上 并 行 操作 ， 因 此 使 用 存储 的 速度 也 可 能 远 远 快 于 上 面 的 假定 。 
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达到 的 那些 对 象 ”“。 所 有 不 能 以 这 种 方式 访问 的 对 象 都 可 以 回收 了 。 

执行 废料 收集 的 方法 也 很 多 。 我 们 将 要 在 这 里 考察 的 方法 称 为 停止 并 复制 ， 其 基本 思想 
就 是 将 存储 器 分 成 两 半 ， 分 为 “工作 存储 区 ”和 “自由 存储 区 。 当 cons 需 要 构造 序 对 时 ， 
它 就 在 工作 存储 区 里 分 配 它 们 。 当 工作 存储 区 满 的 时 候 就 执行 废料 收集 ， 确 定位 于 工作 存储 
器 里 的 所 有 有 用 序 对 的 位 置 ， 并 将 它们 复制 到 自由 存储 区 里 的 一 些 连 续 位 置 去 。 确 定 有 用 序 
对 的 方式 是 从 机 器 的 寄存 器 出 发 ， 追 踪 所 有 的 car 和 cdr 指针。 由 于 我 们 不 复制 废料 ， 因 此 可 
以 预期 还 会 剩 下 一 些 自由 存储 ， 可 供 分 配给 新 的 序 对 。 此 外 ， 原 来 工作 存储 区 里 也 不 再 有 有 
用 的 东西 了 ， 因 为 其 中 有 用 的 序 对 都 已 复制 。 这 样 ， 如 果 我 们 交换 工作 存储 区 和 日 由 存储 区 
的 角色 ， 计 算 就 可 以 继续 进行 下 去 ， 在 新 的 工作 存储 区 〈 它 也 就 是 原来 的 自由 存储 区 ) 里 分 
配 新 的 序 对 。 当 这 一 存储 区 满 时 ， 我 们 又 可 以 将 其 中 有 用 的 序 对 复制 到 新 的 自由 存储 区 ( 它 
也 就 是 原来 的 工作 存储 区 ) ” 。 


停止 并 复制 废料 收集 的 实现 

现在 我 们 要 用 自己 的 寄存 器 机 器 语言 ， 给 出 这 种 停止 并 复制 算法 的 更 多 细节 。 现 在 假定 
存在 着 一 个 称 为 root 的 寄存 器 ， 其 中 包含 一 个 指针 ， 它 指向 了 一 个 结构 ， 该 结构 最 终 能 够 指 
向 所 有 可 以 访问 的 数据 。 这 件 事 情 很 容易 安排 ， 我 们 只 需 在 废料 收集 即将 开始 时 将 机 器 里 所 
有 寄存 器 的 内 容 保 存 到 一 个 预先 分 配 好 的 表 里 ， 并 让 root 指向 这 个 表 ”?!。 我 们 还 假定 ， 除 了 
当前 的 工作 存储 区 外 ， 还 存在 着 一 个 自由 存储 区 ， 可 以 把 有 用 的 数据 复制 进去 。 当 前 工作 存 
储 区 由 两 个 向 量 组 成 ， 其 基 址 分 别 存放 在 称 为 the-cars 和 the-cdrs 的 寄存 器 里 ， 自 由 存 
储 区 的 基 址 存放 在 寄存 器 new-carSs 和 new-cdrs 里 。 

当 计算 耗 尽 了 当前 工作 存储 区 里 的 所 有 自由 单元 时 ， 就 触发 了 废料 收集 。 也 就 是 说 ， 事 
情 发 生 在 某 次 cons 操 作 企 图 去 增加 free 指 针 ， 使 它 超出 当前 工作 存储 向 量 范围 的 时 候 。 当 
废料 收集 完成 时 ，root 指 针 将 指向 新 的 存储 区 ， 从 root 出 发 可 以 访问 的 所 有 对 象 都 已 经 移 
入 新 的 存储 区 。 而 Eree 指 针 指 向 新 存储 区 里 的 下 一 个 位 置 ， 新 的 序 对 将 从 那里 分 配 。 此 外 ， 
工作 存储 区 和 自由 存储 区 的 角色 也 交换 了 一 一 新 的 序 对 将 在 新 的 存储 区 里 分 配 ， 从 free 指 针 
所 指 的 位 置 开始 。( 原 先 的 ) 工作 存储 区 现在 已 经 变 成 可 用 的 新 存储 区 ， 它 将 用 于 下 一 次 废料 


2% 假定 这 里 的 堆栈 按照 5.3.1 节 的 描述 用 表 的 形式 表示 ， 因 此 位 于 堆栈 里 的 数据 项 都 可 以 通过 堆栈 寄存 器 访问 。 
300 这 一 思想 是 Minsky 发 明 并 最 早 实现 的 ， 作 为 MIT 电子 学 实验 室 里 郑 DP-1 所 做 的 Lisp 系统 的 一 部 分 。 Fenichel 
和 Yochelson (1969) 进一步 发 展 了 这 一 思想 ， 并 将 它 用 于 Multics 分 时 系统 中 的 Lisp 实现 。 后 来 Baker (1978 ) 
开发 出 这 一 思想 的 一 个 “实时 ”版 本 ， 其 中 不 需要 在 废料 收集 时 将 计算 停 下 来 。Baker 的 思 想 又 得 到 Hewitt、 
Lieberman 和 Moon 的 进一步 发 展 (参见 Lieberman and Hewitt 1983), ， 以 利用 实际 中 的 一 种 情况 ， 计算 中 得 到 
的 一 些 结构 更 具 变动 性 ， 而 另 一些 结 构 则 更 持久 些 。 
另 一 种 常用 的 废料 收集 技术 是 标记 — 清扫 方法 。 其 工作 过 程 包 括 追 踪 从 机 器 寄存 器 出 发 可 以 访问 的 所 有 
结构 ， 在 遇 到 每 个 结构 时 做 好 标记 。 而 后 扫描 整个 存储 区 ， 将 所 有 没有 标记 的 位 置 作为 废料 “ 扫 入 ”自由 空 
间 ， 使 其 可 以 重新 使 用 。 有 关 标 记 一 清扫 方法 的 更 完整 讨论 可 参见 Allen 1978, 
Minsky-Fenichel-Yochelson 的 算法 已 经 成 为 实用 的 大 型 存储 系统 的 主导 算法 ， 因 为 它 只 需要 检查 存储 器 
里 的 有 用 部 分 。 标 记 一 清扫 方法 的 情况 与 此 不 局 ， 那 里 的 清扫 阶段 必须 检查 存储 多 区 的 所 有 部 分 。 停 止 并 复制 
方法 的 另 一 优势 在 于 它 是 一 种 紧缩 型 废料 收集 算法 。 也 就 是 说 ， 在 废料 收集 阶 段 结 束 时 ， 有 用 数据 都 被 移 到 
一 片 连续 存储 位 置 中 ， 所 有 的 废料 都 被 挤 了 出 来 。 对 于 使 用 虚拟 存储 褒 的 机 器 而 言 ， 这 样 可 能 得 到 很 可 观 的 
性 能 提升 ， 因 为 在 这 种 系统 里 ， 访问 非常 分 散 的 存储 地 址 可 能 需要 更 多 的 换 页 操作 。 
301 这 一 寄存 器 表 里 并 不 包含 用 于 存储 分 配 系统 的 寄存 器 一 -root 、the-cars、the-cdrs， 以 及 这 一 节 里 引 
进 的 其 他 寄存 给 。 
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收集 。 图 5-15 显 示 的 是 在 一 次 废料 收集 之 前 和 之 后 的 存储 安排 情况 。 


废料 收集 之 前 


the-cars 


有 用 数据 与 废料 混合 工作 存储 区 


the-cdrs 


free 


new-cars pet 


new-cars 


废料 收集 之 后 


new-cars 


废弃 存储 区 新 空闲 
.存储 区 


new-cars 


the-cars 


有 用 数据 空闲 区 新 工作 
存储 区 


the-cdrs 


free 


图 5-15 废料 收集 过 程 完 成 存储 区 的 重新 配置 


废料 收集 过 程 中 的 状态 控制 也 就 是 维持 两 个 指针 ，free 和 scan。 它 们 被 初始 化 到 新 存 
储 区 的 开始 位 置 。 在 算法 开始 时 ， 我 们 把 root 所 指向 的 序 对 CR) 重新 分 配 到 新 存储 区 的 开 
始 位 置 。 在 复制 了 这 个 序 对 之 后 ，root 指 针 也 将 被 调整 为 指向 这 一 新 位 置 ，free 指 针 的 值 
被 增加 。 此 外 ， 还 要 在 这 一 序 对 原来 的 位 置 加 上 标记 ， 说 明 这 个 位 置 的 内 容 已 经 移 走 了 。 标 
记 方 法 如 下 : 在 原 序 对 的 car 位 置 里 放 一 个 特殊 标记 ， 表 示 这 是 一 个 已 经 移 走 的 对 象 〈 按 昭 
传统 ， 这 种 对 象 称 为 破碎 的 心 ) "“， 在 其 cdr 位 置 里 放 一 个 前 向 指针 ， 指 癌 这 个 对 象 移动 后 
的 新 位 置 。 

在 为 根 重新 分 配 之 后 ， 废 料 收集 程序 就 进入 了 它 的 基本 循环 。 在 这 个 算法 的 每 一 步 ， 扫 
描 指 针 scan (初始 时 指向 重新 分 配 的 根 ) 指向 的 是 一 个 本 身 已 经 移入 新 存储 区 的 对 象 ， 但 它 
的 car 和 cdr 指 针 仍 然 指 着 老 存储 区 里 的 对 象 。 现 在 要 重新 分 配 这 样 的 被 指 对 象 ， 并 相应 增加 


302 术语 破碎 的 心 是 David Cressey 创 造 的 ， 他 写 出 了 MDL 的 废料 收集 系统 。MDL 是 20 世纪 70 年 代 早期 在 MIT 开 
发 的 一 种 Lisp 方 言 。 
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scan 指 针 的 值 。 为 了 重新 分 配 一 个 对 象 (例如 由 我 们 正在 扫描 的 那个 序 对 的 car 指 针 指 向 的 
对 象 )， 我 们 需要 检查 它 ， 看 看 这 一 对 象 是 否 已 经 移 走 (看 这 个 对 象 的 car 位 章 是 否 存 放 着 一 
个 破碎 的 心 标记 )。 如 果 该 对 象 还 没有 移 走 ， 我 们 就 将 它 复制 到 由 free 所 指 的 位 置 ， 更 新 
free, 在 这 个 对 象 的 老 位 置 里 设置 破碎 的 心 标志 和 前 向 指针 ， 并 更 新 指向 这 个 对 象 的 指针 
(在 现在 的 假设 里 ， 也 就 是 正 被 扫描 的 序 对 里 的 car 指针 )， 使 之 指向 刚刚 确定 的 新 位 置 。 如 
果 这 一 对 象 已 经 移 走 ， 那 么 就 利用 它 的 前 向 指针 (可 以 从 破碎 的 心中 的 cdr 位 置 找 到 ) 替换 
正 被 扫描 的 序 对 里 的 指针 。 最 终 所 有 可 访问 的 对 象 都 完成 了 移动 和 扫描 ， 此 时 scan 指 针 将 超 
过 free 指 针 ， 这 一 过 程 就 结束 了 。 

我 们 可 以 用 一 部 寄存 器 机 器 的 指令 序列 描述 这 种 停止 并 复制 算法 。 重 新 分 配 一 个 对 象 的 
基本 步骤 由 一 个 称 为 relocate-old-result-in-new 的 子 程序 完成 。 这 个 子 程序 的 参数 
是 指向 需要 移动 的 对 象 的 指针 ， 它 来 自 一 个 称 为 019 的 寄存 器 。 子 程序 为 指定 对 象 重新 分 配 
存储 (在 这 一 过 程 中 ， 也 就 是 增 大 free 的 值 ) ， 将 重新 分 配 后 的 对 象 的 地 址 放 入 另 一 个 称 为 
new 的 寄存 器 ， 最 后 利用 分 支 指令 ， 按 照 保存 在 寄存 器 relocate-continue 里 的 入 口 点 返 
回 。 在 开始 进行 废料 收集 时 ,我们 在 初始 化 Eree 和 scan 之 后 调用 这 个 子 程序 ， 为 root 指 针 
做 重新 分 配 。 在 完成 了 root 的 重新 分 配 后 ， 我 们 就 将 root 指针 设置 到 新 的 根 位 置 ， 而 后 进 
入 废料 收集 程序 的 主 循环 。 

begin-garbage-collection 

(assign free (const 0)) 

(assign scan (const 0)) 

(assign old (reg root) ) 

(assign relocate-continue (label reassign-root) ) 

(goto (label relocate-old-result-—in-new) ) 
reassign-root 


(assign root (reg new)) 
(goto (label gc-loop) ) 


在 废料 收集 程序 的 主 循环 里 ， 我 们 必须 检查 是 否 还 存在 着 需要 扫描 的 对 象 。 完 成 此 事 的 
方式 就 是 检查 scan 指 针 是 否 已 经 与 Eree 指 针 重 合 。 如 果 这 两 个 指针 相等 ， 那 么 所 有 可 以 访 
问 对 象 都 已 完成 了 重新 分 配 ， 现 在 就 可 以 分 支 到 9c-f1ip 去 了 。 在 那里 需要 做 一 些 清理 工作 ， 
使 我 们 能 继续 进行 前 面 中 断 下 来 的 计算 。 如 果 还 有 需要 扫描 的 序 对 ， 我 们 就 调用 子 程序 ， 为 
下 一 个 序 对 的 car 做 重新 分 配 (将 那个 指针 car 放 入 01d )， 并 设置 relocate-continue 寄 
存 器 ， 使 子 程序 能 够 返回 到 更 新 car 指 针 的 位 置 。 


gc-loop 
(test (op =) (reg scan) (reg free) ) 
(branch (label gc-flip)) 
(assign old (op vector-ref) (reg new-cars) (reg scan)) 
(assign relocate-continue (label update-car) ) 
(goto (label relocate-old-result-in-new) ) 


在 update-car 之 后 ,我 们 修改 被 扫描 的 这 个 序 对 的 car 指 针 ， 而 后 去 处 理 这 个 序 对 的 
cdr 指 针 。 这 次 完成 重新 分 配 之 后 返回 到 update-cdr。 在 对 cdr 的 重新 分 配 和 更 新 之 后 ， 
对 于 这 一 序 对 的 扫描 已 经 完成 ， 此 时 就 可 以 继续 进行 主 循环 了 。 


update-car 


N 
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(perform 
(Oop vegwtor-set!) (reg new-cars) (reg scan) (reg new)) 
(assign old (op vector-ref) (reg new-cdrs) {reg scan) ) 


(assign relocate-continue (label update-cdr) ) 
(goto {label relocate-old-result-in-new) ) 


update~-cdr 
(perform 
(op vector-set!) (reg new-cdrs) (reg scan) (reg new) ) 
(assign scan (op +) (reg scan) (const 1)) 
(goto (label gc-loop) ) 


子 程序 relocate-old-Iesult-in-new 按 如 下 方式 重新 分 配对 象 : 如 果 要 求 重新 分 
配 的 对 象 (由 old 指 向 ) 不 是 序 对 ， 那 么 子 程序 就 返回 指向 该 对 象 的 同一 个 指针 ， 并 不 做 任 
何 修改 (在 new 里 )。 举 例 说 ， 如 果 现 在 扫描 到 一 个 序 对 ， 其 car 部 分 是 数 4。 如 果 我 们 像 
5.3.1 节 所 言 ， 将 这 个 car 部 分 表示 为 hn4 ， 那 么 我 们 当然 希望 “重新 分 配 ” 后 的 car 指针 仍然 
是 n4 。 如 果 情 况 不 是 这 样 ( 遇 到 的 是 序 对 ) ， 那 么 就 必须 执行 重新 分 配 操作 。 如 果 要 求 重 新 分 
配 的 位 置 里 包含 着 一 个 破碎 的 心 标记 ， 那 就 说 明 该 序 对 已 经 移 走 了 ， 因 此 需要 提取 出 其 中 的 
前 向 地 址 (从 破碎 的 心里 的 cdr 位 置 )， 并 在 new 里 返回 这 个 地 址 。 如 果 指 针 o1d 指 向 的 是 一 
个 尚未 移动 的 序 对 ， 那 就 把 这 个 序 对 移 到 新 存储 区 里 的 第 一 个 自由 位 置 (由 frzee 指 向 ) ， 将 
破碎 的 心 标 志和 前 向 指针 存 和 人 这 一 序 对 的 老 位 置 ， 设 置 好 这 个 破碎 的 心 。relocate~old- 
result-in-new 用 寄存 器 oldcr 保 存 由 old 指 向 的 对 象 的 caz 或 者 Cdr20 。 


relocate-old-result-in-new 
(test (op pointer-to-pair?) (reg old)) 
(branch (label pair)) 
(assign new (reg old)) 
(goto (reg relocate-continue) ) 
pair 
(assign older (op vector-ref) (reg the-cars) (reg old)) 
(test (op broken-heart?) (reg oldcr)) 
(branch (label already-moved) ) 
(assign new (reg free)) ; new location for pair 
;; Update free pointer. 
(assign free (op +) (reg free) (const 1)) 
s Copythe car and cdr to new memory. 
(perform (op vector-set!) 
(reg new-cars) (reg new) (reg oldcr)) 
(assign older (op vector-ref) (reg the-cdrs) (reg old) ) 
(perform (op vector-set! ) 
(reg new-cdrs) (reg new) (reg oldcr)) 
+: Construct the broken heart. 
(perform (op vector-set!) 
(reg the-cars) (reg old) (const broken-heart) ) 


303 这 一 废料 收集 程序 使 用 了 一 个 低级 谓词 pointer-to-~pairz? ， 而 没有 用 表 结 构 操 ffPaiz? ， 这 是 因为 在 真 
实 的 系统 里 ， 有 许多 不 同 的 东西 都 需要 为 了 废料 收集 而 当 作 序 对 来 处 理 。 举 例 说 ， 在 一 个 符合 IEEE 标 准 的 
Scheme 系统 里 ， 一 个 过 程 对 象 也 可 能 被 实现 为 一 类 特别 的 “ 序 对 ”， 它 们 就 不 会 满足 Pair? 谓 词 。 如 果 RE 
为 了 模拟 ， 那 么 我 们 就 可 以 用 pair? 实 现 pPointer-to-pair?。 
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(perform 
(op vector-set!) (reg the-cdrs) (reg old) (reg new)) 
(goto (reg relocate-continue) ) 

already-moved — 

(assign new (op vector-ref) (reg the-cdrs) (reg old)) 
(goto (reg relocate-continue) ) 

在 这 一 废料 收集 过 程 的 最 后 ， 我 们 还 需要 交换 老 存储 区 和 新 存储 区 的 角色 ， 为 此 只 需 交 
换 指 针 的 值 ， 将 the-cars 与 new-Ccars 交 换 ，the-cqQrs 与 New-cdrs 交换 。 这 样 就 已 经 做 
好 了 准备 ， 可 以 在 下 次 存储 区 耗 尽 时 执行 下 一 次 废料 收集 了 。 

gc-flip 

(assign temp (reg the-cdrs) ) 
(assign the-cdrs (reg new-cdrs) ) 
(assign new-cdrs (reg temp) ) 
(assign temp (reg the~cars)) 
(assign the-cars (reg new-cars) ) 
(assign new-cars (reg temp) ) 


5.4 PRH BAKER 


在 5.1 节 里 ， 我 们 看 到 如 何 将 简单 的 Scheme 程序 变换 为 寄存 器 机 器 的 描述 。 下 面 将 要 对 一 
个 更 复杂 的 程序 做 这 种 变换 。 这 里 将 要 处 理 的 就 是 4.1.1 节 到 4.1.4 节 讨论 的 元 循环 求 值 器 ， 该 
程序 说 明了 一 个 Sctheme 解 释 器 的 行为 可 以 怎样 用 一 对 过 程 eval 和 apply 描 述 。 在 本 节 里 ， 
我 们 将 要 开发 一 个 显 式 控制 求 值 器 ， 用 以 说 明 求 值 过 程 中 所 用 的 过 程 调用 的 参数 传递 的 基础 
机 制 ， 说 明 如 何 基于 寄存 器 和 堆栈 操作 描述 这 种 机 制 。 除 此 之 外 ， 显 式 控制 求 值 器 还 可 以 作 
为 Scheme 解释 器 的 一 种 实现 ， 而 且 ， 描 述 这 一 实现 时 所 用 的 语言 也 非常 接近 常规 计算 机 的 本 
机 机 器 语言 。 这 个 求 值 器 可 以 在 5.2 节 的 寄存 器 机 器 模拟 器 上 执行 。 换 一 个 看 法 ， 它 也 可 以 用 
作 构 造 一 个 机 器 语言 的 Scheme 求 值 器 实现 的 出 发 点 ， 或 者 甚至 是 作为 一 个 求 值 Scheme 表达 式 
的 特殊 机 器 的 出 发 点 。 图 5-16 显 示 的 就 是 这 样 一 个 硬件 实现 : 一 片 作 为 Scheme 求 值 器 的 硅 芯 
片 。 这 一 芯片 的 设计 者 就 是 从 描述 一 部 寄存 器 机 器 的 数据 通路 和 控制 器 规范 开始 ， 类 似 于 我 
们 将 要 在 本 节 里 描述 的 求 值 器 ， 而 后 利用 设计 自动 化 工具 程序 ， 构 造 出 集成 电路 的 布线 ”。 


寄存 器 和 操作 
在 设计 显 式 控制 求 值 器 时 ， 我 们 必须 描述 用 于 这 部 寄存 器 机 器 的 各 种 操作 。 在 采用 抽象 
语法 的 方式 描述 元 循环 求 值 器 时 使 用 了 一 些 过 程 ， 例 如 quoted? 和 make~procedure。 为 
了 实现 相应 的 寄存 器 机 器 ， 我 们 就 需要 将 这 些 过 程 展开 为 基本 的 表 结 构 操作 序列 ， 在 我 们 的 
寄存 器 机 器 上 实现 这 些 操作 。 当 然 ， 这 样 做 会 使 这 个 求 值 器 变 得 非常 长 ， 使 它 的 基本 结构 被 
许多 细节 和 弄 得 很 不 清楚 。 为 使 这 一 展示 更 清晰 一 些 ， 我 们 将 把 4.1.2 节 中 给 出 的 语法 过 程 A 
及 在 4.1.3 和 4.1.4 节 给 出 的 表示 环境 和 其 他 运行 时 数据 的 过 程 ， 都 作为 这 一 寄存 器 机 器 的 基本 
操作 。 如 果 要 完整 地 描述 这 一 求 值 器 ， 使 它 能 用 低级 的 机 器 语言 编程 实现 ， 或 者 在 硬件 中 实 
现 ， 我 们 就 需要 用 更 基本 的 操作 取代 这 些 操作 ， 还 要 用 到 5.3 节 所 解释 的 表 结 构 实现 。 
; 我 们 的 Scheme 求 值 器 寄存 器 机 器 里 包含 了 一 个 堆栈 和 七 个 寄存 器 : exp, env, val, 
continue、proc、argl 和 unev。exp 用 于 掌握 住 被 求 值 的 表达 式 ，env 里 包含 着 这 一 求 


304 有 关 这 个 芯片 及 其 设计 方法 的 更 多 信息 ， 可 以 参见 Batali, et al. 1982, 


_384 SE FARM BETH 


值 的 进行 所 在 的 环境 。 在 求 值 结束 时 ，val 里 包含 着 通过 在 指定 环境 里 求 值 表 达 式 得 到 的 结 
果 。continue 寄 存 器 用 于 实现 递归 ， 就 像 3.1.4 布 里 所 解释 的 那样 (这 一 求 值 器 需要 调用 其 
自身 ， 因 为 对 一 个 表达 式 的 求 值 将 要 求 对 其 中 的 子 表 达 式 求 值 )。 寄 存 器 proc、argl 和 
unev 用 在 求 值 组 合式 的 时 候 。 
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图 5-16 实现 了 一 个 Scheme 求 值 器 的 心 片 


我 们 将 不 再 画 数据 通路 图 去 说 明 求 值 器 里 的 寄存 器 与 操作 如 何 连 接 ， 也 不 准备 罗列 出 这 
一 机 器 中 所 有 操作 。 这 些 都 隐 含 在 求 值 器 的 控制 器 里 ， 下 面 要 介绍 它 的 各 方面 细 市 。 


5.4.1 显 式 控制 求 值 器 的 内 核 


这 一 求 值 器 的 核心 部 分 是 从 eval-dispatch 开 始 的 指令 序列 ， 它 对 应 于 4.1.1 市 中 描述 
的 元 循环 求 值 器 里 的 eval1 过 程 。 当 控制 器 从 eval-dispatch 开 始 工作 时 ， 它 将 在 由 env 确 
定 的 环境 里 对 由 exp 确 定 的 表达 式 求 值 。 当 这 一 求 值 完成 时 ， 控制 器 将 进入 保存 在 寄存 强 
continue 里 的 入 口 点 ,而 Val 寄 存 器 里 保存 着 表达 式 的 值 。 就 像 元 循环 求 值 器 里 的 eval 一 
样 ，eval-dispatch 的 结构 也 是 一 个 基于 被 求 值 表达 式 的 类 型 的 分 情况 分 析 ”。 


eval-dispatch 
(test (op self-evaluating?) (reg exp)) 
(branch (label ev-self-eval) ) 
(test (op variable?) (reg exp)) 
(branch (label ev-variable) ) 
(test (op quoted?) (reg exp) ) 
(branch (label ev-quoted) ) 
(test (op assignment?) (reg exp) ) 
(branch (label ev-assignment) ) 
(test (op definition?) (reg exp)) 
(branch (label ev-definition) ) 
(test (op if?) (reg exp)) 


在 这 个 求 值 器 里 ， 分 派 采 用 一 系列 test 和 branch 指 令 描述 。 也 可 以 换 一 种 方式 ， 采 用 一 种 数据 导向 的 风格 
写 出 它 来 (在 真实 的 系统 里 常常 是 这 样 )， 以 避免 执行 一 系列 检测 的 需要 ， 并 能 有 利于 定义 新 的 表达 式 类 型 。 
一 台 特 别 为 运行 Lisp 而 设计 的 机 器 中 很 可 能 包含 一 条 dispatch-on-type 指 令 ， 它 能 有 效 地 执行 这 种 数据 
导向 的 分 派 工作 。 
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(branch {label ev-if)) 

(test (op lambda?) (reg exp) ) 

(branch (label ev-lambda) ) 

(test (op begin?) (reg exp)) 

(branch (label ev-begin) ) 

(test (op application?) (reg exp)) 
(branch (label ev-application) ) 

(goto (label unknown-expression-type) ) 


简单 表达 式 的 求 值 
数 和 字符 串 (它们 都 是 自 求 值 的 )、 变 量 、 引 号 式 和 1Lambda 表 达 式 中 都 设 有 需要 进一步 
求 值 的 子 表 达 式 ， 对 于 它们 ， 求 值 器 简单 地 将 正确 的 值 放 入 val 寄 存 器 里 ， 并 从 continue 
所 描述 的 入 口 点 继续 执行 下 去 。 对 简单 表达 式 的 求 值 由 下 面 的 控制 器 代码 完成 : 
ev-self-eval 
(assign val (reg exp) ) 
(goto (reg continue) ) 
ev-variable 
(assign val (op lookup-variable-value) (reg exp) (reg env)) 
(goto (reg continue) ) 
ev-quoted è 
(assign val (op text-of-quotation) (reg exp)) 
(goto (reg continue) ) | 
ev-lambda 
(assign unev (op lambda-parameters) (reg exp)) 
(assign exp (op lambda-body) (reg exp)) 
(assign val (op make-procedure) 
(reg unev) (reg exp) (reg env)) 
(goto (reg continue) ) 


请 注意 ev-lambda 怎 样 利用 unev 和 exp 寄 存 器 保存 参数 和 lambda 表 达 式 的 体 ， 使 它们 可 以 
作为 参数 ， 与 env 里 的 环境 一 起 传递 给 make-procedure 操 作 。 


过 程 应 用 的 求 值 

过 程 应 用 由 组 合式 描述 ， 共 中 包含 了 运算 符 和 运算 对 象 。 这 个 运算 符 是 一 个 子 表达 式 ， 
其 值 是 一 个 过 程 ， 而 运算 对 象 是 一 些 子 表 达 式 ， 它 们 的 值 就 是 这 个 过 程 应 该 作用 于 的 实际 参 
数 。 在 元 循环 求 值 器 里 ，eval 处 理 过 程 应 用 的 方式 是 递归 地 调用 自己 ， 去 求 值 组 合式 里 的 每 
个 元 素 ， 而 后 将 结果 送 给 apply， 由 它 去 执行 实际 过 程 应 用 。 显 式 控 制 求 值 器 也 需要 做 同样 
的 事情 ， 那 些 递归 调用 都 通过 goto 指 令 实 现 ， 还 需要 用 堆栈 保存 起 一 些 寄存 器 ， 以 便 在 递归 
调用 返回 之 后 恢复 它们 。 在 每 个 调用 之 前 ， 我 们 都 需要 仔细 辩 明 哪些 寄存 器 必须 保存 (因为 
后 面 还 需要 它们 的 值 ) ™。 

在 对 过 程 应 用 求 值 时 ， 我 们 首先 求 值 运算 符 以 产生 出 一 个 过 程 ， 这 个 过 程 后 来 要 被 应 用 
于 求 值 得 到 的 那些 实际 参数 。 为 了 完成 运算 符 的 求 值 ， 我 们 需要 将 它 移入 exPp 寄 存 器 并 转 回 


%6 在 把 用 过 程 性 语言 (例如 Lisp) 描述 的 算法 翻译 为 寄存 器 机 器 语言 时 ， 这 个 问题 特别 重要 ， 其 中 的 细 棱 末节 
很 多 。 如 果 不 采用 只 保存 必须 保存 的 东西 的 方式 ,我们 也 可 以 在 每 次 递归 调用 之 前 保存 所 有 寄存 器 (除了 
val 之 外 ), 这 种 方式 称 为 框架 堆栈 方式 ， 它 当然 能 工作 ， 但 是 却 可 能 保存 了 一 些 并 不 必须 保存 的 寄存 器 。 
对 那 种 堆栈 操作 代价 品 贵 的 系统 ， 这 样 做 可 能 对 系统 性 能 产生 很 大 影响 。 将 那些 后 面 不 再 需要 的 检查 保存 起 

”来 ,还 可 能 维持 了 一 些 原 本 可 以 经 过 废料 收集 ， 回 到 自由 空间 重复 使 用 的 无 用 数据 。 
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到 eval-dispatch。 位 于 env 寄 存 器 里 的 环境 就 是 求 值 这 个 运算 符 时 所 需要 的 正确 环境 。 
但 是 我 们 还 是 需要 保存 起 这 一 环境 ， 以 便 将 来 用 于 运算 对 象 的 求 值 。 在 这 里 还 必须 把 运算 对 
象 提 取出 来 存 和 人 unev， 并 将 它 保存 到 堆栈 里 。 还 要 设 好 continue， 使 得 eval-dispatch 
能 在 运算 符 求 值 完毕 之 后 回 到 ev-appl-did-operator,。 在 做 这 件 事 情 之 前 ， 必 须 先 把 
continue 的 原 值 存 和 堆栈， 这 个 值 告诉 控制 器 在 完成 过 程 应 用 之 后 应 转向 何 处 。 
ev-application 
(save continue) 
(save env) 
(assign unev (op operands) (reg exp)) 
(save unev) 
(assign exp (op operator) (reg exp)) 
(assign continue (label ev-appl-did-operator) ) 
(goto (label eval-dispatch) ) 
在 对 于 运算 符 子 表达 式 的 求 值 返回 后 ， 我 们 需要 继续 去 求 值 组 合式 里 的 各 个 运算 对 象 ， 
并 将 求 出 的 实际 参数 积累 到 一 个 表 里 ， 保 存 到 arg1l1 中 。 为 此 ， 我 们 需要 首先 恢复 未 求 值 的 运 
算 对 象 及 其 求 值 环境 ， 并 将 arg1 初 始 化 为 一 个 空 表 。 而 后 将 Proc 寄 存 器 设置 为 求 值 运算 符 
产生 出 的 那个 过 程 。 如 果 当时 没有 运算 对 象 ， 我 们 就 直接 转 到 apply-dispatch。 如 有 果 有 运 
算 对 象 ， 那 么 就 将 proc 保 存 到 堆栈 里 ，、 并 开始 执行 参数 求 值 循环 ”。 


ev-appl-did-operator 
(restore unev) ; the operands 
(restore env) 
(assign argl (op empty-arglist)) 
(assign proc (reg val)) ; the operator 
(test (op no-operands?) (reg unev)) 
(branch (label apply-dispatch) ) 
(save proc) 


每 执行 一 次 参数 求 值 循环 ， 完 成 对 取 自 unev 里 的 表 里 的 一 个 参数 的 求 值 ， 并 把 结果 积累 
到 argl 里 。 在 求 值 一 个 运算 对象 时 ， 我 们 也 把 它 放 入 exp 寄 存 器 ， 并 在 设置 continue 寄 存 
器 后 转 到 evalL-dispatch ， 以 便 这 个 积累 实际 参数 的 阶段 还 能 继续 下 去 。 在 转移 之 前 ， 还 
需要 保存 至 今 已 积累 起 来 的 实际 参数 (保存 在 azg1l 里 )， 求 值 环境 (保存 在 env) ， 以 及 剩 下 
的 那些 尚未 求 值 的 参数 (保存 在 unev )。 对 于 最 后 一 个 参数 的 求 值 是 一 种 特别 情况 ， 由 下 面 
的 ev~appl-last-arg 处 理 。 


ev-a&ppl-operand-loop 
(save argl) 
(assign exp (op first-operand) (reg unev)) 


307 我 们 需要 为 4.1.3 节 里 求 值 器 的 数据 结构 过 程 增加 下 面 两 个 操作 参数 表 的 过 程 ， 
(define (empty-arglist). '(})) 


(define (adjoin-arg arg arglist) 
(append arglist (list arg)))} 
还 需要 增加 下 面 的 语法 过 程 ， 以 检查 组 合式 的 最 后 参数 : 


(define (last~-operand? ops) 
(null? (cdr ops))) 
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(test (op last-operand?) (reg unev)) 

(branch (label ev-appl-last-arg) ) 

{save env) 

(save unev) 

(assign continue (label ev-appl-accumulate-arg) ) 
(goto (label eval-dispatch) ) 


在 完成 了 对 一 个 运算 对 象 的 求 值 后 ， 这 个 值 就 被 累积 到 argl1 的 表 里 ， 而 后 将 这 一 参数 从 
unev 里 尚未 求 值 的 运算 对 象 表 中 删除 ， 并 继续 对 下 面 的 参数 求 值 。 
ev-appl-accumulate-arg 
(restore unev) 
(restore env) 
(restore argl) 
(assign argl (op adjoin-arg). (reg val) (reg argl)) 
(assign unev (op rest~operands) (reg unev)) 
(goto (label ev-appl-operand-loop) ) 


最 后 一 个 参数 的 求 值 需要 不 同 的 处 理 方式 。 这 次 在 转 入 eval-dispatch 之 前 ， 已 经 不 
再 需要 保存 环境 和 未 求 值 参 数 的 表 了 ， 因 为 在 最 后 一 个 运算 对 象 求 值 之 后 ， 它 们 也 都 不 需要 
了。 这样 ， 我 们 将 从 这 一 求 值 返回 到 一 个 特殊 的 入 口 点 ev-appl-accum-last-arg， (af 
里 恢复 实际 参数 表 ， 并 将 新 的 实际 参数 放 进 去 ， 恢 复 前 面 保存 的 过 程 并 转 去 执行 过 程 应 用 ””。 
ev-appl-last-arg 
(assign continue (label ev-appl-accum-last-arg) ) 
(goto (label eval-dispatch) ) 
ev-appl-accum-last-arg 
(restore argl) 
(assign argl (op adjoin-arg) (reg val) (reg argl)) 
(restore proc) 
(goto (label apply-dispatch) ) 
参数 求 值 循环 的 细节 情况 确定 了 解释 器 对 组 合式 中 各 个 运算 对 象 的 求 值 顺 序 (Bl, MA 
到 右 或 者 从 右 到 左 一 一 见 练习 3.8 ) 。 元 循环 求 值 器 并 没有 明确 规定 这 一 顺序 ， 而 是 由 它 的 实现 
所 在 的 那个 基础 Scheme 继 承 得 到 自己 的 控制 结构 ”。 因为 first-operand 选 择 函 数 (用 在 
ev-appl-operand-loop#, 用 于 从 unev 提 取 顺 序 的 各 个 运算 对 象 ) 用 car 实 现 ， 而 选择 
函数 rest-operands 用 cdr 实 现 , 现在 这 个 显 式 控制 求 值 器 将 采用 从 左 到 右 的 顺序 求 值 组 
合式 里 的 各 个 运算 对 象 。 
过 程 应 用 | 
入 口 点 applLy-dispatch 对 应 于 元 循环 求 值 器 的 apP1Y 过 程 。 在 我 们 到 达 aPP1Y- 
dispatch 的 时 候 ， 寄存 器 Proc 里 包含 着 需要 应 用 的 过 程 ，arg1 里 包含 着 过 程 将 要 去 应 用 
的 已 经 求 出 值 的 实际 参数 表 。 保 存 起 的 continue 值 (最 开始 是 返回 到 eval-dispatch,， 


308 对 最 后 参数 采用 这 种 特殊 的 优化 处 理 方式 ， 称 为 表 求 值 的 尾 北 归 ( 见 Wand 1980)。 如 果 我 们 把 对 于 第 一 个 参 
数 的 求 值 也 作为 特殊 情况 对 待 ， 那 么 就 可 能 使 参数 表 的 求 值 更 加 高 效 。 因为 这 将 使 我 们 可 以 推迟 对 arg1 的 
初始 化 ， 直 到 做 完 第 一 个 参数 的 求 值 ， 因 此 也 避免 了 保存 azg1 的 工作 。 在 5.5 节 的 编译 器 执行 了 这 种 优化 
(请 与 5.5.3 节 的 construct-arglist 过 程 做 一 个 比较 ) 。 

30 在 元 循环 求 值 器 里 ， 运算 对 象 的 求 值 顺 序 是 由 4.1.1 节 中 位 于 过 程 Iist-of-values 里 的 cons 对 参数 的 求 值 
顺序 确定 的 〈 参 见 练 214.1). 
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在 ev-application 保 存 的 ) 在 堆栈 里 ， 它 告诉 我 们 在 得 到 了 过 程 应 用 的 结果 之 后 应 该 返回 
到 哪里 。 当 这 次 应 用 完成 后 ， 控 制 器 将 转移 到 由 保存 起 的 continue 值 所 确定 的 入 口 点 ， 过 
程 应 用 的 结果 存放 在 val 里 。 就 像 元 循环 求 值 器 里 的 apP1LY 一 样 ， 现 在 也 有 两 种 情况 需要 考 
虑 ， 因 为 被 应 用 的 过 程 可 能 是 基本 过 程 ， 也 可 能 是 组 合 过 程 。. 
apply-dispatch 

(test (op primitive-procedure?) (reg proc) ) 

(branch (label primitive-apply) ) 

(test (op compound-procedure?) {reg proc)) 

(branch (label compound-apply) ) 

(goto (label unknown-procedure-type) ) 

我 们 假定 每 个 基本 过 程 的 实现 方式 都 保证 它 能 从 azg1 获 取 自 己 的 实际 参数 表 ， 并 将 结果 
存 入 val 里 。 为 了 描述 这 一 机 器 如 何 处 理 基本 过 程 ， 我 们 就 必须 提供 一 个 控制 器 的 指令 序列 ， 
实现 每 一 个 基本 过 程 ， 并 为 Primitive-apply 做 好 一 种 安排 ,使 之 能 分 派 到 由 proc 的 内 容 
确定 的 基本 过 程 的 指令 序列 。 由 于 我 们 感 兴 趣 的 是 求 值 过 程 的 结构 ， 而 不 是 基本 过 程 的 细节 ， 
这 里 将 不 做 上 面 所 说 的 事情 ， 而 仅仅 用 一 个 apply-primitive-procedure 操 作 ， 表 示 把 
pzoc 里 的 过 程 应 用 于 argl 里 的 实际 参数 。 为 了 能 用 5.2 市 的 模拟 器 去 模拟 这 个 求 值 器 ， 我 们 
用 了 一 个 过 程 apPP1Y-PIimitive-pbrocedure ， 它 基于 基础 的 Scheme 系统 去 执行 有 关 的 过 
程 应 用 ， 这 与 在 前 面 4.1.4 节 元 循环 求 值 器 里 的 做 法 一 样 。 在 计算 出 基本 过 程 应 用 的 值 之 后 ， 
我 们 恢复 寄存 器 continue ， 并 转 到 它 所 指定 的 入 口 点 。 


primitive-apply 
(assign val (op apply-primitive-procedure) 
(reg proc) 
(reg argl)) 
(restore continue) 
(goto (reg continue) ) 


在 应 用 一 个 组 合 过 程 时 ， 这 里 采用 的 做 法 也 与 元 循环 求 值 器 里 相同 。 我 们 将 构造 起 一 个 
框架 ， 其 中 把 过 程 的 形式 参数 约束 于 对 应 的 实际 参数 ， 用 这 一 框架 扩充 过 程 所 携带 的 环境 ， 
并 在 这 一 扩充 后 的 环境 里 求 值 构成 过 程 体 的 表达 式 序列 。 有 关 表 达 式 序列 的 求 值 问题 由 下 面 
5.4.2 节 描述 的 ev-segquence 处 理 。 


compound-apply 
(assign unev (op procedure-parameters) (reg proc) ) 
(assign env (op procedure-environment) (reg proc) ) 
(assign env (op extend~environment ) 
(reg unev) (reg argl) (reg env) ) 
(assign unev (op procedure-body) (reg proc) ) 
“(goto (label ev-sequence) ) 


在 这 个 解释 器 里 ， 只 有 在 compound-apP1y 处 需要 给 env 寄 存 器 赋 一 个 新 值 。 正 如 在 元 
循环 求 值 器 里 一 样 ， 这 个 新 环境 是 在 过 程 所 携带 的 环境 的 基础 上 构造 起 来 的 ， 加 入 了 实际 参 
数 表 与 相应 的 变量 表 的 约束 。 


5.4.2 ”序列 的 求 值 和 尾 递归 
在 显 式 控制 求 值 器 里 ,位 于 ev-sequence 的 部 分 与 元 循环 求 值 器 里 的 eval~sequence 
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过 程 类 似 。 它 处 理 过 程 体 里 或 者 显 式 的 begin 表 达 式 里 的 表达 式 序 列 。 
在 求 值 显 式 的 begin 表 达 式 时 ， 我 们 先 把 被 求 值 的 表达 式 序列 放 入 unev, 将 continue 
保存 到 堆栈 里 ， 而 后 转 跳 到 ev-~sequence。 
ev-begin r 
(assign unev (op,pegin-actions) (reg exp)) 
(save continue) 
(goto (label ev-sequence) ) 


对 于 过 程 体 里 的 隐 式 序列 的 处 理 ， 就 是 直接 从 compound-apP1y 跳 到 ev-segquence 。 在 这 
一 点 ， 所 需 的 continue 已 经 保存 在 堆栈 里 ， 这 是 由 ev-application 保 存 的 。 

位 于 ev-sequence 的 人口 和 ev-sequence-continue 形 成 了 一 个 循环 ， 循 环 中 顺序 
地 求 值 序列 里 的 一 个 个 表达 式 。 尚 未 求 值 的 表达 式 表 保 存在 unev 。 在 对 一 个 表达 式 求 值 之 前 ， 
我 们 要 检查 这 个 序列 里 是 否 还 有 另外 的 表达 式 需 要 求 值 。 如 果 有 ， 那 么 就 把 剩 下 的 未 求 值 表 
达 式 (在 unev 里 ) 和 当时 的 环境 (在 env 里 ) 保存 到 堆栈 ， 因 为 在 求 值 那些 表达 式 时 还 需要 
用 这 个 环境 。 然 后 去 调用 evalL-disPpatch 完 成 表达 式 的 求 值 。 从 这 一 求 值 返回 后 ， 在 ev- 
sequence-continue 处 恢复 保存 起 来 的 两 个 寄存 器 。 

对 序列 里 最 后 一 个 表达 式 采 用 了 不 同 的 处 理 方式 ， 由 入 口 点 ev-sequence-last-exp 
处 理 。 因 为 到 这 时 ， 求 值 完 这 个 表达 式 后 已 经 没有 其 他 表达 式 了 ， 因 此 在 转 入 eval- 
dispatch 之 前 就 不 需要 保存 nev 和 env。 整 个 序列 的 值 也 就 是 最 后 这 个 表达 式 的 值 ， 因 此 ， 
在 对 最 后 这 个 表达 式 的 求 值 完成 后 已 经 不 必 再 做 其 他 事情 ， 只 需要 从 当时 堆栈 里 保存 的 入 口 
点 继续 下 去 (这 是 由 ev-application 或 者 ev-begin 保 存 的 )。 此 时 不 应 该 采用 准备 好 
continue 为 evalLl-dispatch 做 好 返回 这 里 的 安排 ， 而 后 从 堆栈 里 恢复 Continue 并 从 这 
个 入 口 点 继续 的 方式 ， 而 是 在 转 到 eval-dispatch 前 ， 直 接 从 堆栈 里 恢复 continue。 这 
就 使 eval-dispatch 在 完成 了 这 里 的 表达 式 求 值 之 后 ， 能 够 从 continue 里 的 那个 入 口 点 
继续 下 去 。 


ev-sequence 
(assign exp (op first-exp) (reg unev)) 
(test (op last-exp?) (reg unev)) 
(branch (label ev-sequence-last-exp) ) 
(save unev) 
(save env) 
(assign continue (label ev-sequence-—continue) ) 
(goto (label eval-dispatch) ) 
ev-sequence-continue 
(restore env) 
(restore unev) 
(assign unev (op rest-exps) (reg unev) ) 
(goto (label ev-sequence) ) 
ev-sequence-last-exp 
(restore continue) 
(goto (label eval-dispatch) ) 


尾 递归 
在 第 1 章 里 我 们 说 过 ， 由 例如 下 面 过 程 描述 的 计算 


(define (sqrt-iter guess x) 
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(if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) 
| x))) 

实际 上 是 一 个 迭代 过 程 。 即 使 这 个 过 程 定义 在 语法 上 是 递归 的 《 基 左 它 自身 定义 ) ， 从 逻辑 上 
说 ， 求 值 器 在 从 对 sqrt-iter 的 一 个 调用 转 到 下 一 个 调用 时 ， 完 念 麻 必 保 存 信息 ;*。 如 果 一 
个 求 值 器 在 执行 像 sqrt-iter 这 样 的 过 程 时 ， 采 用 的 方式 能 使 在 该 过 程 继 续 调用 自身 时 不 需 
Se ee, RAR RA Li PRS. EASE RAR CARRAR, RFE 
有 描述 清楚 该 求 值 器 是 否 为 尾 递 归 的 ， 因 为 那个 求 值 器 从 基础 Scheme 系统 继承 了 保存 状态 的 
机 制 。 对 于 现在 的 显 式 控制 求 值 器 ， 我 们 当然 就 可 以 追踪 全 部 的 求 值 过 程 ， 仔 细 观 察 在 过 程 
调用 时 堆栈 里 的 信息 堆积 情况 。 

我 们 这 里 的 求 值 器 确实 是 尾 递 妇 的 ， 因 为 在 求 值 一 个 序列 里 的 最 后 一 个 表达 式 时 ， 求 值 
器 是 直接 转 到 eval-dispatch ， 并 没有 把 任何 信息 存 人 堆栈 。 这 样 ， 对 于 序列 里 最 后 一 个 
表达 式 的 求 值 一 一 即使 这 是 一 次 过 程 调用 (就 像 在 sqrt-~iter 里 ， 过 程 体 里 的 最 后 表达 式 也 
就 是 那里 的 1f£ 表 达 式 ， 该 表达 式 将 归结 到 一 个 对 sqrt~iter 的 调用 ) 一 一 也 不 会 导致 晤 堆栈 
里 积累 任何 信息 ”。 

如 果 我 们 不 想 利用 这 一 情况 带 来 的 益处 (在 这 里 完全 不 必 保 存 信息 )， 那 么 也 可 以 采用 如 
下 方式 实现 eval-sequence， 以 同样 方式 统一 处 理 序 列 里 所 有 的 表达 式 一 一 将 寄存 器 内 容 
存 入 堆栈 ， 求 值 表 达 式 ， 返 回 时 恢复 寄存 器 。 重 复 地 这 样 做 ， 直 至 完成 所 有 表达 式 的 求 值 “。 

ev-sequence 

(test (op no-more-exps?) (reg unev)) 

(branch (label ev-sequence-end) ) 

(assign exp (op first-exp) (reg unev)) 

(save unev) 

(save env) 

(assign continue (label ev-sequence-continue) ) 

(goto (label eval-dispatch))} 
ev-sequence-continue 

{restore env) 

(restore unev) 

(assign unev (op rest-exps) (reg unev)) 

(goto (label ev-sequence) ) 
ev-sequence-end 


(restore continue) 
(goto (reg continue) ) 


这 看 起 来 好 像 只 是 对 前 面 有 关 序 列 求 值 的 代码 做 了 一 点 小 变动 ， 仅 有 的 不 同 点 就 是 对 序 


n 在 5.1 节 里 ， 我 们 已 经 看 到 过 如 何在 一 个 寄存 器 机 器 里 实现 这 种 计算 过 程 ， 那 里 并 没有 堆栈 ,计算 过 程 的 状态 
都 保存 在 一 组 固定 的 寄存 器 里 。 | 

m 用 在 ev-sequence 里 的 尾 递归 实现 ， 是 许多 编译 程序 里 所 采用 的 一 种 有 名 的 优化 技术 的 变形 。 在 编译 一 个 
过 程 时 ， 如 果 这 一 过 程 的 最 后 是 一 个 过 程 调用 ， 那 么 就 可 以 用 直接 跳 到 该 过 程 信 口 点 来 取代 这 个 调用。 像 我 
们 在 本 节 中 所 做 的 这 样 ， 将 这 一 策略 构筑 到 解释 器 里 ， 就 为 整个 语言 提供 了 统一 的 优化 。 

2 no-more-exps? 可 以 采用 下 面 的 定义 ;: 


(define (no-more-exps? seq) (null? seq)) 
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列 里 最 后 一 个 表达 式 也 像 对 其 他 表达 式 一 样 处 理 ， 使 之 穿 过 保存 和 恢复 循环 。 对 于 任何 表达 
式 ， 修 改 后 的 解释 器 仍 将 给 出 同样 的 值 。 但 是 ， 对 于 尾 递归 实现 而 言 ， 这 一 改动 却 是 致命 的 ， 
因为 如 果 现 在 要 返回 ， 那 就 必须 是 在 序列 里 的 最 后 一 个 表达 式 完 成 求 值 之 后 ， 因 为 这 时 才能 
恢复 所 保存 的 《无 用 的 ) 寄存 器 值 。 在 伐 套 的 过 程 调用 中 ， 这 些 额 外 的 保存 值 就 会 积累 起 来 。 
由 于 这 种 情况 ， 像 sgrt-itez 一 类 的 过 程 所 需 的 空间 也 就 会 正比 于 和 迭代 的 次 数 ， 而 不 再 是 芝 
量 空 间 了 。 这 种 差异 可 能 变 得 非常 重要 ， 举 例 来 说 ， 在 采用 尾 递归 时 ， 一 个 无 穷 循 环 也 可 以 
只 通过 过 程 调用 机 制 来 表述 : 
(define (count n) 

(newline) 

(display n) 

(count (+ n 1))) 
如 果 没 有 尾 递归 ， 这 个 过 程 最 终 会 用 光 所 有 的 堆栈 空间 ， 而 要 想 表 述 和 迭代 型 的 计算 ， 就 必须 
有 过 程 调 用 之 外 的 其 他 机 制 了 


5.4.3 条件、 赋值 和 定义 


与 元 循环 求 值 器 的 情况 一 样 ， 这 里 对 各 种 特殊 形式 的 处 理 ， 也 是 通过 有 选择 地 求 值 表达 
式 里 的 一 些 部 分 。 对 于 if 表达 式 ， 我 们 必须 求 值 其 谓词 部 分 ， 并 基于 谓词 的 值 确定 总 求 值 它 
的 推论 部 分 昵 ， 还 是 求 值 它 的 替代 部 分 。 

在 求 值 其 谓词 部 分 之 前 ,我 们 需要 把 if 表 达 式 本 身 保存 起 来 ， 以 便 后 来 可 以 从 中 提取 出 
推论 部 分 或 者 替代 部 分 。 我 们 也 要 保存 当时 的 环境 ， 后 面 求 值 推论 部 分 或 者 替代 部 分 时 还 需 
要 用 它 。 还 要 保存 起 continue， 因 为 将 来 还 要 根据 它 返 回 到 等 着 这 个 if 的 值 的 那个 表达 式 
去 ， 继 续 进行 该 表达 式 的 求 值 。 

ev-if 

(save exp) : save expression for later 
(save env) 

(save continue) 

(assign continue (label ev-if-decide) ) 

(assign exp (op if-predicate) (reg exp)) 

(goto (label eval-dispatch)) ; evaluate the predicate 


当 我 们 从 对 谓词 的 求 值 返回 时 ， 需 要 检查 得 到 的 值 是 真 还 是 假 ， 并 根据 这 一 检查 的 结 采 ， 
把 表达 式 的 推论 部 分 或 者 替代 部 分 放 和 exp 里 ， 而 后 转向 eval-dispatch。 请 注意 ， 在 这 
里 重新 恢复 了 env 和 continue， 就 是 为 设置 好 eval-dispatch, 使 之 具有 正确 的 环境 以 及 
接受 if 表 达 式 值 的 正确 继续 位 置 。 
ev-if-decide 
(restore continue) 
{restore env) 
(restore exp) 
(test {op true?) (reg val)) 
(branch (label ev-if-consequent )} ) 
ev-if-alternative 
{assign exp (op if-alternative) (reg exp)) 
{goto (label eval-dispatch) ) 
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ev-if-consequent 
(assign exp (op if-consequent) (reg exp) ) 
(goto (label eval-dispatch) ) 


赋值 和 定义 | 

赋值 由 ev-assignment 处 理 ， 当 eval-dispatch 在 exp 里 遇 到 了 赋值 表达 式 ， 控 制 
就 会 转 到 这 里 。 位 于 ev-assignment 的 代码 首先 求 出 赋值 中 表达 式 部 分 的 值 ， 而 后 把 这 一 
新 值 装 和 人 环境 里 。 这 里 假定 set-variable-value! 是 一 个 可 用 的 机 器 操作 。 


ev-assignment 

(assign unev (op assignment-variable) (reg exp) ) 

(save unev) ; save variable for later 

(assign exp (op assignment-value) (reg exp) ) 

(save env) 

(save continue) 

(assign continue (label ev-assignment-1) ) 

(goto (label eval-dispatch)) =; evaluate the assignment value 
ev-assignment-l 

(restore continue) 

(restore env) 

(restore unev) 

(perform 

(Op set-variable-value!) (reg unev) (reg val) (reg env)) 
(assign val (const ok)) 
(goto (reg continue) ) 


定义 的 处 理 方式 与 此 类 似 : 
ev-definition 
(assign unev (op definition-variable) (reg exp)) 


(save unev) ; save variable for later 
(assign exp (op definition-value) (reg exp)) 
(save env) 


(save continue) 

(assign continue (label ev-definition-1) ) 

(goto (label eval-dispatch)) ; evaluate the definition value 
ev-definition-1l 

(restore continue) 

(restore env) 

(restore unev) 

(perform 

(op define-variable!) (reg unev) (reg val) (reg env)) 
(assign val (const ok)) 
(goto (reg continue) ) 


练习 5.23 请 扩充 这 个 求 值 器 ， 以 处 理 cond 、let 等 等 的 派生 表达 式 ( 见 4.1.2 市 )。 你 可 
以 假定 cond->if 等 等 语法 变换 都 是 可 用 的 机 器 操作 ， 以 “蒙混 过 关 ”” 。 

练习 5.24 ”请 将 cond 直 接 实现 为 一 个 新 的 特殊 形式 ， 而 不 是 将 它 归结 到 i£ 。 你 将 不 得 不 
构造 一 个 循环 ， 上 顺序 检 查 cond 里 各 个 子 句 的 谓词 ， 直 至 找到 一 个 真 的 ， 而 后 用 eV- 


"这 并 不 真 的 就 是 “蒙混 过 关 ” 。 在 实际 从 空白 开始 实现 时 ， 我 们 很 可 能 在 用 这 种 显 式 控制 求 值 器 先 去 解释 一 
个 Scheme 程序 ， 完 成 例如 cond->if 这 样 的 源 代码 层次 的 变换 ， 在 实际 执行 前 先 运行 这 个 程序 。 
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sequence 去 求 值 这 一 子 句 中 的 动作 序列 。 
练习 5.25 请 基于 4.2 节 的 惰性 求 值 器 修改 这 个 求 值 器 ， 使 它 能 采用 正则 顺序 去 求 值 。 


5.4.4 求 值 器 的 运行 


有 了 这 个 显 式 控制 求 值 器 之 后 , 我 们 从 第 1 章 开 始 的 一 个 开发 也 就 到 达 了 终点 。 在 此 期 则 ， 
我 们 研究 了 求 值 过 程 的 一 系列 越 来 越 精确 的 模型 。 我 们 从 相对 非 形式 的 代 换 模型 开始 ， 而 后 
在 第 3 章 里 将 其 扩充 为 一 个 环境 模型 ， 使 我 们 能 够 处 理 状 态 和 变化 。 在 第 4 章 的 元 循环 求 值 器 
里 ， 我 们 用 Scheme 本 身 作 为 语言 ， 以 便 把 表达 式 求 值 过 程 中 环境 结构 的 构造 情况 显 式 地 表现 
出 来 。 现 在 有 了 寄存 器 机 器 ， 我 们 已 经 更 加 仔细 地 观看 了 求 值 器 里 有 关 存 储 管理 、 参 数 传递 
和 控制 的 机 制 。 在 每 一 个 新 的 描述 层次 上 ， 我 们 都 提出 了 一 些 问题 ， 并 解决 了 一 些 意义 含糊 
的 情况 ， 而 在 前 面 的 对 求 值 过 程 的 处 理 不 那么 精确 的 层次 上 ， 这 些 根本 就 不 会 出 现 。 为 了 理 
解 显 式 控制 求 值 器 的 行为 ， 我 们 可 以 去 模拟 执行 它 ， 并 监视 其 执行 过 程 。 
现在 要 为 我 们 的 求 值 器 机 器 安装 一 个 驱动 循环 ， 它 扮演 着 4.1.4 节 里 driver-10oop 过 程 
的 角色 。 这 一 求 值 器 将 反复 打印 出 提示 ， 读 入 一 个 表达 式 ， 通 过 转 到 eval-dispatch 去 求 
值 这 个 表达 式 ， 最 后 打印 出 结果 。 下 面 的 指令 序列 形成 了 这 一 显 式 控制 求 值 器 中 控制 妖 序列 
的 最 前 面 一 部 分 
read-eval-print-loop 
(perform (op initialize-stack)) 
(perform 
(op prompt-for-input) (const ";;; EC-Eval input:")) 
(assign exp (op read) ) 
(assign env (op get-global-environment) ) 
(assign continue (label print-result) ) 
(goto (label eval-dispatch) ) 
print-result 
(perform 
(op announce-output) (const ";;; EC-Eval value:")) 


(perform (op user-print) (reg val)) 
(goto (label read-eval-print-loop) ) 


当 我 们 在 一 个 过 程 中 遇 到 了 错误 时 (例如 ， 由 apP1LY-dispatch 指 明 的 “未 知 过 程 类 型 
错误 ") ， 我 们 需要 打印 错误 信息 并 返回 到 驱动 循环 。 
unknown-expression-type 


(assign val (const unknown-expression-type- error)) 
(goto (label signal-error) ) 


?4 在 这 里 ， 我 们 假定 zcead 和 若干 打印 操作 都 可 以 作为 机 器 的 基本 操作 使用， 这 样 的 假定 在 模拟 中 很 有 用 ， 但 
在 实践 中 却 是 不 实际 的 。 这 些 操 作 实际 上 都 是 非常 复杂 。 在 实践 中 ， 我 们 同样 需要 基于 低级 的 输入 输出 操作 
实现 它们 ， 这 种 低级 操作 的 例子 如 将 一 个 字符 送 到 某 设 备 ， 或 者 从 某 设备 取 一 个 字符 。 

为 了 支持 get-global-envitonment 操 作 ， 我 们 定义 : 


(define the-global-environment (setup-environment) ) 


(define (get-global-environment ) 
the-global-environment ) 


315 也 存在 一 些 特殊 错误 ， 我 们 可 能 更 希望 由 解释 器 去 处 理 它们 。 但 这 种 事情 不 那么 简单 。 请 看 练习 5.30 。 





unknown-procedure-type 
{restore continue) ; clean up stack (from apply-dispatch) 
(assign val (const unknown-procedure-type-error) ) 
(goto (label signal-error) ) 


signal-error 
(perform (op user-print) (reg val)) 
(goto (label read-eval-print-loop) ) 


为 了 模拟 的 需要 ， 我 们 在 每 次 穿 过 这 一 驱动 循环 时 都 做 一 次 堆栈 的 初始 化 ， 因 为 在 出 现 
错误 (例如 遇 到 未 定义 的 变量 ) 导致 循环 中 断 之 后 ， 堆 栈 有 可 能 不 空 “。 

如 果 把 从 5.4.1 节 到 5.4.4 节 的 代码 片段 组 合 到 一 起 ， 我 们 就 构造 出 了 一 个 求 值 器 机 珍 模 型 。 
现在 就 可 以 用 5.2 节 里 的 寄存 器 机 器 模拟 器 去 运行 它 了 。 


(define eceval 

(make-machine 

"(exp env val proc argl continue unev) 
eceval-operations 
"( 

read-eval-print-loop 

< 如 上 给 出 的 完整 的 机 器 控制 器 > 
) ) ) 


我 们 还 必须 定义 一 些 Scheme 过 程 ， 去 模拟 这 个 求 值 器 里 使 用 的 所 有 基本 操作 。 这 些 也 就 是 我 
们 在 4.1 节 定义 元 循环 模拟 器 时 所 定义 的 那些 过 程 ， 还 有 在 5.4 节 的 各 个 脚注 里 定义 的 那些 过 
程 。 | 

(define eceval-operations 


(list (list *self-evaluating? self-evaluating) 


<eceval 机 器 操作 的 完整 列表 > ) ) 
现在 我 们 已 经 可 以 初始 化 有 关 的 全 局 环境 ， 并 运行 这 个 求 值 器 了 : 


(define the-global-environment (setup-environment) ) 
{start eceval) 


*:: EC-Eval input: 
(define (append x y) 
(if (null? x) 
y 
(cons (car x) 
(append (cdr x) y)))) 

s+: EC-Eval value: 
ok 
¢:: EC-Eval input: 
(append ’(a bc) (d e f)) 
32: EC-Eval value: 
(abcdef) 


当然 ， 以 这 种 方式 求 值 表达 式 ， 所 需 的 时 间 将 远 远 长 于 我 们 直接 把 它们 送 给 >cheme ， 因 


16 我 们 也 可 以 仅仅 在 出 现 错 误 之 后 才 去 初始 化 堆栈 。 但 是 ， 在 驱动 循环 里 完成 此 事 ， 能 使 我 们 更 方便 地 监视 求 
值 器 的 执行 ， 下 面 将 讨论 这 方面 的 问题 。 





为 在 这 个 模拟 过 程 中 涉及 到 许多 层次 。 我 们 的 表达 式 由 显 式 控 制 求 值 器 求 值 ， 这 个 求 值 器 是 
通过 一 个 Scheme 程序 模拟 的 ， 而 那个 程序 本 身 又 被 cheme 解 释 器 求 值 。 

监视 求 值 器 的 执行 性 能 

模拟 可 以 成 为 指导 求 值 器 的 实际 实现 的 一 种 有 力 工具 。 模 拟 不 仅 使 人 更 容易 去 探索 寄存 
器 机 器 设计 的 各 种 变形 ， 也 使 人 更 容易 监视 被 模拟 求 值 器 的 执行 性 能 。 举 例 说 ， 性 能 中 的 一 
个 重要 因素 就 是 求 值 器 对 于 堆栈 的 使 用 是 否 非 常 有 效 。 我 们 只 需要 用 一 个 特殊 的 模拟 器 和 版 本 
定义 求 值 器 寄存 器 机 器 ， 在 其 中 收集 有 关 堆 栈 使 用 的 各 种 统计 信息 〈 见 5.2.4 节 )， 并 且 在 这 个 
求 值 器 的 print-zesult 和 人 入口 点 增加 了 一 条 打印 统计 信息 的 指令 ， 就 可 以 观察 在 求 值 各 种 表 
达 式 时 堆栈 操作 的 执行 次 数 了 : 


print-result 


(perform (op print-stack-statistics)); added instruction 
(perform 
(op announce-output) (const ";;; EC-Eval value:")) 


+ ; same as before 


与 求 值 器 的 交互 ， 现 在 看 起 来 是 下 面 的 样子 : 


es: EC-Eval input: 
(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (- n 1)) n))) 
(total-pushes * 3 maximum-depth = 3) 
237 EC-Eval value: 
ok 
ss: EC-Eval input: 
(factorial 5) 
(total-pushes = 144 maximum-depth = 28) 
se: EC-Eval value: 
120 


注意 ， 求 值 器 的 驱动 循环 将 在 每 次 交互 开始 时 重新 初始 化 堆栈 ， 因 此 ， 这 样 打印 出 的 统计 信 
息 也 就 是 在 对 前 一 表达 式 求 值 中 所 用 的 堆栈 操作 次 数 。 

练习 5.26 ”请 利用 上 述 的 受 监视 堆栈 考察 求 值 器 的 尾 递归 性 质 〈 见 5.4.2 节 )。 启动 求 值 器 
并 定义 下 面 取 自 1.2.1 节 的 迭代 型 factorial 过 程 : 


(define (factorial n) 
(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 
(iter 1 1)) 


用 一 个 比较 小 的 n 值 运行 这 一 过 程 。 记 录 下 对 每 个 值 计算 n! 时 的 最 大 堆栈 深度 和 压 栈 次 数 。 
a) 你 会 发 现 求 值 n! 时 的 最 大 堆栈 深度 是 与 4 无 关 的 。 这 个 深度 是 什么 ? 
b) 根据 你 得 到 的 数据 确定 一 个 公式 ， 对 于 任何 n >>1， 它 都 基于 n 的 值 描述 了 在 求 值 n: 中 所 
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用 的 总 的 压 栈 操作 次 数 。 请 注意 ， 这 里 的 次 数 应 该 是 "的 一 个 线性 函数 ， 因 此 你 需要 确定 其 中 
的 两 个 常量 。 
练习 9.27 与 练习 5.26 做 一 个 比较 ， 研究 下 面 这 个 采用 递归 方式 求 阶乘 的 过 程 的 行为 : 
(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (- n 1)) n))) | 
通过 在 受 监视 的 堆栈 上 运行 这 一 过 程 ， 确 定 对 任何 nh 之 1， 在 求 值 n! 的 过 程 中 堆栈 的 最 大 深度 
和 总 的 压 栈 次 数 ， 将 它们 描述 为 的 沙 数 (这 些 函 数 仍然 是 线性 的 )。 将 你 的 试验 结果 总 结 在 
下 面 表 里 ， 在 表 中 各 个 空格 里 填 入 基于 n 的 适当 表达 式 。 


最 大 深度 





递归 的 阶乘 


堆栈 的 最 大 深度 是 求 值 器 在 执行 计算 中 所 用 存储 空间 量 的 一 个 度量 ， 压 栈 次 数 则 对 应 于 求 值 
所 需 的 时 间 。 

练习 5.28 ”请 修改 上 面 求 值 器 的 定义 ， 像 5.4.2 节 所 说 的 那样 修改 eval-sequence, 使 
求 值 器 不 再 是 尾 递归 的 。 重 新 运行 你 在 练习 5.26 和 练习 53.27 里 做 的 试验 ， 以 此 说 明 上 面 两 个 
factorial 过 程 版 本 现在 需要 的 空间 都 随 输 入 线性 增长 。 

练习 5.29 请 监视 在 树 型 递 归 的 斐 波 那 契 计算 中 堆栈 操作 的 情况 : 


(define (fib n) 
(if (< n 2) 
n 
(+ (fib (- n 1)) (fib (- n 2))))) 


a) 给 出 一 个 基于 n 的 公式 ， 描 述 对 rn >2 计 算 Fib(n) 时 所 需 的 最 大 堆栈 深度 。 提 示 : 在 1.2.2 
节 我 们 曾经 说 过 ， 这 一 过 程 所 需 的 空间 随 着 ”线性 增长 。 

b) 给 出 一 个 基于 n 的 公式 ， 描 述 对 n>2 计 算 Fib(n) 时 所 需 的 全 部 压 栈 操作 次 数 。 你 将 发 
现 这 一 压 栈 次 数 (对 应 于 计算 所 需 的 时 间 ) 将 随 着 "指数 地 增长 ER: 令 S(n) 是 计算 Fib(n) 
中 所 用 的 压 栈 次 数 ， 你 应 能 论证 ， 存 在 着 某 个 与 4 无 关 的 “开销 ”常数 k， 可 以 基于 S(n 一 1)， 
So 一 2) 和 常数 k 写 出 一 个 表示 5(n) 的 公式 。 请 给 出 这 个 公式 ， 并 说 明 k 是 什么 。 而 后 说 明 5(n) 
可 以 表述 为 a Fib(n +1)+b， 并 请 给 出 a 和 4b 的 值 。 

练习 5.30 ”我 们 的 求 值 器 现在 只 能 捕捉 两 类 错误 并 发 出 信号 一 一 未 知 的 表达 式 类 型 ， 以 及 
未 知 的 过 程 类 型 。 其 他 错误 将 使 这 个 求 值 器 退出 读 入 RE- 打印 循环 。 当 我 们 用 寄存 器 机 
器 模拟 器 运行 这 个 求 值 器 时 ， 这 些 错 误 都 只 能 由 基础 的 Scheme 系统 去 捕捉。 这 种 情况 类 似 于 
当 用 户 程序 出 了 一 个 错时 计算 机 就 会 震 台 2 了。 做 好 一 个 真正 的 处 理 错误 的 系统 是 一 个 大 项 目 ， 
但 理解 在 这 里 会 遇 到 什么 问题 ， 却 很 值得 花 一 点 时 间 。 | 


317 非常 遗 健 ， 这 正 是 常规 的 基于 编译 的 语言 系统 (例如 C ) 的 普遍 情况 。 在 UNIX 里 出 现 这 种 情况 时 系统 会 “内 
柳 卸 载 "， 在 DOS/Windows 里 它 将 变 成 大 灾难 。Macintosh 机 器 将 显示 出 一 个 爆炸 的 炸弹 图 画 ， 并 给 人 提供 重 
新 引导 计算 机 的 机 会 一 一 如 果 你 幸运 的 话 。 
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a) 出 现在 求 值 过 程 中 的 错误 ， 例 如 企图 访问 未 约束 的 变量 ， 可 以 通过 修改 查询 操作 的 
方式 捕捉 。 可 以 让 它 在 遇 到 这 种 情况 时 返回 一 个 可 辨认 的 条 件 码 ， 要 求 这 个 条 件 码 不 古 任何 
用 户 变量 的 可 能 值 。 这 样 ， 求 值 器 就 可 以 检查 这 一 条 件 码 ， 如 果 和 需要 时 就 转 到 signal- 
error 去 。 请 在 上 面 求 值 器 里 找 出 所 有 需要 修改 的 地 方 ， 并 设法 更 正之 。 为 此 需要 做 很 多 
THE. 

b) 更 糟糕 的 是 处 理由 基本 操作 的 应 用 产生 出 错误 信号 的 问题 ， 例 如 要 用 0 去 除 ， 或 者 企图 
去 求 一 个 符号 的 car 。 在 专业 水 平 的 高 质量 系统 里 ， 系 统 将 检查 每 个 基本 操作 的 应 用 ， 因 为 
安全 性 也 是 这 些 基本 操作 的 一 部 分 。 举 个 例子 ， 在 每 次 调用 car 之 前 都 需要 确认 其 参数 确实 
是 序 对 。 如 果 参 数 不 是 序 对 ， 那 么 这 一 应 用 就 会 将 一 个 可 辨认 的 条 件 码 返 回 给 求 值 器 ， 导 至 
求 值 器 报告 一 个 错误 。 我 们 也 可 以 在 寄存 器 机 器 模拟 器 中 安排 好 这 些 事情 ， 在 那里 让 每 个 基 
本 过 程 检查 自己 的 参数 的 可 用 性 ， 在 出 问题 时 返回 适当 的 可 辨认 的 条 件 码 。 这 样 ， 求 值 器 里 
的 primitive-apply 代 码 就 可 以 检查 这 里 的 条 件 码 ， 在 需要 时 转 到 signal-error 。 请 构 
造 起 这 一 结构 并 使 之 能 够 工作 。 这 是 一 个 很 大 的 工作 课题 。 


5.5 编译 
5.4 节 的 显 式 控制 求 值 器 是 一 部 寄存 器 机 器 ， 它 的 控制 器 能 解释 Scheme 程 序 。 在 这 一 市 里 ， 


我 们 将 要 看 到 的 是 如 何在 一 部 控制 器 不 是 Scheme 解 释 器 的 寄存 器 机 器 上 运行 Scheme 程 序 。 

显 式 控制 求 值 器 是 一 部 通用 机 器 一 一 它 可 以 执行 用 Scheme 语言 描述 的 任何 计算 过 程 。 该 
求 值 器 的 控制 器 与 它 的 数据 通路 和 谐 地 相互 配合 ， 以 执行 所 需要 的 计算 过 程 。 也 就 是 说 ， 这 
一 求 值 器 的 数据 通路 也 是 通用 的 ， 只 要 给 出 一 个 适当 的 控制 器 ， 它 们 就 足以 执行 我 们 所 需要 
的 任何 计算 。 | 

Heh aE, GH tt BLE SRLS, ECNMARCALER AaB AA 
操作 ， 这 些 东 西 构成 了 一 个 高 效 而 又 方便 的 数据 通路 集合 。 通 用 计算 机 的 控制 器 也 是 一 个 寄 
存 器 机 器 语言 的 解释 器 ， 该 语言 与 我 们 前 面 看 到 的 东西 类 似 。 这 样 的 一 个 语言 被 称 为 这 人 台 计 
算 机 的 本 机 语言 ， 或 称 为 机 器 语言 。 用 这 种 机 器 语言 写 出 的 程序 就 是 指令 的 序列 ， 它 们 使 用 
文部 机 器 的 数据 通路 。 例 如 ， 我 们 完全 可 以 将 显 式 控制 求 值 器 的 指令 序列 看 作 是 某 台 通用 计 
算 机 的 一 个 机 器 语言 程序 ， 而 不 是 看 作 一 部 特定 的 解释 器 机 器 的 控制 部 。 

为 了 在 高 级 语言 和 寄存 器 机 器 语言 之 间 的 汐 沟 上 架设 起 一 座 桥梁 ， 存 在 着 两 种 弟 见 的 策 
咯 。 显 式 控制 求 值 器 展示 的 是 一 种 称 为 解释 的 策略 。 此 时 我 们 用 有 关机 器 的 本 机 语言 写 出 一 
个 解释 器 ， 它 设法 配置 好 这 部 机 器 ， 使 它 能 够 执行 某 个 语言 ( 称 为 源 语言 ) 的 程序 ， 而 这 一 
源 语言 可 能 与 执行 求 值 的 机 器 的 本 机 语言 完全 不 同 。 这 种 源 语言 的 基本 过 程 被 实现 为 一 个 子 
程序 库 ， 用 给 定 机 器 的 本 机 语言 写 出 。 被 解释 的 程序 ( 称 为 源 程 序 ) 用 一 个 数据 结构 表示 。 
解释 器 遍历 这 种 数据 结构 ， 分 析 源 程序 的 情况 。 在 这 样 做 的 过 程 中 ， 它 需要 调用 取 自 库 的 适 
当 的 基 本 子 程序 ， 以 模拟 源 程序 所 要 求 的 行为 。 

在 这 一 节 里 ， 我 们 将 要 探讨 另 一 种 称 为 编译 的 策略 。 一 个 针对 某 种 给 定 源 语 言 和 某 种 给 


318 这 只 是 一 个 理论 性 的 结论 。 我 们 并 不 想 断 言说 ， 对 于 作为 一 种 通用 计算 机 而 言 ， 这 一 求 值 器 的 数据 通路 是 特 
别 方便 的 或 者 特别 有 效 的 数据 通路 集合 。 举 例 说 ， 对 于 实现 高 性 能 的 浮 点 计算 ， 或 者 其 中 包含 大 量 对 二 进 制 
序列 操作 的 计算 ， 这 组 数据 通路 就 不 是 很 好 。 
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定 机 器 的 编译 器 ， 能 够 将 源 程序 翻译 为 用 这 部 机 器 的 本 机 语言 写 出 的 每 价 程序 〈 称 为 目标 程 
序 )。 我 们 在 这 一 节 里 将 要 实现 的 编译 器 ， 能 够 将 用 scheme 写 出 的 程序 ， 翻 译 为 可 以 用 显 式 控 
fi RAE 器 的 数据 通路 执行 的 指令 序列 ”。 

与 解释 方式 相 比 ， 采 用 编译 方式 可 以 大 大 提高 程序 执行 的 效率 ， 我 们 将 在 下 面 有 关 编 
译 器 的 综述 里 解释 有 关 情 况 。 在 另 一 方面 ,解释 器 则 为 程序 开发 和 排除 错误 提供 了 一 个 更 
强大 的 环境 ， 因 为 被 执行 的 源 代码 在 运行 期 间 都 是 可 用 和 的， 可 用 去 检查 和 修改 。 此 外 ， 由 
于 整个 基本 操作 的 库 都 在 那里 ， 我 们 可 以 在 排除 错误 的 过 程 中 构造 新 程序 ， 随 时 把 它们 加 
入 系统 中 。 

由 于 看 到 了 编译 和 解释 的 互补 优势 ， 现 代 程 序 开 发 环境 很 推崇 一 种 混合 的 策略 。Lisp 解 
释 器 通常 都 采用 一 种 组 织 方式 ， 使 得 解释 性 程序 和 编译 性 程序 可 以 相互 调用 。 这 就 使 程序 员 
可 以 编译 那些 自己 认为 已 经 排除 了 错误 的 程序 部 分 ， 从 而 取得 编译 方式 的 效率 优势 ， 而 让 那 
些 正在 进行 交互 式 开 发 和 排 错 的 ， 还 在 不 断 变 化 的 程序 部 分 的 执行 仍然 维持 在 解释 模式 之 中 。 
在 下 面 的 编译 器 实现 完成 之 后 ， 在 5.5.7 节 里 ， 我 们 将 要 说 明 如 何 将 它 与 解释 器 连接 ， 产 生出 
一 个 集成 的 编译 器 一 解释 器 开发 环境 。 

有 关 编 译 器 的 综述 

从 结构 和 所 执行 的 功能 上 看 ， 我 们 的 编译 器 都 很 像 前 面 的 解释 器 。 正 因为 此 ， 在 这 个 编 
译 器 里 分 析 表 达 式 的 机 制 将 与 解释 器 中 使 用 的 东西 类 似 。 进 一 步 说 ,为 了 使 编译 代码 与 解释 
代码 方便 地 互 连 ， 我 们 将 按照 下 面 方式 设计 这 一 编译 器 ， 使 它 产生 的 代码 遵循 与 解释 器 相同 
的 寄存 器 使 用 规则 执行 环 境 仍 保存 在 env 寄 存 器 里 ， 实 际 参 数 表 在 arg1 寄 存 器 里 积累 ， 被 
应 用 的 过 程 存 在 proc 寄 存 器 里 ， 过 程 通过 val 返 回 它们 的 值 ， 过 程 将 要 使 用 的 返回 地 址 保存 
在 continue 里 。 一 般 而 言 ， 这 个 编译 器 将 把 一 个 源 程序 翻译 为 一 个 目标 程序 ， 该 目标 程序 
所 执行 的 寄存 器 操作 ， 从 本 质 上 说 ， 也 就 是 解释 器 求 值 同一 个 源 程序 时 所 执行 的 操作 。 

这 一 描述 提出 了 一 种 实现 基本 编译 器 的 策略 : 我 们 应 该 以 与 解释 器 同样 的 方式 去 遍历 表 
达 式 。 当 遇 到 解释 器 在 求 值 表达 式 时 应 该 执行 一 条 寄存 器 指令 时 ， 我 们 不 是 去 执行 这 条 指令 ， 
而 是 将 它 收 集 到 一 个 序列 里 。 这 样 得 到 的 指令 序列 就 是 我 们 所 需要 的 目标 代码 。 现 在 就 可 以 
看 到 编译 器 优 于 解释 器 的 地 方 了 。 解 释 器 在 每 次 求 值 一 个 表达 式 时 一 一 例如 ，( 84 96), 
都 需要 去 做 对 这 个 表达 式 的 分 类 工作 (发 现 这 是 一 个 过 程 应 用 )， 需 要 检查 表达 式 的 表 是 否 结 
KE (发 现 这 里 存在 两 个 运算 对 象 ) 。 而 在 采用 编译 器 的 情况 下 ， 对 这 一 表达 式 的 分 析 只 需要 做 
一 次 ， 也 就 是 在 编译 期 间 生 成 指令 序列 的 时 候 。 在 由 编译 器 产生 出 的 目标 代码 里 ， 只 包含 了 
那些 对 运算 符 和 两 个 运算 对 象 求 值 的 指令 ， 以 及 将 有 关 的 过 程 〈 在 Proc 里 ) 应 用 于 实际 参数 
(在 arg1 里 ) 的 指令 。 

这 里 所 看 到 的 ， 实 际 上 也 就 是 我 们 在 4.1.7 节 实现 分 析 型 求 值 器 时 所 采用 的 同一 类 优化 技 
术 。 但 是 ， 在 编译 性 的 代码 里 还 存在 进一步 获得 效率 的 可 能 性 。 在 解释 器 运行 时 ， 它 需要 按 
照 一 种 能 够 适用 于 该 语言 里 的 所 有 表达 式 的 方式 工作 。 一 段 给 定 的 编译 代码 的 情况 则 与 此 完 
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和 unevy 寄 存 器 ， 解 释 器 里 用 这 些 寄存 器 保存 未 求 值 的 表达 式 。 采 用 了 编译 器 之 后 ， 这 些 表达 式 都 被 构造 到 
寄存 器 机 器 需要 去 执行 的 编译 结果 代码 里 了 。 由 于 同样 的 原因 ,我 们 也 不 再 需要 处 理 表达 式 语法 的 机 器 操作 。 
但 是 编译 结果 代码 里 将 使 用 另外 几 个 机 器 操作 (用 于 表示 编译 后 的 过 程 对 象 ) ， 它 们 没有 出 现在 显 式 控制 求 
值 器 机 器 里 。 
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全 不 同 ， 因 为 它 的 目标 就 是 执行 某 个 特定 的 表达 式 。 这 种 差异 可 能 产生 极 大 的 影响 ， 例 如 在 
用 堆栈 保存 寄存 器 方面 。 当 解释 器 求 值 一 个 表达 式 时 ， 它 必须 为 所 有 偶然 可 能 发 生 的 情况 做 
好 准备 。 因 此 ， 在 求 值 一 个 子 表达 式 之 前 ， 解 释 器 就 必须 将 所 有 后 来 可 能 需要 的 寄存 器 存 人 
堆栈 ， 因 为 在 子 表达 式 里 可 能 做 任何 求 值 工作 。 而 在 另 一 面 ， 编 译 器 就 可 以 去 考察 它 所 处 理 
的 特定 表达 式 ， 在 产生 出 的 代码 里 避免 所 有 并 不 必要 的 堆栈 操作 。 

作为 这 方面 情况 的 一 个 例子 ， 现 在 考虑 组 合式 (£ 84 96)。 在 解释 器 求 值 这 个 组 合式 的 
运算 符 之 前 ， 它 需要 为 这 个 求 值 做 好 准备 ， 将 保存 着 运算 对 象 和 环境 的 寄存 器 都 存 入 堆栈 ， 
因为 这 些 值 后 来 还 要 使 用 。 而 后 解释 器 去 做 运算 符 的 求 值 ， 在 Val 里 得 到 求 值 的 结果 ， 恢 复 
所 有 保存 在 堆栈 里 的 寄存 器 值 ， 最 后 把 val 里 的 结果 移 到 proc。 然 而 ， 在 需要 处 理 的 这 个 特 
定 表达 式 里 ， 运 算 符 也 就 是 符号 E ， 对 于 它 的 求 值 由 机 器 操作 1ookup~variable-value 元 
成 ， 在 此 过 程 中 根本 不 会 修改 任何 寄存 器 。 我 们 将 要 在 本 节 里 实现 的 编译 器 就 能 利用 这 一 事 
实 ， 在 产生 出 的 代码 里 ， 它 将 用 下 面 指令 完成 对 这 个 运算 符 的 求 值 工作 : 

(assign proc (op lookup-variable-value) (const f) (reg env)) 
这 一 代码 不 仅 避免 了 原本 就 没有 必要 的 保存 和 恢复 工作 ， ME BRR eoproc, ffi 
解释 器 是 先 在 val 里 得 到 这 个 值 ， 而 后 又 把 它 移 到 Proc 。 

编译 器 还 能 优化 对 环境 的 访问 。 通 过 对 代码 的 分 析 ， 在 许多 情况 下 ， 编 译 器 可 以 确定 在 
哪个 框架 保存 着 某 个 特定 值 ， 并 直接 访问 这 一 框架 ， 而 不 需要 去 执行 lookup-variable- 
value 搜 索 。 我 们 将 在 5.5.6 节 讨论 如 何 实现 这 种 变量 访问 。 当 然 ， 在 那 之 前 ， 我 们 还 是 准备 
集中 精力 ， 讨 论 如 何 完成 上 面 所 描述 的 寄存 器 和 堆栈 优化 。 编 译 器 还 可 以 执行 许多 其 他 优化 
工作 ， 例 如 将 某 些 基 本 操作 “在 线 处 理 ”， 而 不 是 使 用 一 次 通用 的 apply 机 制 ( 见 练习 5.38)。 
但 我 们 将 不 在 这 里 强调 这 些 东 西 。 这 一 节 里 的 主要 目标 ,就 是 在 一 个 经 过 简化 (但 仍然 很 有 
BB) 的 上 下 文中 展示 编译 过 程 里 的 各 种 情况 。 


5.5.1 编译 器 的 结构 


在 4.1.7 节 里 ， 我 们 修改 了 原来 的 元 循环 解释 器 ， 将 分 析 过 程 与 实际 执行 分 离开 。 在 分 析 
每 个 表达 式 后 产生 出 一 个 执行 过 程 ， 它 以 一 个 环境 作为 参数 ， 执 行 所 需 的 操作 。 在 我 们 的 纺 
译 器 里 ， 也 要 做 本 质 上 与 那里 相同 的 分 析 。 但 现在 不 是 要 产生 出 一 个 执行 过 程 ， 而 是 要 生成 
出 一 些 能 够 在 我 们 的 寄存 器 机 器 上 运行 的 指令 序列 。 

这 个 编译 器 里 的 过 程 compile 完 成 最 高 层 的 分 派 ， 它 对 应 于 4.4.1 节 里 的 eval 过 程 ， 
4.1.7 节 里 的 analyze 过 程 , 以 及 在 5.4.1 节 里 的 显 式 控制 求 值 器 里 的 eval-dispatch 入 口 点 。 
这 个 编译 器 很 像 一 个 解释 器 ， 它 也 要 使 用 4.1.2 节 里 定义 的 各 种 表达 式 语法 过 程 ”。compile 
执行 一 个 基于 被 编译 的 表达 式 语 法 类 型 的 分 情况 分 析 ， 对 于 每 种 表达 式 类 型 ， 都 将 它们 分 派 
到 一 个 特定 的 代码 生成 器 : 


(define (compile exp target linkage) 
(cond ((self-evaluating? exp) 


20 请 注意 ， 我 们 的 编译 器 是 一 个 Scheme 程序 ， 而 那些 用 于 操作 表达 式 的 语法 过 程 ， 也 是 在 元 循环 求 值 器 里 使 用 
的 真正 的 Scheme 过 程 。 在 另 一 方面 ， 对 于 显 式 控制 求 值 器 ， 我 们 则 假定 了 同样 的 一 组 等 价 的 语法 过 程 可 用 作 
寄存 器 机 器 的 操作 。( 当然 ， 在 Scheme 里 模拟 寄存 器 机 器 时 ， 在 我 们 的 寄存 器 机 器 模拟 器 里 使 用 的 确实 是 这 


些 真实 的 Scheme 过 程 。) 





40 条 交 字 帮 器 机 器 里 的 计算 


(compile~self—-evaluating exp target linkage) ) 
((quoted? exp) (compile-quoted exp target linkage) ) 
( (variable? exp) 

(compile-variable exp target linkage)) 
((assignment? exp) 

(compile-assignment exp target linkage) ) 
((definition? exp) 

(compile-definition exp target linkage) ) 

{ (if? exp) (compile-if exp target linkage) ) 
( (lambda? exp) (compile-lambda exp target linkage) ) 
((begin? exp) 
_(compile-sequence (begin-actions exp) 

target 

linkage) ) 
((cond? exp) (compile (cond->if exp) target linkage) ) 
((application? exp) . 
(compile-application exp target linkage) ) 
(else 
(error "Unknown expression type -- COMPILE" exp)))) 


目标 和 连接 

除了 被 编译 表达 式 之 外 ，compile 和 它 所 调用 的 代码 生成 器 还 有 另外 两 个 参数 。 一 个 是 
目标 (target)， 它 描述 的 是 一 个 寄存 器 ， 被 编译 出 的 代码 段 应 该 将 表达 式 的 值 保 存 到 这 里 。 
还 有 一 个 称 为 连接 描述 符 (linkage )， 它 描述 的 是 相关 表达 式 的 编译 结果 代码 在 完成 自己 的 执 
行 之 后 ， 应 该 如 何 继续 下 去 。 这 一 连接 描述 符 可 以 要 求 代 码 做 下 面 三 件 事情 之 一 : 

* 继续 序列 里 的 下 一 条 指令 〈 采 用 连接 描述 符 next 表 示 )。 

。 从 被 编译 的 过 程 返 回 (采用 连接 描述 符 return 表 示 )。 | 

。 跳 到 一 个 命名 的 入 日 点 (描述 这 种 情况 的 方式 就 是 以 指定 标号 作为 连接 描述 符 ) 。 

举例 来 说 ， 以 val 寄 存 器 作为 目标 ， 以 next 作 为 连接 描述 符 编译 表达 式 5 (这 是 一 个 自 求 
值 表 达 式 ) ， 将 产生 出 下 面 的 指令 

(assign val (const 5)) 
而 用 连接 return 编 译 同一 表达 式 ， 将 产生 下 面 的 指令 序列 


{assign val (const 5)) 
(goto (reg continue) ) 


对 于 第 一 种 情况 ， 执 行将 继续 去 做 序列 里 的 下 一 指令 。 对 于 第 二 种 情况 ， 我 们 将 从 一 个 过 程 
调用 里 返回 。 在 这 两 种 情况 中 ， 表 达 式 的 值 都 被 存放 在 目标 寄存 器 Val 里 。 


指令 序列 和 堆栈 的 使 用 

每 个 代码 生成 器 都 返回 一 个 指令 序列 ， 其 中 包含 的 是 由 被 编译 表达 式 生 成 出 的 目标 代码 。 
由 复合 表达 式 生成 的 代码 ， 是 通过 组 合 起 针对 其 中 的 成 分 表达 式 的 代码 生成 器 的 输出 而 建立 
起 来 的 ， 就 像 前 面 对 复合 表达 式 的 求 值 ， 是 通过 求 值 其 中 的 成 分 表达 式 而 完成 一 样 。 

组 合 指令 序列 的 最 简单 方式 就 是 调用 一 个 名 为 append-instruction-sequences 的 
过 程 。 这 个 过 程 以 任意 数目 的 指令 序列 作为 参数 ， 假 定 这些 序 列 应 该 顺序 执行 。 这 一 过 程 将 
这 些 序列 拼接 起 来 ， 返 回 这 样 组 合 而 成 的 指令 序列 。 也 就 是 说 ， 如 果 <seq1> 和 <seq2> 都 是 指 
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令 序 列 ， 那 么 求 值 ; 
(append-instruction-sequences <seqi> <seq:>) 
产生 出 的 指令 序列 就 是 


<seq > 
<S€q2> 


如 果 某 个 时 候 需 要 保存 一 些 寄存 器 的 值 ， 编 译 器 的 代码 生成 器 就 会 使 用 pzeserving， 
它 实 现 了 一 种 更 加 精细 的 组 合 指令 序列 的 方式 。PIeserving 有 三 个 参数 ， 一 个 寄存 器 集合 
和 两 个 需要 顺序 执行 的 指令 序列 。preserving 组 合 这 两 个 序列 的 方式 能 够 保证 ， 如 果 其 参 
数 集合 中 的 某 个 寄存 器 的 值 在 第 二 个 指令 序列 里 需要 用 的 话 ， 这 个 值 就 不 会 受到 第 一 个 指令 
序列 执行 的 影响 。 这 也 就 是 说 ， 如 果 第 一 个 序列 里 修改 某 个 寄存 器 ， 而 第 二 个 序列 里 实际 需 
要 这 个 寄存 器 的 原 值 ， 那 么 preserving 就 会 在 把 第 一 个 序列 归并 进来 之 前 ， 在 这 个 序列 的 
外 面包 上 对 这 个 寄存 器 的 一 个 save 和 一 个 restore。 如 果 情 况 不 是 这 样 ，preserving 就 
返回 简单 连接 起 来 的 序列 。 这 样 ， 举 例 来 说 ， 对 于 : 


(preserving (list <regl> <reg.>) <seq,> <seq2>) 


根据 <segi> 和 <seqg2> 里 如 何 使 用 <regt> 和 <regz>， 有 可 能 产生 下 面 四 种 序列 之 一 : 


<seq\> (save <reg\>) (save <reg.>) (save <reg,>) 
<seqy> <seq,> <seqi> | (save <reg:>) 
(restore <reg,>) (restore <reg.>, <se@q\>) 
<S€q2>) <seq2> (restore <reg,>) 


(restore <reg,>) 
<S€q2> 

通过 采用 preserving 组 合 指令 序列 ， 编 译 器 就 可 以 避免 各 种 不 必要 做 的 堆栈 操作 了。 
这 一 做 法 也 把 是 否 需 要 生成 save 和 restore 指 令 的 细节 全 部 隔离 在 preserving 过 程 里 ， 
把 这 件 事情 与 写 各 个 代码 生成 器 时 所 需要 关心 的 问题 分 离开 来 。 事 实 上 ， 各 个 代码 生成 器 都 
不 会 显 式 地 产生 save 和 LIestore 指 令 。 

从 原则 上 说 ， 我 们 完全 可 以 用 一 个 简单 的 指令 的 表 去 表示 一 个 指令 序列 。 如 果 采 用 这 种 
形式 ，append-instruction-sequences 组 合 指令 序列 的 工作 也 就 是 执行 一 次 常规 的 表 
append。 但 是 如 果真 的 那样 做 ，preserving 就 会 变 成 一 个 非常 复杂 的 操作 ， 因 为 它 将 不 
得 不 去 分 析 每 个 指令 序列 ， 设 法 确定 指令 序列 里 使 用 它 的 寄存 器 (参数 ) 的 情况 。 这 不 单 会 
使 preserving 变 得 异常 复杂 ， 也 使 它 非常 低 效 ， 因 为 它 将 必须 去 分 析 自 己 的 每 个 指令 序 
列 参数 ， 即 使 这 些 参数 本 身 也 是 通过 调用 preserving 而 构造 起 来 的 ， 此 时 它们 里 的 各 个 
部 分 都 曾经 分 析 过 。 为 了 避免 这 种 重复 分 析 ， 我 们 将 为 每 个 指令 序列 关联 上 有 关 其 中 寄存 
器 使 用 的 信息 。 当 我 们 构造 起 一 个 简单 的 指令 序列 时 ， 就 会 显 式 地 提供 有 关 的 信息 ， 而 那 
些 组 合 指令 的 过 程 ， 也 会 从 各 个 成 分 序列 的 相关 信息 中 推导 出 组 合 后 产生 的 序列 的 寄存 器 
使 用 信息 。 

一 个 指令 序列 将 包含 三 部 分 信息 : 

。 它 在 序列 中 的 指令 执行 之 前 必须 初始 化 的 那些 寄存 器 的 集合 (我 们 称 这 些 寄存 器 为 这 个 
序列 所 需要 的 )。 

。 在 这 一 序列 中 ， 其 值 会 被 修改 的 那些 寄存 器 的 集合 。 

。 序 列 里 的 实际 指令 (也 称 为 语 身 )。 





402 PE FARMER A 


我 们 将 把 指令 序列 表示 为 一 个 包含 这 三 个 部 分 的 表 。 这 样 ， 指 令 序 列 的 构造 函数 就 是 : 
(define (make-instruction-sequence needs modifies statements) 
(list needs modifies statements) ) 


举 个 例子 ， 设 想 一 个 包含 了 两 条 指令 的 序列 ， 它 在 当前 环境 里 查看 变量 x 的 值 并 将 这 个 值 
赋 给 val ， 而 后 返回 。 这 个 指令 序列 要 求 寄 存 器 env 和 continue 已 经 过 初始 化 ， 并 要 修改 寄 
存 器 val 。 因 此 这 个 序列 可 以 如 下 构造 : 


(make-instruction-sequence '(env continue) (Val) 
"( (assign val 
(op lookup-variable-value) (const x) (reg env)) 
(goto (reg continue) ) ) ) 


我 们 有 时 也 可 能 需要 构造 不 含 语句 的 指令 序列 : 
(define (empty-instruction-sequence) 
(make-instruction-sequence ’() () ’())) 


5.5.4 节 将 给 出 各 种 组 合 指令 序列 的 过 程 。 

练习 5.31 ”在 求 值 一 个 过 程 应 用 时 ， 显 式 控 制 求 值 器 总 要 在 运算 符 求 值 的 前 后 保存 和 恢 
复 env 寄 存 器 ， 在 对 每 个 运算 对 象 (除了 最 后 一 个 之 外 ) 求 值 的 前 后 保存 和 恢复 env， 在 对 每 
个 运算 对 象 求 值 的 前 后 保存 和 恢复 arg1 ， 在 求 值 运算 对 象 序列 的 前 后 保存 和 恢复 PrOc 。 对 
于 下 面 的 每 个 组 合式 ， 请 说 明 这 其 中 的 那些 save 和 restore 操 作 是 多 余 的 ， 因 此 可 以 由 编 
译 器 里 的 preserving 机 制 删除 ; 

(£ x Y) 

((£) °x ’y) 

(£ (g °x) Y) 

(f (g °x) ‘y) | 

练习 5.32 ”采用 了 preserving 机 制 之 后 ， 在 一 个 组 合式 的 运算 符 是 简单 符号 的 情况 下 ， 
编译 器 就 可 以 避免 在 求 值 运算 符 的 前 后 保存 和 恢复 env 寄 存 器 。 我 们 也 可 以 将 这 种 优化 构筑 
到 求 值 器 里 。 实 际 上 ，5.4 节 的 显 式 控制 求 值 器 已 经 做 了 一 种 类 似 的 优化 ， 其 中 将 没有 运算 对 
象 的 组 合式 作为 一 种 特殊 情况 处 理 。 

a) 请 扩充 显 式 控制 求 值 器 ， 使 之 能 识别 出 运算 符 是 符号 的 组 合式 ， 作 为 一 类 特殊 的 表达 
式 ， 并 在 求 值 这 种 表达 式 时 利用 这 一 特殊 事实 。 

b) Alyssa P. Hacker 建 议 ， 求 值 器 应 该 识别 出 更 多 的 我 们 可 能 结合 到 编译 器 里 的 特殊 情 次 ， 
并 据 此 完全 剔除 编译 器 的 所 有 优势 。 你 觉得 这 种 想法 怎么 样 ? 


5.5.2 ”表达 式 的 编译 


在 本 节 和 下 一 节 里 ， 我 们 要 实现 compile 过 程 分 派 的 那些 代码 生成 絮 。 


连接 代码 的 编译 

一 般 而 言 ， 每 个 代码 生成 器 的 输 出 最 后 都 将 是 一 些 指 令 一 一 由 过 程 compile-linkage 
生成， 实现 所 需要 的 连接 。 如 果 这 一 连接 是 return， 那 么 我 们 就 必须 生成 指令 (goto 
(reg continue) )。 这 条 指令 需要 continue 寄 存 器 ， 而 且 不 修改 任何 寄存 器 。 如 用 这 一 
连接 是 next ， 那 么 我 们 就 不 需要 包括 任何 指令 进来 。 否 则 相应 的 连接 就 是 一 个 标号 ， 需 要 产 





生 一 条 转向 那个 标号 的 9oto 指 令 。 这 条 指令 既 不 需要 也 不 修改 任何 寄存 器 ，。 
(define (compile-linkage linkage) . 
(cond ((eq? linkage ‘return) 
(make-instruction-sequence ‘(continue) °*() 
"((goto (reg continue))))) 
( (eq? linkage ‘’next) 
(empty-instruction-sequence) ) 


(else 
(make-instruction-sequence *() °*() 
‘((goto (label ,linkage))))))) 


连接 代码 将 被 preserving 用 保留 continue 寄 存 器 的 方式 ， 附 加 到 相应 的 指令 序列 之 后 ， 
因为 return 连接 将 需要 continue 寄 存 器 。 这 样 ， 如 果 这 一 指令 序列 修改 了 continue 寄 存 
器 ， 而 连接 代码 又 需要 它 ，continue 的 内 容 就 会 被 保存 和 恢复 。 


(define (end-with-linkage linkage instruction-sequence) 
(preserving ‘(continue) 
instruction-sequence 
(compile-linkage linkage) )) 


简单 表达 式 的 编译 | 
对 于 自 求 值 表达 式 、 引 号 表达 式 和 变量 ， 相 应 的 代码 生成 器 构造 出 的 指令 序列 将 所 需 的 
值 赋 给 指定 的 目标 寄存 器 ， 而 后 根据 连接 描述 符 继 续 下 去 : | 
(define (compile-self-evaluating exp target linkage) 
(end-with-linkage linkage 
(make-instruction-sequence °() (list target) 
‘(({assign ,target (const "exp)))))) 


(define (compile-quoted exp target linkage) 
(end-with-linkage linkage 
(make-instruction-sequence °() (list target) 
‘((assign ,target (const ,(text-of-quotation exp))))))) 


(define (compile-variable exp target linkage) 
(end-with-linkage linkage 
(make-instruction-sequence (env) (list target) 
‘((assign ,target 
(op lookup-variable-value) 
(const ,exp) 
(reg env)))))) 


所 有 这 些 赋值 指令 都 修改 目标 寄存 器 ， 查 找 变量 内 容 的 指令 需要 env 寄 存 器 。 

赋值 和 定义 的 处 理 方式 很 像 在 解释 器 里 的 做 法 。 我 们 要 递归 地 生成 出 那些 用 于 计算 所 需 
值 (准备 赋 给 变量 ) 的 代码 ， 并 在 它 后 面 附加 一 个 包含 两 条 指令 的 序列 ， 实 际 完成 对 变量 的 
赋值 ， 并 将 整个 表达 式 的 值 (符号 ok) 赋 给 目标 寄存 器 。 这 种 递归 编译 使 用 目标 Val 和 连接 


321 这 个 过 程 里 使 用 了 Lisp 的 一 种 称 为 反 引 号 (或 者 拟 引 号 ) AGE, RAE GRO MRE AR. ER 
的 前 面 放 一 个 反 引 号 很 像 是 为 它 加 了 引号 ， 但 是 这 个 表 里 所 有 加 了 逗号 标记 的 东西 都 将 被 求 值 。 | 

举 个 例子 ， 如 果 Linkage 的 值 是 符号 branch25， 那 么 对 “((goto (label ,linkage))) RER 

会 得 到 表 ((goto (label branch25))) 。 与 此 类 似 ， 如 果 x 的 值 是 表 (a b c), 那么 (1 2 (car 


x)) 求 出 的 值 就 是 (1 2 a), 
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next ， 所 以 由 此 生成 的 代码 将 把 值 放 入 val ， 并 继续 去 执行 跟随 其 后 的 代码 。 这 里 采用 的 拼 
接 方式 是 保留 env ， 因 为 在 设置 或 者 定义 变量 都 需要 当时 的 环境 ， 而 产生 变量 值 的 代码 可 能 
是 任何 复杂 表达 式 的 编译 结果 ， 其 中 完全 可 能 以 任何 方式 修改 env 寄 存 器 。 
(define (compile-assignment exp target linkage) 
(let ((var (assignment-variable exp)) 
(get-value-code 
(compile (assignment-value exp) ‘val ‘’next))) 
(end-with-linkage linkage 
(preserving (env) 
get-value-code 
(make-instruction-sequence "(env val) (list target) 
‘((perform (op set-variable-value! ) 
(const ,var) 
(reg val) 
(reg env) ) 
(assign ,target (const ok)))))))) 


(define (compile-definition exp target linkage) 
(let ((var (definition-variable exp) ) 
(get-value-code 
(compile (definition-value exp) ‘val ‘next))) 
(end-with~linkage linkage 
(preserving ‘(env) 
get-value-code 
(make-instruction-~sequence "(env val) (list target) 
‘((perform (op define-variable! ) 
(const ,var) 
(reg val) 
(reg env) ) 
(assign ,target (const ok)))))))) 


在 拼接 两 个 指令 序列 时 需要 env 和 val， 并 要 修改 目标 寄存 器 。 请 注意 ， 虽 然 我 们 为 这 个 序列 
保留 了 env， 但 是 却 没有 保留 val ， 因 为 get-value-code 的 设计 将 会 显 式 地 把 它 的 返回 值 
放 入 val， 供 这 一 序列 使 用 。( 事 实 上 ， 如 果 我 们 真 去 保留 val 的 值 ， 反 而 会 引进 一 个 错误 ， 
因为 这 将 导致 在 get-value-code 运 行 之 后 又 恢复 了 val 原 来 的 内 容 。) 


条 件 表 达 式 的 编译 

对 给 定 的 目标 和 连接 ， 编 译 一 个 诗 表 达 式 而 产生 出 的 指令 序列 将 具有 下 面 形式 : 
< 谓词 的 编译 ， 目 标 为 val ， 连 接 为 next> 

(test (op false?) (reg val)) 
(branch (label false-branch) ) 

- true-branch 

< 以 给 定 目标 及 连接 或 after-if 对 推论 部 分 的 编译 结果 > 

false-branch 
< 以 给 定 目标 及 连接 对 替代 部 分 的 编译 结果 > 


after-if 


为 了 生成 这 样 的 代码 ， 我 们 需要 编译 其 中 的 谓词 、 推 论 和 替代 部 分 。 为 了 将 得 到 的 代码 
与 检测 谓词 结果 的 代码 组 合 起 来 ， 这 里 还 需要 生成 几 个 新 标号 ， 用 于 标识 出 检测 的 真 假 分 支 
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和 条 件 表达 式 计算 的 结束 位 置 “。 在 安排 这 些 代码 时 ， 我 们 必须 在 谓词 检测 为 假 时 跳 过 真 分 
x. 。 稍 微 复杂 一 些 的 情况 出 现在 对 于 真 分 支 的 连接 处 理 的 位 置 。 如 果 这 个 条 件 表 达 式 的 连接 
是 zetuzn 或 是 标号 ， 真 分 支 和 假 分 支 都 应 该 使 用 这 个 连接 。 如 果 当 时 的 连接 是 next ， 真 分 
支 的 最 后 就 需要 一 个 跳 过 假 分 支 的 指令 ， 跳 到 标明 这 一 条 件 结束 的 标号 位 置 。 
(define (compile-if exp target linkage) 
(let ((t-branch (make-label *true-branch) ) 
(f-branch (make-label ’false-branch) ) 
(after-if (make-label ’after-if))) 
(let ((consequent-linkage 
(if (eq? linkage ’next) after-if linkage) )) 
(let ((p-code (compile (if-predicate exp) ‘val ‘next)) 
(c-code 
(compile 
(if-consequent exp) target consequent-linkage) ) 
(a-code 
| (compile (if-alternative exp) target linkage))) 
(preserving (env continue) 


p-code 
(append-instruction-sequences 
(make-instruction-sequence (val) '() 


‘( (test (op false?) (reg val)) 
(branch (label ,f-branch)))) 
(parallel-instruction-sequences 
(append-instruction-sequences t-branch c~-code) 
(append-instruction-sequences f-branch a-code)) 
after-if)))))) 


在 谓词 的 前 后 需要 保留 env , 因为 在 真 分 支 和 假 分 支 中 都 可 能 需要 它 ， 还 需要 保留 continue ， 
因为 这 些 分 支 的 连接 代码 可 能 需要 它 。 由 真 分 支 和 假 分 支 生 成 的 代码 〈 它 们 绝 不 会 顺序 执行 ) 
用 另 一 个 特殊 组 合 操作 Paralle1lL-instruction-sequences 拼 接 起 来 ， 这 一 操作 将 在 


5.5.4 市 里 描述 。 
请 注意 ，cond 是 一 个 派生 表达 式 。 因 此 ， 为 了 处 理 它 ， 编 译 器 需要 做 的 全 部 事情 就 是 应 


用 cond->if 变 换 过 程 ( 取 自 4.1.2 节 )， 而 后 编译 得 到 的 1f RISK. 


22 我 们 不 能 像 上 面 所 示 的 那样 直接 采用 标号 true-branch 、false-branch 和 after-if ， 因 为 在 一 个 程序 
里 完全 可 能 有 不 止 一 个 if 。 因 此 编译 器 需要 用 make-1abe1l 过 程 生成 新 标号 。 过 程 make-1abel1 以 一 个 符 
号 作为 参数 ， 它 将 返回 一 个 新 符号 ， 这 一 标号 以 给 定 的 符号 作为 开始 部 分 。 例 如 ， 连 续 地 反复 调用 (make- 
label ’a) 将 返回 al、a2 等 等 。 过 程 make~1label 的 实现 可 以 采用 与 查询 语言 中 生成 唯一 变量 名 类 似 的 方 
式 ， 例 如 下 面 这 样 ; 


(define label-counter 0) 


(define (new-label-number ) 
(set! label-counter (+ 1 label-counter) ) 


label-counter } 


(define (make-label name} 
(string->symbol 
(string-append (symbol->string name) 
(number->string (new-label~number))))) 
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表达 式 序 列 的 编译 | 
对 于 表达 式 序 列 (来 自 过 程 体 或 者 显 式 的 pbegin 表 达 式 ) 的 编译 与 对 它们 的 求 值 一 样 。 
首先 分 别 编译 序列 里 的 每 个 表达 式 一 一 最 后 一 个 表达 式 将 采用 整个 序列 的 连接 ， 其 他 表达 式 
都 用 next 连接 (表示 随后 应 该 执行 序列 里 剩 下 的 部 分 )。 将 各 个 表达 式 编 译 得 到 的 指令 序列 
拼接 起 来 ， 形 成 一 个 指令 序列 。 在 这 里 需要 保留 起 env (序列 的 其 余部 分 可 能 需要 它 ) 和 
continue (序列 最 后 的 连接 可 能 需要 它 )。 
(define (compile-sequence seq target linkage) 
(if (last-exp? seq) 
(compile (first-exp seq) target linkage) 
(preserving "(env continue) 
(compile (first-exp seq) target ‘next) 
(compile-sequence (rest-exps seq) target linkage) ))) 
lambda Rik xt HAF 
lambda 表达 式 构 造 出 的 是 过 程 。 一 个 Lambda 表 达 式 的 目标 代码 必须 具有 下 面 的 形式 ， 
< 构造 过 程 对 象 并 将 它 赋 给 目标 寄存 器 > | 
< 连接 > - 
在 编译 lambda 表 达 式 时 ， 我 们 还 要 生成 出 过 程 体 的 代码 。 虽 然 这 个 体 在 过 程 构造 期 间 并 
不 执行 ， 但 是 ， 将 它 的 目标 代码 插入 到 紧 接着 1 ambda 的 代码 之 后 是 很 方便 的 。 如 果 对 于 
lambda 表 达 式 的 连接 是 一 个 标号 或 者 return， 这样 做 就 正好 合适 。 但 是 如 果 当 时 的 连接 是 
next ， 那 么 我 们 就 需要 跳 过 过 程 体 的 代码 ， 此 时 采用 一 个 转 跳 连接 ， 将 相应 的 标号 放 在 过 程 
体 的 后 面 。 这 样 ， 目 标 代 码 将 具有 下 面 形式 : 
< 构造 过 程 对 象 并 将 它 赋 给 目标 寄存 器 > 
< 给 连接 的 代码 > 或 (goto (label after-lambda) ) 
< 过 程 体 的 编译 结果 > 
after-lambda 
compile-lambda 生 成 出 构成 过 程 对 象 的 代码 ， 随 后 是 过 程 体 的 代码 。 这 种 过 程 对 象 将 
在 运行 时 构造 起 来 ， 构 造 的 方式 就 是 组 合 起 当时 的 环境 (定义 点 的 环境 ) 和 编译 后 的 过 程 体 
的 入 口 点 (一 个 新 生成 的 标号 ) ”。 
(define (compile-lambda exp target linkage) 
(let ((proc-entry (make-label entry) ) 
(after-lambda (make~label ‘after-lambda) ) ) 


(let ((lambda-linkage 
(if (eq? linkage ‘next) after-lambda linkage) )) 


323 我 们 需要 几 个 机 器 操作 ， 以 便 实 现 表示 编译 后 的 过 程 的 数据 结构 ， 类 似 于 在 4.1.3 节 里 所 描述 的 复合 过 程 的 结 
构 : 
(define (make-compiled-procedure entry env) 


(list ’compiled-procedure entry env)) 


(define (compiled-procedure? proc) 


(tagged-list? proc ’compiled-procedure) ) ) 


(define (compiled-procedure-entry c-proc) (cadr c-proc)) 


(define (compiled-procedure-env c-proc) (caddr c-proc)} 
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(append-instruction-sequences 
(tack-on-instruction-sequence 
(end-with-linkage lambda-linkage 
(make-instruction-sequence (env) (list target) 
‘((assign ,target 
(op make-compiled~procedure) 
(label ,proc-entry) 
(reg env))))) 
(compile-lambda-body exp proc-entry) ) 
after-lLambda) ))) 
compile~lambda 采 用 特殊 的 组 合 操 作 tack-on-instruction-sequence ( 见 5.5.4 节 )， 
将 过 程 体 代码 拼接 到 1ambda 表 达 式 的 代码 后 面 。 这 里 没有 用 append-instruction- 
sequences， 因 为 当 执行 进入 被 组 合 的 序列 时 ， 过 程 体 并 不 是 相应 指令 序列 的 一 部 分 。 将 它 
放 在 这 里 ， 只 不 过 因为 这 是 安放 它 的 一 个 方便 位 置 。 
compile-lambda~body 构 造 出 过 程 体 的 代码 。 这 段 代 码 的 开始 是 一 个 入 口 点 标号 。 
随后 是 一 些 指 令 ， 这 些 指令 完成 的 工作 是 将 运行 时 的 执行 环境 转换 到 求 值 过 程 体 的 正确 环 
境 一 一 也 就 是 说 ， 转 换 到 过 程 的 定义 环境 ， 还 要 完成 用 形式 参数 与 这 一 过 程 被 调用 时 的 实际 
参数 约束 的 扩充 。 在 此 之 后 就 是 构成 过 程 体 的 表达 式 序列 的 编译 结果 代码 。 这 个 序列 用 连 
接 return 和 目标 val 进 行 编译 ， 因 此 它 的 结束 是 从 过 程 里 返回 ， 过 程 的 结果 放 在 val 里 。 
(define (compile-lambda-body exp proc~entry) 
{let ((formals (lambda-parameters exp))) 
(append-instruction-sequences | 
(make-instruction-sequence ’(env proc argl) (env) 
‘(,proc-entry 
(assign env (op compiled-procedure-env) (reg proc) ) 
(assign env 
(op extend-environment ) 
(const ,formals) 
(reg argl) 
(reg env)))) 
(compile-sequence (lambda-body exp) ‘val ‘return)))) 


9.5.3 组 合式 的 编译 


编译 过 程 中 最 本 质 的 东西 就 是 过 程 应 用 的 编译 。 一 个 组 合式 对 给 定 目 标 和 连接 的 编译 结 
果 代 码 具 有 下 面 形 式 : 

< 运算 符 的 编译 结果 ， 目 标 为 Proc ， 连 接 为 next> 

< 求 值 运算 对 象 并 构造 实际 参数 表 ， 放 人 azg1l> 

< 用 给 定 的 目标 和 连接 编译 过 程 调 用 的 结果 > 
在 求 值 运算 符 和 运算 对 象 期 间 ， 我 们 可 能 需要 保留 与 恢复 寄存 器 env、proc 和 argl 。 请 注 
意 ， 在 这 个 编译 器 中 ， 仅 有 这 一 个 地 方 使 用 的 目标 描述 不 是 vaJ。 

这 里 所 需要 的 代码 由 compilLle-app1lication 生 成 。 compile-application 7/5 Hb 
编译 运算 符 ， 生 成 出 的 代码 把 需要 应 用 的 过 程 放 和 人 Proc， 而 后 去 编译 各 个 运算 对 象 ， 生 成 出 
对 过 程 应 用 所 需 的 各 个 运算 对 象 求 值 的 代码 。 针 对 各 个 运算 对 象 的 指令 序列 还 要 与 在 arg1 里 





408 5È FABMARLwHHK 


构造 实际 参数 表 的 代码 组 合 起 来 (通过 construct-arglist)， 得 到 的 实际 参数 表 代 码 再 
与 过 程 的 代码 和 执行 过 程 调用 的 代码 (由 compile-procedure-call 生 成 ) 组 合 到 一 起 。 
在 拼接 这 一 代码 序列 的 过 程 中 ， 在 运算 符 求 值 的 前 后 必须 保留 和 恢复 env (因为 运算 符 的 求 
值 可 能 修改 env ， 而 在 运算 对 象 求 值 时 还 需要 它 ) ， 在 构造 实际 参数 表 的 前 后 必须 保留 起 寄存 
器 broc (因为 对 运算 对 象 的 求 值 中 可 能 修改 proc， 在 实际 过 程 应 用 时 还 需要 它 ) 。 在 整个 这 
一 段 的 前 后 需要 保留 continue， 因 为 过 程 调用 的 连接 需要 它 。 


(define (compile~application exp target linkage) 
{let ((proc-code (compile (operator exp) ’proc ‘next)) 
(operand-codes | 
(map (lambda (operand) (compile operand ‘val ’next)) 
(operands exp)))) : 

(preserving (env continue) 

proc-code 

(preserving ‘(proc continue) 
(construct-arglist operand-codes) 
(compile-procedure-call target linkage))))) 


构造 实 参 表 的 代码 将 对 每 个 运算 对 象 求 值 ， 结 果 放 入 val， 而 后 把 这 个 值 cons 到 在 arg1 
里 积累 起 来 的 实 参 表 中 。 因 为 这 里 是 顺序 地 将 实 参 cons 到 argl1 上 ， 因 此 我 们 就 必须 从 最 后 
一 个 参数 开始 ， 第 一 个 参数 最 后 做 ， 这 样 才能 使 实际 参数 在 结果 表 里 出 现 的 顺序 是 从 第 一 个 
到 最 后 一 个 。 为 了 不 浪费 一 条 指令 去 做 将 arg1 初始 化 为 空 表 ， 准 备 好 这 一 系列 求 值 的 工作 ， 
我 们 让 第 一 个 代码 序列 构造 出 初始 的 arg1 。 这 样 ， 实 际 产生 表 构 造 的 一 般 形式 就 是 : 


< 最 后 运算 对 象 的 编译 结果 ， 目 标 为 val> 
(assign argl (op list) (reg val)) 


< 下 一 运算 对 象 的 编译 结果 ， 目 标 为 val> 


(assign argl (op cons) (reg val) (reg argl)) 


< 第 一 个 运算 对 象 的 编译 结果 ， 目 标 为 val> 

(assign argl (op cons) (reg val) (reg argl)) 
除了 第 一 个 运算 对 象 之 外 ， 在 每 个 运算 对 象 求 值 的 前 后 都 必须 保留 和 恢复 argl (以 保证 至 今 
已 经 积累 起 的 实际 参数 不 会 丢失 ) ， 除了 最 后 一 个 参数 之 外 ， 在 每 个 运算 对 象 求 值 的 前 后 都 
必须 保留 和 恢复 enV (以 便 后 续 的 运算 对 象 求 值 中 使 用 )。 

由 于 对 第 一 个 参数 需要 特殊 处 理 ， 并 需要 在 不 同 的 地 方 保留 azg1 和 env ， 编 译 这 段 实 参 
代码 中 有 些小 麻烦 。construct-arg1list 过 程 以 求 值 各 个 运算 对 象 的 代码 段 为 参数 。 如 用 
根本 就 没有 运算 对 象 ， 它 就 直接 送出 下 面 指令 : 

(assign argl (const ())) 
否则 ，construct-arglist 就 用 最 后 一 个 实际 参数 创建 起 初始 化 arg1 的 代码 ， 并 拼接 起 
求 值 其 他 参数 得 到 的 代码 ， 并 将 它们 顺序 结合 到 arg1 里 。 为 了 从 后 向 前 处 理 各 个 实际 参数 ， 
我 们 必须 把 compile-application 提 供 的 运算 对 象 代码 序列 的 表 反 转 过 来 。 

(define (construct-arglist operand-codes) 

{let ((operand-codes (reverse operand-codes) )) 


(if (null? operand-codes) 
(make-~instruction-sequence '() *(argl) 
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'( (assign argl (const ())))) 
(let ((code-to-get-last-arg 
{append-instruction-sequences 
(car operand-codes) 
(make-instruction-sequence (val) “ (argl) 
'( (assign argl (op list) (reg val))))))) 
(if (null? (cdr operand-codes) ) 
code-to-get-last-arg 
(preserving (env) 
code-to-get-last-arg 
(code-to-get-rest-args 
(cdr operand-codes)))))))) 
(define (code-to-get-rest-args operand-codes ) 
(let ((code-for-next-arg 
(preserving ’(argl) 
(car operand-codes) 
(make-instruction-sequence *(val argl) ‘(argl) 
"( (assign argl 
(op cons) (reg val) (reg argl))))))) 
(if (null? (cdr operand-codes) ) 
code-for-next-arg 
(preserving (env) 


code-for-next-arg 


(code-to-get-rest-args (cdr operand-codes)))))) 
过 程 应 用 


在 完成 了 组 合式 里 的 各 个 元 素 的 求 值 之 后 ， 得 到 的 编译 结果 代码 需要 把 位 于 pzoc 里 的 过 程 
应 用 于 arg1 里 的 实际 参数 。 从 本 质 上 看 ， 这 段 代码 执行 就 是 分 派 动 作 ， 与 4.1.1 节 里 元 循环 求 值 器 
里 的 apply 过 程 ,或 者 5.4.1 节 里 显 式 控制 求 值 器 里 apply-dispatch 入 口 点 所 完成 的 动作 差不多 。 
它 检 查 被 应 用 的 过 程 是 基本 过 程 还 是 编译 出 的 过 程 。 对 于 基本 过 程 使 用 apply-primitive- 
procedure。 下 面 马 上 会 看 到 对 于 编译 出 的 过 程 的 处 理 方式 。 过 程 应 用 的 代码 具有 如 下 形式 : 
(test (op primitive-procedure?) (reg proc)) 


(branch (label primitive-branch) ) 
compiled-branch 


< 对 给 定 目标 及 适当 连接 应 用 编译 好 的 过 程 的 代码 > 
primitive-branch 
(assign < 目标 > 
(op apply-primitive-procedure) 
(reg proc) 
(reg argl)) 
< 连接 > 
after-call 


应 注意 ， 这 里 有 关 编 译 后 过 程 的 分 支 必须 跳 过 处 理 基本 过 程 的 分 支 。 这 样 ， 如 果 原 过 程 调用 


的 连接 是 next ， 复 合 分 支 就 必须 使 用 另 一 个 连接 ， 以 便 能 跳 到 插入 在 基本 分 支 后 面 的 那个 标 
号 处 。( 这 类 似 于 在 compile~if 里 真 分 支 所 用 的 连接 .) 


(define (compile-procedure-call target linkage) 


(let ((primitive-branch (make-label ’primitive-branch) ) 
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(compiled-branch (make-label ’compiled-branch) ) 
(after-call (make-label ‘after-call))) 
(let ((compiled-linkage 
(if (eq? linkage ‘next) after-call linkage))) 
(append-instruction-sequences 
(make-instruction-sequence (proc) ’() 
‘((test (op primitive-procedure?) (reg proc) ) 
(branch {label ,primitive-branch) ))) 
(parallel-instruction-sequences 
(append-instruction-sequences 
compiled-branch 
(compile-proc-appl target compiled-linkage) ) 
(append-instruction-sequences 
primitive-branch | 
(end-with-linkage linkage 
(make-~instruction-sequence ’ (proc argl) 
(list target) 
‘((assign ,target 
(op apply-primitive-procedure) 
(reg proc) 
(reg argl))))))) 
after-call)))) 


这 里 的 基本 分 支 和 复合 分 支 很 像 compile-if 里 的 真 分 支 和 假 分 支 ， 它 们 也 是 用 过 程 
parallel-instruction-sequences 拼 接 的 ， 而 没有 用 常规 的 append-instruction- 
sequences ， 因 为 它们 不 会 顺序 执行 。 

编译 出 的 过 程 的 应 用 

处 理 过 程 调用 的 代码 是 这 个 编译 器 里 最 难处 理 的 部 分 ， 虽 然 它 所 生成 的 指令 序列 实际 上 
很 短 。 一 个 编译 出 的 过 程 (由 compile-1Lambda 构 造 出 来 ) 有 一 个 人 口 点 ， 就 是 一 个 标号 ， 
它 标 明了 这 个 过 程 的 开始 位 置 。 位 于 这 一 入 口 点 的 代码 能 够 计算 出 一 个 结果 ， 并 将 它 放 入 
val ， 而 后 通过 执行 指令 (goto (reg continue)) 返回 。 由 于 这 些 情况 ， 我 们 可 能 认为 ， 
如 果 连 接 是 一 个 标号 ， 针 对 给 定 的 目标 和 连接 应 用 一 个 编译 过 程 的 代码 (由 compile- 
proc-appl 生 成 ) 看 起 来 会 是 下 面 的 形式 : 

(assign continue (label proc-return) ) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 

proc-return 


(assign < 目标 > (reg val)) ; included if target is not val 
(goto (label < 连接 >) ) ; linkage code 


当 连 接 是 return 时 ， 它 会 像 下 面 的 样本 : 
(save continue) 
(assign continue (label proc-return) ) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
proc-return 
(assign < 目标 > (reg val)) ; included if target is not val 
(restore continue) 
(goto (reg continue) ) ; linkage code _ 
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这 里 的 代码 将 设置 好 continue (以 便 使 过 程 能 返回 标号 proc-return)， 而 后 就 跳 到 过 程 
的 入 口 点 。 位 于 proc~return 的 代码 把 过 程 产生 的 结果 从 val 传送 到 目标 寄存 器 (如 果 需 要 )， 
而 后 跳 到 由 连接 描述 的 特定 位 置 (这 一 连接 一 定 是 一 个 return 或 者 是 一 个 标号 ， 因 为 
compile-procedure-call 已 把 对 复合 过 程 分 支 的 next 连接 换 成 为 一 个 after-call 标 
ST). 

事实 上 ， 如 果 这 里 的 目标 不 是 val， 那 么 它 正好 就 是 我 们 的 编译 器 将 要 生成 的 代码 “。 当 
然 ， 有 关 的 目标 通常 都 是 val (编译 器 里 以 另 一 个 寄存 器 作为 求 值 目标 的 地 方 仅 有 一 处 ， 那 
就 是 将 求 值 运算 符 的 目标 定 在 Proc )， 所 以 过 程 的 结果 将 直接 放 人 目标 寄存 器 ， 而 不 需要 将 
结果 先 放 入 特定 位 置 ， 而 后 再 去 复制 它 。 还 有 ， 我 们 还 要 简化 这 里 的 代码 ， 通 过 设置 好 
continue， 使 得 过 程 能 直接 “返回 ”到 调用 者 描述 的 连接 所 指定 的 位 置 : 

< 为 连接 设置 continue> 


(assign val (op compiled-procedure-entry) (reg proc)) 

(goto (reg val)) 
如 果 连 接 是 一 个 标号 ， 我 们 就 设置 好 continue ， 使 过 程 直 接 返回 到 那个 标号 〈 也 就 是 说 ， 
作为 过 程 结束 的 (goto (reg continue ))， 此 时 将 变 得 等 价 于 上 面 的 proc-~zeturn 处 的 
(goto (label < 连接 > ))。) 


(assign continue (label < 连接 >) ) 
(assign val (op compiled-procedure-entry) (reg proc)) 
(goto (reg val)) 


如 果 连 接 是 zeturn ， 我 们 将 根本 不 需要 设置 continue : 它 里 面 已 经 保存 着 所 需 的 地 址 。 
(也 就 是 说 ， 作 为 这 一 过 程 结 束 的 (goto (reg continue) )， 将 能 直接 跳 到 上 面 的 proc- 
return 处 的 (goto (reg continue)) 应 该 跳 到 的 地 方 。) 

(assign val (op compiled-procedure-entry) (reg proc)) 

(goto (reg val)) 
采用 这 样 的 return 连 接 实现 后 ， 编 译 器 就 能 生成 尾 递归 代码 了 。 在 调用 一 个 过 程 时 ， 作 为 过 
程 体 的 最 后 一 个 步骤 将 完成 一 次 直接 转移 ， 无 需 向 堆栈 里 保存 任何 信息 。 

假如 我 们 不 采取 这 种 做 法 ， 对 于 具有 return 连 接 和 val 目 标的 过 程 调 用 ， 也 采用 上 面 所 
示 的 那 种 对 非 val 目标 的 代码 的 处 理 方 式 ， 那 么 就 会 破坏 尾 递归 。 虽 然 这 样 得 到 的 系统 对 任 
何 表达 式 都 将 给 出 同样 结果 ， 但 在 每 次 调用 过 程 时 ， 它 都 要 保存 起 continue， 并 在 相应 调 
用 最 后 返回 时 撤销 这 种 (无 用 ) 保存 的 效果 。 这 一 额外 的 保存 将 会 在 幅 套 的 过 程 调 用 中 积累 
起 来 ?25 。 


324 在 实际 中 ， 当 目标 不 是 val 而 连接 是 zeturn 时 ， 我 们 将 发 出 一 个 错误 信号 ， 因 为 只 有 在 编译 过 程 时 才 需 要 
returna 连 楼， 而 按照 我 们 的 约定 ， 过 程 总 是 在 val 里 返回 它们 的 值 。 

ws 这 样 看 起 来 ， 编 译 器 生成 尾 递归 代码 的 思想 是 非常 直截了当 的 。 但 是 ， 处 理 常 见 语言 (包括 C 和 Fascal ) 的 大 
部 分 编译 器 都 没有 做 这 件 事 ， 因 此 在 这 些 语言 里 就 不 能 仅仅 用 过 程 调用 来 描述 迭代 。 在 那些 语言 里 处 理 尾 弟 
归 的 困难 ， 在 于 它们 的 实现 中 不 但 在 堆栈 里 保存 返回 地 址 ， 还 要 保存 过 程 实际 参数 和 局 部 变量 。 在 本 书 所 描 
述 的 Scheme 实现 里 ， 实 参 和 变量 都 保存 在 能 做 废料 收集 的 存储 区 里 。 采 用 堆栈 保存 实 参 和 局 部 变量 ， 是 因为 
那样 做 可 以 避免 在 语言 里 使 用 废料 收集 ( 如 果 不 那 样 做 就 会 需要 它 ) , 一 般 认为 这 种 情况 有 利于 程序 执行 效率 。 
事实 上， 复杂 的 Lisp 编 译 器 也 可 以 用 堆栈 保存 实 参 而 又 不 破坏 尾 递归 (参看 Hanson 1990 的 讨论 ) 。 在 更 基本 
的 问题 上 ， 有 关 堆 栈 分 配 是 否 确 实 能 得 到 高 于 废料 收集 的 效率 ， 也 存在 着 许多 争论 ， 其 中 的 细节 看 来 依赖 于 
计算 机 体 系 结构 的 某 些 细微 要 点 (参见 Appel 1987 和 Miller and Rozas 1994 有 关 这 一 问题 的 对 立 观点 ) 。 
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compile-proc-appl 生 成 上 面 所 述 的 过 程 调 用 代码 ， 其 中 考虑 了 四 种 不 同情 况 ， 根 据 
一 个 调用 的 目标 是 否 为 val ， 以 及 其 连接 是 否 为 return 。 可 以 看 到 ， 这 里 的 代码 序列 都 说 明 
为 需要 修改 所 有 寄存 器 ， 因 为 执行 过 程 体 完全 可 能 以 任何 方式 修改 寄存 器 。 还 请 注意 ， 有 
关 目 标 Val 和 连接 Feturn 情 况 的 代码 序列 说 明了 需要 continue: 即使 continue 并 没有 被 
用 在 其 中 的 两 个 指令 序列 里 ,我 们 也 必须 保证 在 进入 编译 好 的 过 程 时 ，continue 将 有 正确 
的 值 。 | 

(define (compile-proc-appl target linkage) 

(cond ((and (eq? target ’val) (not (eq? linkage ‘return))) 
(make-instruction-sequence ‘(proc) all-regs 
‘( (assign continue (label ,linkage) ) 
(assign val (op compiled-procedure-entry ) 
(reg proc)) 
(goto (reg val))))) 
((and (not (eq? target ‘val)) 
(not (eq? linkage ‘return))) 
(let ((proc-return (make-label ‘proc-return))) 
(make-instruction-sequence ‘(proc) all-regs 
‘( (assign continue (label ,proc-return) ) 
(assign val (op compiled-procedure-entry) 
(reg proc)) 
(goto (reg val)) 
sproc-return 
(assign ,target (reg val)) 
(goto (label ,linkage)))))) 
((and (eq? target ’val) (eq? linkage ’return)) 
(make-instruction-sequence (proc continue) all-regs 
"( (assign val (op compiled-procedure-entry ) 
(reg proc)) 
(goto (reg val))))) 
((and (not (eq? target ’val)) (eq? linkage ‘return)) 
(error "return linkage, target not val -- COMPILE" 
target)))) 


5.5.4 指令 序列 的 组 合 


本 节 将 说 明 如 何 表 示 指 令 序 列 ， 以 及 如 何 组 合 起 它们 的 细节 。 回 忆 一 下 5.5.1 市 ， 那 时 我 
们 说 明了 ， 指 令 序列 用 一 个 表 来 表示 ， 其 中 包含 所 需要 的 寄存 器 集合 ， 所 修改 的 寄存 器 集合 ， 
以 及 一 串 实际 指令 。 我 们 还 要 把 标号 (一 个 符号 ) 看 作 是 指令 序列 里 的 一 种 退化 情况 ， 它 既 
不 需要 也 不 修改 任何 寄存 器 。 这 样 ， 在 需要 确定 一 个 指令 序列 需要 哪些 寄存 器 ， 修 改 哪 些 寄 
存 器 时 ， 我 们 将 使 用 下 面 的 选择 函数 : 

(define (registers-needed s) 

(if (symbol? s) () (car s))) 


(define (registers-modified s) 





326 谈 量 aL1-zegs 将 约束 于 一 个 包含 所 有 寄存 器 ATOR: 


(define all-regs ‘(env proc val argl continue) ) 
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(if (symbol? s) ’() (cadr s))) 


(define (statements s) 
(if (symbol? s) (list s) (caddr s))) 


要 确定 某 个 指令 序列 是 否 需 要 或 者 修改 某 个 特定 的 寄存 器 ， 我 们 使 用 下 面 的 谓词 : 

(define (needs-register? seq reg) 

(memq reg- (registers-needed seq))) 
(define (modifies-register? seq reg) | 
(memg reg (registers-modified seq) ) ) 

现在 我 们 就 可 以 基于 这 些 谓词 和 选择 函数 ， 去 实现 用 在 这 个 编译 器 里 的 各 种 组 合 指令 序列 的 
过 程 了 。 | 

最 基本 的 组 合 过 程 是 append-instruction-sequences ， 它 以 任意 多 个 意欲 顺序 执 
行 的 指令 序列 为 实际 参数 ， 返 回 一 个 指令 序列 ， 其 中 的 语句 是 由 所 有 参数 序列 里 的 语句 顺序 
拼接 而 形成 的 。 在 这 里 ， 更 复杂 的 问题 是 确定 结果 序列 所 需要 和 修改 的 寄存 器 集合 。 它 所 修 
改 的 寄存 器 就 是 被 其 中 的 任 一 个 序列 修改 的 寄存 器 ， 而 它 所 需要 的 寄存 器 就 是 在 其 中 的 第 一 
个 序列 可 以 运行 前 必须 初始 化 的 那些 寄存 器 (第 一 个 序列 所 需要 的 寄存 器 ) ， 再 加 上 其 他 序列 
里 的 某 一 个 所 需要 的 那些 寄存 器 ， 而 这 些 寄存 器 又 没有 被 它 前 面 的 序列 初始 化 (或 者 修改 )。 

这 些 序列 用 append-2-sequences 两 个 一 次 地 拼接 起 来 。 这 个 过 程 以 两 个 指令 序列 
seql 和 seqg2 作为 参数 ， 返 回 一 个 指令 序列 ， 其 中 的 语句 是 序列 segl1 里 的 语句 后 跟着 序列 
seq2 里 的 语句 ， 它 所 修改 的 寄存 器 包括 所 有 被 seq1 或 者 seq2 修改 的 寄存 器 ， 它 需要 的 寄存 
器 是 seql 所 需要 的 寄存 器 ， 再 加 上 那些 seq2 需 要 同时 又 没有 被 seq1 修 改 的 寄存 器 (按照 集 
合 操作 的 描述 方式 ， 这 一 新 语句 序列 需要 的 寄存 器 ， 就 是 segl 需要 的 寄存 器 集合 ， 与 seq2 
需要 的 寄存 器 集合 与 seql 修改 的 寄存 器 集 的 差 集 之 并 集 ) 。 这 样 ，append-instruction- 
sequences 可 以 实现 如 下 : 


(define (append-instruction-sequences . segs) 
(define (append-2-sequences seql seq2) 
(make-instruction-sequence 
(list-union (registers-needed segi) 
(list-difference (registers-needed seq2) 
(registers-modified seqi))) 
(list-union (registers-modified seql) 
(registers-modified seq2)) 
(append (statements seql) (statements seq2)))) 
(define (append-seq-list seqs) 
(if (null? segs) 
(empty-instruction-sequence } 
(append-2-sequences (car seqs) 
(append-seq-list (cdr seqs))))) 
(append-seq-list seqs) ) ) 


这 个 过 程 里 使 用 了 一 些 简单 操作 ， 完 成 对 以 表 的 形式 表示 的 集合 的 各 种 运算 。 这 种 表 王 
2.3.3 节 里 描述 的 (无 序 ) 集合 表示 类 似 : 


(define (list-union sl s2) 
(cond ((null? sl) s2) 
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({memg (car sl) s2) (list-union (cdr sl) s2)) 
(else (cons (car sl) (list-union (cdr sl) s2))})) 


(define (list-difference sl s2) 
(cond ((null? sl} °()) 
( (memg (car sl) s2) (list-difference (cdr sl) s2)) 
(else (cons (car s1) 
(list-difference (cdr sl) s2))))) 


preserving 是 第 二 个 主要 的 序列 组 合 过 程 ， 它 的 参数 是 一 个 寄存 器 表 regs 和 两 个 应 该 
顺序 执行 的 指令 序列 seql 和 seq2。 它 返回 一 个 指令 序列 ， 其 中 的 语句 是 seq1 的 语句 后 跟着 
seq2 的 语句 ， 再 加 上 围绕 在 seq1l 的 语句 前 后 的 适当 的 save 和 restore 指 令 ， 以 便 保护 
regs 里 的 那些 seq2 需要 的 而 又 将 被 seq1l 修 改 的 寄存 器 。 为 了 完成 这 一 工作 , preserving 
首先 创建 出 一 个 序列 ， 其 中 包含 了 所 需要 的 那些 save ， 后 面 跟着 seq1l 里 的 语句 ， 而 后 是 所 
需 的 所 有 restore。 这 一 序列 所 需要 的 寄存 器 ， 除 了 seq1 需 要 的 那些 寄存 器 外 ， 还 有 所 有 
在 这 里 保留 和 恢复 的 寄存 器 ， 它 修改 的 寄存 器 就 是 seq1 修 改 的 寄存 器 ， 但 要 除去 在 这 里 保留 
和 恢复 的 那些 寄存 器 。 最 后 将 这 一 扩充 序列 与 seqg2 按 常规 方式 拼接 起 来 。 下 面 过 程 以 递归 方 
式 实现 这 一 策略 ， 逐 一 处 理 需 要 保留 的 寄存 器 表 里 的 寄存 器 : 


(define (preserving regs segl seq2) 
(if (null? regs) - 
(append-instruction-sequences seql seq2) 
{let ((first-reg (car regs))) 
(if (and (needs-register? seq2 first-reg) 
(modifies-register? seqgl first-reg) ) 
(preserving (cdr regs) 
(make-instruction-sequence 
(list-union (list first-reg) 
(registers-needed seql)) 
(list-difference (registers~-modified seql) 
(list first-reg) ) 
(append ‘((save ,first-reg) ) 
(statements seql) 
‘((restore ,first-reg)))) 
seq2) 
(preserving (cdr regs) seql seq2))))) 


另 一 个 序列 组 合 过 程 是 tack-on-instruction-sequence， 它 用 在 compile-lambda 
里 ， 用 于 将 过 程 与 另 一 个 序列 拼接 起 来 。 由 于 过 程 体 本 身 并 不 是 作为 组 合 序列 的 一 部 分 而 
“在 线 ” 执 行 的 ， 它 所 使 用 的 寄存 器 对 于 它 骨 入 其 中 的 序列 的 寄存 器 使 用 并 没有 影响 。 这 样 ， 
我 们 在 将 过 程 体 纳入 其 他 序列 时 ， 就 应 该 忽略 它 所 需要 和 修改 的 寄存 器 集合 。 


(define (tack-on-instruction-sequence seq body-seq) 
(make-instruction-sequence 
(registers~—needed seq) 
(registers-modified seq) 
(append (statements seq) (statements body-seq)))) 


327 请 注意 ， 这 里 preserving 用 三 个 参数 调用 append。 虽 然 本 书 里 介绍 的 apPpend 定 义 只 接受 两 个 参数 Scheme 
标准 提供 的 apPpPend 过 程 可 以 接受 任意 多 个 参数 。 
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compile-if 和 compile-procedure-call 采 用 了 一 个 特殊 的 组 合 过 程 ， 完 成 条 件 表 
达 式 中 检测 之 后 的 两 个 分 支 的 拼接 , 这 个 过 程 名 为 parallel-instruction-sequences， 
这 里 的 两 个 分 支 决 不 会 顺序 执行 ， 对 于 任何 一 种 特定 的 检测 求 值 情 况 ， 有 且 仅 有 两 个 分 支 之 
一 执行 。 正 因为 这 样 ， 第 二 个 分 支 所 需要 的 寄存 器 也 将 是 整个 组 合 序列 所 需要 的 ， 即 使 其 中 
的 一 些 被 第 一 个 分 支 修改 也 如 此 。 | 


(define (parallel-instruction-sequences Segl seq2) 
(make-instruction-sequence 
(list-union (registers-needed seql) 
(registers-needed seq2)) 
(list-union (registers-modified seql) 
(registers-modified seq2)) 
(append (statements segi) {statements seq2)))) 


9.9.9 编译 代码 的 实例 


至 此 我 们 已 经 看 到 了 这 一 编译 器 的 所 有 元 素 ， 现 在 让 我 们 来 考察 一 个 编译 代码 的 实例 ， 
看 看 这 里 的 各 种 东西 如 何 相 互 配 合 浑然 一 体 。 我 们 将 通过 下 面 形式 调用 compile， 编 译 其 中 
递归 定义 的 factorial 过 程 的 定义 : 


(compile 
*(define (factorial n) 
(if (=n 1) 
1 
(* (factorial (- n 1)) n))) 
‘val 
"next ) 


前 面 已 经 说 过 ，define 表 达 式 的 值 应 该 放 入 寄存 器 Val ， 我 们 也 不 关心 在 执行 define 之 后 
的 编译 代码 是 什么 。 因 此 在 这 里 就 随意 地 选择 next 作 为 连接 描述 符 。 
由 于 compile 确 定 了 被 处 理 的 表达 式 是 一 个 定义 ， 所 以 它 调用 compile-definition 
去 编译 出 计算 被 赋 的 值 的 代码 (以 val 为 目标 )， 随 后 是 安装 这 一 定义 的 代码 ， 随 后 是 将 这 一 
define 的 值 (就 是 符号 ok) 放 入 目标 寄存 器 的 代码 ， 和 再 后 面 是 最 后 的 连接 代码 。env 被 保 
留 起 来 ， 绕 过 值 的 计算 部 分 ， 因 为 后 来 还 需要 用 它 去 安装 这 个 定义 。 由 于 连接 是 next ， 在 这 
种 情况 下 就 没有 连接 代码 。 这 样 ， 编 译 结果 代码 的 框架 如 下 : 
< 如 果 env 被 计算 值 的 代码 修改 就 保存 它 > 
< 定义 值 的 编译 结果 ， 目 标 为 Val ， 连 接 next> 
< 如 果 env 在 前 面 保存 就 恢复 E 
(perform (op define-variable!) 
(const factorial) 
(reg val) 
(reg env)) 
(assign val (const ok)) 


在 这 里 ， 需 要 编译 并 产生 出 变量 factorial 的 值 的 表达 式 是 一 个 Lambda 表 达 式 ， 这 个 
值 是 一 个 计算 阶乘 的 过 程 。compile 处 理 这 种 表达 式 的 方式 是 调用 compile-lambda， 让 
这 个 过 程 去 编译 过 程 体 ， 用 新 标号 将 它 标记 为 一 个 入 口 点 ， 并 生成 出 一 些 指 令 ， 将 位 于 这 个 
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新 入 口 点 的 过 程 体 组 合 到 运行 时 的 环境 中 ， 最 后 将 结果 赋 给 val 。 虽 然 编译 好 的 过 程 代码 被 
插入 在 这 个 位 置 ， 整 个 序列 则 需要 跳 过 这 些 代码 。 过 程 代码 在 它 开始 的 地 方 去 扩充 过 程 的 定 
义 环境 ， 在 这 里 需要 增加 一 个 框架 ， 其 中 将 形式 参数 n 约 束 到 过 程 的 实际 参数 。 随 后 就 是 实际 
的 过 程 体 。 由 于 求 出 变量 值 的 这 段 代 码 并 不 修改 envV 寄 存 器 ， 因 此 前 面 所 示 的 可 选 的 save 和 
restore 就 不 会 产生 (位 于 entry2 的 过 程 代码 在 这 一 点 还 没有 执行 ， 因 此 它 对 env 的 使 用 
与 此 无 关 )。 这 样 ， 编 译 生 成 的 代码 框架 变 成 了 : 
(assign val (op make-compiled-procedure) 
(label entry2) 
(reg env)) 
(goto (label after-lambdal) ) 
entry2 
(assign env (op compiled-procedure-env) (reg proc)) 
(assign env (op extend-environment) 
(const (n)) 
(reg argl) 
| (reg env) ) 
< 过 程 体 的 编译 结果 > 
after-lambdal 
(perform (op define-variable! ) 
(const factorial) 
(reg val) 
(reg env) ) 
(assign val (const ok)) 


过 程 体 总 是 被 (用 compile-lambda-body ) 编译 为 一 个 序列 ， 用 val 作 为 目标 ， 用 的 
连接 是 return。 目 前 这 个 序列 来 自 一 个 1f 表 达 式 : 
(if (= 1) 
1 
(* (factorial (- n 1)) n)) 
compile-if 生 成 的 代码 首先 计算 谓词 部 分 (目标 为 val) ， 而 后 检查 计算 结果 ， 在 谓词 为 候 
时 跳 过 真 分 支 。 在 谓词 代码 的 前 后 需要 保留 和 恢复 enV、Ccontinue ， 因 为 1£ 表 达 式 的 其 他 
部 分 还 可 能 需要 它们 。 因 为 这 个 if 表 达 式 也 是 构成 这 个 过 程 体 的 序列 里 的 最 后 一 个 (也 是 仅 
有 的 一 个 ) BAK, 其 目标 是 val 而且 连 接 是 return， 所 以 它 的 真 分支 和 假 分 支 都 用 目标 
val 和 连接 return 编 译 。( 也 就 是 说 ， 这 个 条 件 表达 式 的 值 ， 也 就 是 从 它 的 任何 分 支 计 算出 
的 值 ， 实 际 上 就 是 整个 过 程 的 值 。) 
< 如 果 continue, env 被 谓词 部 分 修改 且 后 面 分 支 需要 ， 就 保存 > 
< 谓词 部 分 的 编译 结果 ， 目 标 为 val ， 连 接 为 next> 
< 如 果 continue, env 在 前 面 保 存 ， 现 在 恢复 > 
(test (op false?) (reg val)) 
(branch (label false-branch4) ) 
true-branch5 


< 真 分 支 的 编译 结果 ， 目 标 为 Val ， 连 接 为 return> 


false-branch4 
< 假 分 支 的 编译 结果 ， 目 标 为 Yal ， 连 接 为 return> 
after-if3 


谓词 (= n 1) 是 一 个 过 程 调 用 ， 这 时 需要 查找 运算 符 (符号 = )， 并 把 相应 的 值 放 入 
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PrOCc。 而 后 把 实 参 1 和 的 值 装 进 argl 里 。 这 时 需要 检查 proc 里 面包 含 的 是 基本 过 程 还 是 复 
合 过 程 ， 并 根据 情况 分 派 到 基本 分 支 或 者 复合 分 支 ， 这 两 个 分 支 都 结束 在 after-call 标 号 。 
有 关 在 求 值 运 算 符 和 运算 对 象 的 前 后 保留 和 恢复 寄存 器 的 要 求 ， 在 目前 这 一 情况 里 没有 导致 
任何 寄存 器 保留 动作 ， 因 为 这 里 的 求 值 都 不 会 修改 需要 考虑 的 那些 寄存 器 。 


(assign proc 
(op Lookup-variable-value) (const =) (reg env) ) 
(assign val (const 1)) 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const n) (reg env)) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-branchl17) ) 
compiled-branchl6 
(assign continue (label after-cal115)) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
primitive-branchl?7 
(assign val (op apply-primitive-procedure) 
(reg proc) 
(reg argl)) 
after-callls 


真 分 支 就 是 常数 1， 它 将 被 编译 为 (用 目标 Val 和 连接 return ) 


(assign val (const 1)) 
(goto (reg continue)) 


相对 于 假 分 支 的 代码 是 另 一 个 过 程 调用 ， 其 中 的 过 程 是 符号 * 的 值 ， 参 数 是 n 和 另 一 过 程 调 用 
的 结果 (这 里 又 是 一 个 对 factorial 的 调用 )。 这 些 调用 中 的 每 一 个 都 要 设置 proc 和 和 arg1， 
以 及 它们 的 基本 分 支 和 复合 分 支 。 图 $-17 显 示 的 是 factorial 过 程 的 定义 的 完整 编译 结果 。 
请 注意 ， 在 那里 围绕 着 谓词 的 ， 还 有 对 于 continue 和 和 env 的 save 和 restore， 它 们 都 被 实 
际 生 成 出 来 了 ， 这 是 因为 在 谓词 里 的 过 程 调 用 要 修改 这 些 寄存 器 ， 而 两 个 分 支 里 的 过 程 调用 
和 return 连 接 都 还 需要 它们 。 


;; construct the procedure and skip over code for the procedure body 


(assign val 
(op make-compiled-procedure) (label entry2) (reg env)) 
{goto (label after-lambdal)) 


entry2 ; callsto factorial will enter here 
(assign env (op compiled-procedure-env) (reg proc) ) 


(assign env 
(op extend-environment) (const (n)) (reg argl) (reg env)) 


; begin actual procedure body 
(save continue) 
(save env) 


‘; compute (= Nn 1) 





图 5-17 对 过 程 factorial 定 义 的 编译 结果 
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(assign proc (op lookup-variable-value) (const =) (reg env)) 
(assign val (const 1)) 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const n) (reg env) ) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive~procedure?}) (reg proc)) 
(branch (label primitive-branchl17) ) 
compiled-branch16 
(assign continue {label after-calll15)) 
(assign val (op compiled-procedure-entry) (reg proac)) 
(goto (reg val)) 
primitive-branchl7 
(assign val (op apply~-primitive-procedure) (reg proc) (reg argl)) 


after-call15 ; val now contains result of (= n 1) 

(restore env) 

(restore continue) 

(test (op false?) (reg val)) 

{branch (label false-branché4) ) 
true-branch5 ; return! 

(assign val (const 1)) 

(goto (reg continue) ) 


false-branch4 

;; compute and return (* (factorial (- n 1)) n) 
(assign proc (op lookup-variable-value) (const *) (reg env)) 
(save continue) 
(save proc) ; save * procedure | 
(assign val (op lookup-variable-value) (const n) (reg env) ) 
(assign argl (op list) (reg val)) 
(save argl) : save partial argument list for * 


5; compute (factorial (~ n 1)), which is the other argument for * 
(assign proc . 
(op lookup-variable-value} (const factorial) (reg env)) 
(save proc) ; save factorial procedure 


ss compute (- n 1), which is the argument for factorial 
(assign proc (op lookup-variable-value) (const -) (reg env) ) 
(assign val (const 1)) : 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const n) (reg env)) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-branch®8) ) 
compiled-branch7 
(assign continue (label after-call6)) 
(assign val (op compiled-procedure-entry) (reg proc)) 
(goto (reg val)) 
primitive-branch8 


图 5-17 ( 续 ) 
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(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 


after-call6 ; val now contains result of (~ n 1) 
(assign argl (op list) (reg val)) 
(restore proc) ; restore factorial 
: apply factorial | 
(test (op primitive-procedure?) (reg proc) ) 
(branch (label primitive-branchll) ) 
compiled-branchl10 
(assign continue (label after-call9)) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
primitive-branchll 
(assign val (op apply-primitive-procedure}) (reg proc) (reg argl)) 


after-call9 ; val now contains result of (factorial (- n 1)) 
(restore argl) ; restore partial argument list for * 
(assign argl (op cons) (reg val) (reg argl)) 
(restore proc) ; restore * 
(restore continue) 
; apply * and return its value 
(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-branchl4) ) 
compiled-branchl13 
;; note that a compound procedure here is called tail-recursively 
(assign val (op compiled-procedure-entry) (reg proc)) 
(goto (reg val)) 
primitive-branchl4 | 
(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 
(goto (reg continue) ) | 
after-calll2 
after-if3 
after-lambdal 


;; assign the procedure to the variable factorial 


(perform 
(op define-variable!) (const factorial) (reg val) (reg env)) 
(assign val (const ok) ) 





5-17 (#8) 
$355.33 ”考虑 下 面 这 个 阶乘 过 程 的 定义 ， 它 与 上 面 给 出 的 定义 略 有 不 同 : 


(define (factorial-alt n) 
(if (= n 1) 
1 
(* n (factorial-alt (- n 1))))) 


清 编译 这 个 过 程 ， 并 将 得 到 的 代码 与 tactorial 的 代码 做 比较 。 请 解释 你 所 看 到 的 各 个 不 同 
之 处 。 在 这 两 个 程序 中 ， 会 不 会 有 一 个 比 另 一 个 更 高 效 ? 
练习 5.34 ”请 编译 下 面 的 迭代 型 阶乘 过 程 ; 


(define (factorial n) 
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(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 
(iter 1 1)) 


请 在 结果 代码 里 加 上 标注 ,说 明 在 factorial 的 迭代 型 和 递归 型 版 本 的 代码 中 ， 存 在 着 哪些 
本 质 性 的 差异 ， 使 得 一 个 过 程 需 要 不 断 使 用 堆栈 空间 ， 而 另 一 个 可 以 在 常量 空间 里 运行 。 
练习 5.35 编译 产生 出 图 5-18 所 示 代 码 的 表达 式 是 什么 ? 


(assign val (op make-compiled-procedure) (label entry16) 
(reg env)) 
{goto (label after-lambdal5) ) 
entry16 
(assign env (op compiled-procedure-env) (reg proc)) 
(assign env 
(op extend-environment) (const (x)) (reg argl) (reg env)) 
(assign proc (op lookup-variable-value) (const +) (reg env) ) 
(save continue) 
(save proc) 
(save env) 
(assign proc (op lookup-variable-value) (const g) (reg env)) 
(save proc) 
(assign proc (op lookup-variable-value) (const +) (reg env) ) 
(assign val (const 2)) 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const x) (reg env)) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive-procedure?) (reg proc) ) 
(branch (label primitive-branchl9) ) 





compiled-branch18 
(assign continue (label after-call1l7)) 
(assign val (op compiled-procedure~entry) (reg proc) ) 
(goto (reg val)) 
primitive-branch19 
(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 
after-calll7 
(assign argl (op list) (reg val)) 
(restore proc) 
(test (op primitive-procedure?) (reg proc) ) 
(branch (label primitive-branch22) ) 
compiled-branch2l 
(assign continue (label after-cali20)) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
primitive~branch22 
(4ssign val (op apply-primitive-procedure) (reg proc) (reg argl)) 


图 5-18 编译 器 输出 结果 一 个 实例 。 见 练习 5.35 








after-cal120 
(assign argl (op list) (reg val)) 


(restore env) | 
(assign val (op lookup-variable-value) (const x) (reg env)) 


(assign argl (op cons) (reg val) (reg argl)) 
(restore proc) 
(restore continue) 
(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-branch25)) 
compiled-branch24 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) © 
primitive-branch25 
(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 
(goto (reg continue) ) 
after-call23 
after-lambdal5 
(perform (op define-variable!) (const f) (reg val) (reg env)) 
(assign val (const ok)) 





图 5-18 (48) 


练习 5.36 ”在 我 们 的 编译 器 所 产生 的 代码 里 ， 对 于 组 合式 里 的 运算 对 象 的 求 值 顺序 是 什 
么 ?是 从 堪 到 右 ， 是 从 右 到 左 ， 还 是 其 他 什么 顺序 ? 这 一 编译 器 里 的 哪个 部 分 确定 了 这 一 顺 
FE? 请 修改 编译 器 ， 使 之 能 产生 其 他 求 值 顺序 (参见 5.4.1 节 里 有 关 显 式 控制 求 值 器 里 求 值 顺 
序 的 讨论 )。 这 样 修改 了 运算 对 象 的 求 值 顺序 ， 会 改变 构造 参数 表 的 代码 的 效率 吗 ? 

练习 5.37 ”理解 编译 器 里 为 优化 堆栈 使 用 的 preserving 机 制 的 一 种 方式 ， 是 去 看 看 如 
果 不 采用 这 一 想法 ， 将 会 生成 出 多 少 额外 的 操作 。 请 修改 Preserving， 使 它 总 是 生成 save 
和 restore 操 作 。 请 编译 一 些 简单 的 表达 式 ， 并 标 出 这 样 生成 出 来 的 不 必要 的 堆栈 操作 。 将 
这 样 生成 出 的 代码 与 采用 原来 的 preserving 机 制 生成 的 代码 做 比较 。 

练习 5.38 ”我 们 的 编译 器 在 避免 不 必要 的 堆栈 操作 方面 很 聪明 ， 但 是 当 它 遇 到 编译 对 于 
语言 中 的 基本 过 程 的 调用 ， 将 其 编译 为 机 器 提供 的 基本 操作 时 ， 就 表现 得 一 点 也 不 聪明 了 。 
举 个 例子 ， 让 我 们 考虑 一 下 对 计算 (+a 1) 的 编译 将 产生 多 少 代码 :将 实 参 表 设 置 到 arg1 
的 代码 ， 将 基本 的 加 法 过 程 (是 通过 用 符号 + 在 环境 中 查找 而 得 到 的 ) 放 入 proc， 检 测 这 个 
过 程 是 基本 过 程 还 是 复合 过 程 。 编 译 器 总 是 要 生成 执行 这 种 检测 的 代码 ， 还 要 生成 构成 基本 
分 支 和 复合 分 支 的 代码 (只 有 其 中 之 一 会 执行 ) 。 我 们 还 没有 展示 控制 器 中 实现 基本 操作 的 那 
些 部 分 ， 但 是 可 以 假定 ， 有 关 指 令 使 用 了 机 器 的 数据 通路 里 的 一 些 基本 算术 操作 。 请 考虑 一 
下 ， 如 果 编 译 器 可 以 将 基本 操作 做 成 开放 式 代 码 一 也 就 是 说 ， 如 果 它 能 生成 出 直接 使 用 这 
些 基本 机 器 操作 的 代码 一 产生 出 的 代码 将 会 有 多 么 少 。 表 达 式 ( +a 1) 有 可 能 被 编译 为 某 
种 像 下 面 这 样 简单 的 东西 3: : 


(assign val (op lookup-variable-value) (const a) (reg env) ) 
(assign val (op +) (reg val) (const 1)) 


328 我 们 在 这 里 用 同一 个 符号 + 指称 在 源 语 言 里 的 过 程 和 机 器 操作 。 一 般 而 言 ， 在 源 语 言 的 基本 过 程 和 机 器 的 基 
本 操作 之 间 并 没有 一 一 对 应 关 系 。 
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在 这 个 练习 里 ， 我 们 要 扩充 自己 的 编译 器 ， 以 支持 对 特别 选 出 的 一 些 基 本 操作 的 开放 代 
码 。 对 于 这 些 基本 过 程 调用 , 我 们 要 生成 专门 用 途 的 代码 , 而 不 是 生成 通用 的 过 程 应 用 代码 。 
为 了 支持 这 种 功能 ， 我 们 将 假定 所 用 的 机 器 有 两 个 特殊 的 参数 寄存 器 arg1l 和 arg2， 机 器 
的 所 有 基本 算术 操作 都 从 arg1l1 和 arg2 取 得 它们 的 输入 ， 结 果 将 存 人 里 Val 、arg1 或 者 
arg2, 

编译 器 必须 能 在 源 程序 里 识别 出 开放 代码 基本 操作 的 应 用 。 我 们 将 为 此 扩充 compile 过 
程 里 的 分 派 ， 除 了 在 那里 完成 它 目 前 已 经 能 识别 的 保留 字 (特殊 形式 ) 外 ， 让 它 还 能 够 识别 
这 些 基 本 操作 的 名 字 ?29 。 对 于 每 个 特殊 形式 ， 我 们 的 编译 器 都 有 一 个 代码 生成 器 。 在 这 个 练 
习 里 ， 我 们 也 为 开放 代码 基本 操作 构造 起 一 组 代码 生成 器 。 

a) 开放 代码 基本 操作 与 特殊 形式 不 同 ， 它 们 都 要 求 自 己 的 参数 被 求 值 。 请 写 出 一 个 代码 
生成 器 gpread-~-arguments 用 于 所 有 的 开放 代码 生成 器 。spread-arguments 应 该 以 一 个 
运算 对 象 表 为 参数 ， 以 参数 寄存 器 为 目标 ， 按 顺序 编译 给 定 的 运算 对 象 。 注 意 ， 一 个 运算 对 
象 里 还 可 能 包含 对 开放 代码 基本 操作 的 另 一 个 调用 ， 因 此 在 求 值 运算 对 象 时 ， 参 数 寄存 器 也 

b) 请 为 基本 过 程 = 、*、 一 和 十 各 写 出 一 个 代码 生成 器 ， 它 们 都 以 一 个 具有 这 个 运算 符 的 
组 合式 ， 一 个 目标 和 一 个 连接 描述 符 作 为 参数 ， 生 成 的 代码 将 实际 参数 传 到 寄存 器 里 ， 而 后 
以 指定 目标 和 给 定 连 接 执 行 相 应 的 操作 。 你 可 以 只 处 理 两 个 运算 对 象 的 表达 式 。 请 让 
Compile 能 够 分 派 到 这 些 代 码 生 成 器 。 

c) 对 上 面 的 factorial 实 例 试验 你 的 新 编译 器 ， 将 结果 代码 与 没有 开放 代码 时 生成 的 代 
码 比较 一 下 。 | 

d 扩充 你 为 + 和 * 开发 的 代码 生成 器 ， 使 它们 能 够 处 理 具 有 任意 个 运算 对 象 的 表达 式 。 
对 多 于 两 个 运算 对 象 的 表达 式 ， 应 该 编译 为 一 系列 的 运算 ， 每 次 处 理 两 个 输入 。 


5.5.6 词法 地 址 


编译 器 执行 的 最 重要 优化 之 一 是 优化 变量 查找 操作 。 对 于 我 们 编译 器 至 今 的 实现 ， 所 生 
成 的 代码 里 一 直 使 用 求 值 器 机 器 里 的 lJookup-variable-value 操 作 ，。 这 个 操作 查找 变量 
的 方式 就 是 在 运行 环境 里 的 一 个 个 框架 中 做 查找 ， 与 那里 当前 有 约束 的 变量 比较 。 如 果 框 架 
阮 套 很 深 ， 或 者 存在 的 变量 很 多 ， 这 种 查找 的 代价 就 非常 高 。 举 个 例子 ， 考 虑 在 某 个 过 程 应 
用 里 对 表达 式 (* x y z) 求 值 时 查找 变量 值 的 情况 ， 该 过 程 由 下 面 的 表达 式 返回 : 

(let ((x 3) (了 4)) 

(lambda (a bcd e) 
(let ((y (* a b x)) 
{z (+c d x))) 
(* x y 2)))) 
因为 1et 表 达 式 不 过 是 lambda 组 合式 的 语法 包装 ， 这 个 表达 式 等 价 于 : 


( (lambda (x y) 
(lambda (a b c d e) 


329 _ 般 而 言 ， 将 基本 操作 作为 保留 字 并 不 是 一 种 好 想法 ， 因 为 这 样 用 户 就 不 能 将 这 些 名 字 重 新 约束 到 其 他 过 程 
了 。 进 一 步 说 ， 如 果 我 们 给 一 个 已 经 在 使 用 的 编译 器 增加 新 的 保留 字 ， 一些 现 存 的 程序 里 如 果 定 义 了 采用 这 
些 名 字 的 过 程 ， 现 在 就 不 能 工作 了 。 参 见 练习 5.44 有 关 如 何 避 免 这 种 情况 的 一 些 想法 。 





( (lambda (y z) (* x y 2)) 
(* a b x) 
(+ c d x)))) 


4) 


ek 4lookup-variable-valuex@Rxh, ECMBBMEHSXHA Sy 或 者 z 相等 (用 
eq? ， 在 第 一 个 框架 里 ) ， 也 不 同 于 a、b、c、d 或 者 e (在 第 二 个 框架 里 )。 目 前 我 们 假定 这 
个 程序 里 没有 使 用 define 一 一 这 样 就 只 有 lambda 建 立 变 量 约束 。 因 为 我 们 的 语言 采用 的 是 
词法 作用 域 规则 ， 任 何 表达 式 的 运行 时 环境 所 具有 的 结构 ， 与 该 表达 式 出 现 所 在 的 程序 词法 
结构 是 平行 的 ”。 这 样 、 在 编译 器 分 析 上 述 表达 式 时 ， 它 完全 可 以 弄 清 楚 ， 每 次 过 程 应 用 时 ， 
表达 式 (* x y 2) 里 的 变量 x 总 是 在 当前 框架 外 面 的 第 二 个 框架 里 找到 ， 而 且 将 出 现在 那 
个 框架 里 的 第 二 个 位 置 。 | 

我 们 可 以 利用 这 一 事实 ， 发 明 一 种 新 的 变量 查找 操作 lexical-address-lookup。 这 
一 操作 以 一 个 环境 和 一 个 词法 地 址 作为 参数 。 这 种 词法 地 址 由 两 个 数组 成 :一 个 是 框架 号 ， 
它 描述 了 需要 跳 过 多 少 框架 ， 另 一 个 是 移 位 数 ， 它 描述 了 在 这 个 框架 里 应 该 跳 过 多 少 变 量 。 
过 程 lexical~address-lookup 将 相对 于 当前 环境 ， 产 生出 保存 在 给 定 词法 地 址 处 的 变量 
的 值 。 如 果 把 lexical-address-lookup 操 作 加 进 前 面 开发 的 机 器 ， 我 们 就 可 以 在 编译 生 
成 的 代码 里 使 用 这 个 操作 引用 变量 ， 而 不 再 用 1ookup-variable-value。 与 此 类 似 , 还 
可 以 用 一 个 新 的 操作 lexical-~-address-set!， 而 不 用 set-variable-value!。 

为 了 生成 这 种 代码 ， 当 编译 器 需要 去 编译 一 个 变量 引用 时 ， 它 就 必须 能 确定 该 变量 的 词 
法 地 址 。 变 量 在 一 个 程序 里 的 词法 地 址 依赖 于 具体 变量 在 代码 里 出 现 的 位 置 。 举 例 说 ,在 下 
面 的 程序 里 ， 在 表达 式 <e1> 里 变量 x 的 地 址 是 (2, 0) 向 后 第 二 个 框架 里 的 最 前 面 一 个 变 
量 。 在 这 一 点 上 y 的 地 址 是 (0, 0)，c 的 地 址 是 (1, 2)。 在 表达 式 <e2> 里 ， 变 量 x 的 地 址 是 
(1,0), y 的 地 址 是 (1, 1) ，c 的 地 址 是 《0, 2 ) 。 


( (lambda (x y) 
(lambda (a bcd e) 
( (lambda (y z) <el>) 
<e2> 
(+ c d x)))) 





4) 

要 想 使 编译 器 能 够 生成 出 使 用 词法 地 址 的 代码 ， 一 种 方法 就 是 维持 一 个 称 为 编译 时 环境 
的 数据 结构 ， 在 这 个 结构 里 保存 各 种 变化 的 轨迹 ， 说 明 在 程序 执行 到 特定 的 变量 访问 操作 时 ， 
各 个 变量 将 出 现在 运行 环境 的 哪个 框架 里 的 哪个 位 置 上 。 这 种 编译 时 环境 也 是 框架 的 一 个 表 ， 
每 个 框架 包含 了 一 个 变量 的 表 (在 这 里 当然 没有 约束 于 变量 的 值 ， 因 为 编译 时 不 可 能 计算 出 
这 种 值 )。 把 这 种 编译 时 环境 作为 compile 的 另 一 个 参数 ， 与 原 有 参数 一 起 传送 给 各 个 代码 
生成 器 。 对 于 compile 的 最 高 层 调 用 ， 我 们 应 采用 一 个 空 的 编译 时 环境 。 在 编译 Ilambda 体 
时 ，compile-lambda-body 会 用 一 个 包含 着 该 过 程 的 所 有 变量 的 框架 扩充 当时 的 编译 时 环 


3 如 果 我 们 允许 内 部 定义 ， 这 一 说 法 就 不 成 立 了 ， 除 非 我 们 通过 扫描 将 它们 移出 去 ， 见 练习 5.43， 





境 ， 构 成 lambda 体 的 表达 式 序列 将 在 这 一 扩充 后 的 环境 里 编译 。 在 编译 过 程 中 的 每 一 点 ， 
compile-variable 和 compile-assignment 都 使 用 这 个 编译 时 环境 ， 生 成 出 合适 的 词 

上 面 是 这 一 词法 地 址 策略 的 概要 ， 练 习 $.39 到 $.43 描 述 了 如 何 完成 这 一 策略 ， 以 便 将 词法 
查找 结合 到 我 们 的 编译 器 里 。 练 习 5.44 描 述 了 编译 时 环境 的 另 一 个 用 途 。 

练习 5.39 ”请 写 出 一 个 过 程 Lexical-address-1lookup 实 现 这 种 新 的 查找 操作 。 这 个 
过 程 应 该 有 两 个 参数 一 一 一 个 词法 地 址 和 一 个 运行 时 环境 ， 它 返回 保存 在 特定 词法 地 址 的 变 
有 量 的 值 。 如 果 变 量 的 值 是 *+unassigned*、lexical-address-lookup 应 该 发 出 一 个 错 
误 信 号 3。 请 再 写 一 个 过 程 lexical-address-set!， 实现 修改 位 于 特定 词法 地 址 的 变量 
值 的 操作 。 

练习 5.40 ”请 修改 编译 器 ， 使 之 能 维护 好 如 上 所 述 的 编译 时 环境 。 这 时 需要 给 compile 
和 各 种 代码 生成 器 增加 一 个 编译 时 环境 参数 ， 还 要 在 compile-1lambda-body 里 扩充 它 。 

练习 5.41 ”请 写 一 个 过 程 find-variable， 它 以 一 个 变量 和 一 个 编译 时 环境 为 参数 ， 
返回 该 变量 相对 于 该 运行 时 环境 的 词法 地 址 。 举 例 说 ， 在 上 面 所 示 的 程序 片段 里 ， 编 译 表 
达 式 <e1> 期 间 的 编译 时 环境 是 (( 了 z) (a b c d e) (x y)), find-variable 应 该 
产生 


(find-variable °c ((Y z) (abcde) (x y))) 
(1 2) 

(find-variable °x ’((y z) (abcde) (x y))) 
(2 0) 

(find-variable w "((y z) (a bc de) (x y))) 
not-found 


练习 5.42 请 利用 练习 5.41 的 find~variable 重 写 compile-variable 和 compile- 
assignment ， 产 生出 采用 词法 地 址 的 指令 。 对 于 find-variable 返 回 not-tounaq 的 情况 
(也 就 是 说 ， 该 变量 不 在 编译 时 环境 里 ) ， 你 就 应 该 让 代码 生成 器 像 以 前 一 样 使 用 求 值 落 ， 云 
进一步 查找 它 的 约束 (在 编译 时 无 法 找到 的 变量 只 能 出 现在 全 局 环境 里 。 全 局 环境 是 运行 时 
环境 的 一 部 分 ， 但 它 不 是 编译 时 环境 的 一 部 分 ?32 。 这 也 就 是 说 ， 如 果 你 希望 的 话 ， 完 全 可 以 
让 求 值 器 操作 直接 到 全 局 环境 里 去 查找 ,而 无 需 先 搜索 完 从 env 里 得 到 的 整个 运行 时 环境 。 
全 局 环境 可 以 通过 操作 (op get-global-environment) 得 到 )。 用 几 个 简单 实例 测试 
这 一 修改 后 的 编译 器 ， 例 如 用 本 节 开 始 给 出 的 伐 套 1ambda 组 合式 。 

练习 5.43 ”我 们 在 4.1.6 节 说 过 ， 块 结构 的 内 部 定义 不 能 认为 是 “真正 的 ”define。 相 反 ， 
在 解释 一 个 过 程 体 时 ， 应 该 将 其 中 的 内 部 变量 看 成 就 像 是 作为 常规 的 lambda 变 量 定义 ， 而 后 
又 通过 使 用 set! ， 为 它们 的 正确 初始 化 值 。4.1.6 节 和 练习 4.16 说 明了 如 何 修 改元 循环 解释 絮 ， 
通过 将 内 部 定义 扫描 出 来 而 完成 这 件 事 。 请 修改 这 里 的 编译 器 ， 在 它 编译 过 程 体 之 前 执行 同 


31 如 果 我 们 实现 通过 扫描 的 方式 消除 内 部 定义 ， 变 量 查找 操作 也 需要 做 这 种 修改 〈 见 练习 5.43 )。 为 了 使 词法 作 
用 域 能 够 工作 ， 我 们 就 需要 消除 这 种 定义 。 

392 词法 地 址 不 能 用 于 访问 全 局 环境 里 的 变量 ， 因 为 这 些 变量 可 以 在 任何 时 候 定 义 或 者 重新 定义 。 有 了 如 练习 
5.43 所 说 的 内 部 定义 扫描 功能 ， 编 译 器 看 到 的 所 有 定义 都 在 顶层 ， 都 在 全 局 环境 里 活动 。 对 一 个 定义 的 编译 
并 不 会 导致 被 定义 的 名 字 进 入 编译 时 环境 。 
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练习 5.44 ”在 这 一 节 里 ， 我 们 将 注意 力 集 中 在 如 何 使 用 编译 时 环境 生成 词法 地 址 的 问题 
上 。 实 际 上 ， 编 译 时 环境 还 有 其 他 用 途 。 举 例 来 说 ,在 练习 5.38 里 ,我们 通过 基本 过 程 开放 
代码 的 方式 提高 编译 后 代码 的 效率 。 在 相关 的 实现 里 ， 我 们 把 开放 代码 过 程 的 名 字 当 作 保 留 
字 看 待 。 如 果 程 序 里 对 这 -名 字 做 了 重新 约束 ， 练 习 5.38 里 描述 的 机 制 将 仍然 会 把 它 作 为 基 
本 过 程 ， 开 放 其 代码 ， 从 而 忽略 新 的 约束 。 作 为 例子 ， 请 考虑 下 面 过 程 : 

(lambda {+ * a bxy) 

(+ (* a x) (* b y))) | 

它 计 算 x 和 Y 的 线性 组 合 。 我 们 可 能 用 参数 +matIix 、*matIix 以 及 4 个 矩阵 来 调用 这 个 函数 ， 
但 是 开放 代码 编译 器 还 是 会 将 (+ (* a x) (* b y)) 里 的 + 和 * 当 作 基本 过 程 ， 去 开放 
+ 和 * 的 代码 。 请 修改 开放 代码 编译 器 ， 让 它 去 查询 编译 时 环境 。 使 它 在 遇 到 涉及 基本 过 程 
名 的 表达 式 时 都 能 编译 出 正确 的 代码 。( 使 这 些 代码 都 能 正确 工作 ， 只 要 程序 里 不 对 这 些 名 字 
definem#set! 做 定义 或 赋值 .) 


5.5.7 编译 代码 与 求 值 器 的 互 连 


我 们 至 今 还 没有 解释 如 何 将 编译 得 到 的 代码 装 入 求 值 器 ， 也 没有 讨论 怎样 去 运行 它们 。 
现在 我 们 假设 显 式 控制 求 值 器 已 经 像 在 5.4.4 节 那样 定义 好 了 ， 其 中 还 包括 了 脚注 323 里 摘 述 的 
那些 操作 。 下 面 要 实现 一 个 过 程 compile-and-go ， 它 编译 一 个 Scheme 表达 式 ， 将 目标 代 
码 装 和 这 部 求 值 器 机 器 ， 并 启动 该 机 器 ， 使 之 在 求 值 器 的 全 局 环境 里 运行 这 一 代码 ， 打 印 其 
结果 ， 而 后 进入 求 值 器 的 驱动 循环 。 我 们 还 要 修改 这 一 求 值 器 ， 使 解释 性 的 表达 式 除 了 能 调 
用 其 他 编译 代码 外 ， 也 能 调用 编译 后 的 过 程 。 在 此 之 后 ， 我 们 就 可 以 将 编译 后 的 过 程 放 进 机 


器 ， 并 用 求 值 器 去 调用 它们 T : 


(compile-and-go 
*(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (- n 1)) n)))) 
tł: EC-Eval value: 
ok 


ee: EC-Eval input: 
(factorial 5) 

se: EC-Eval value: 
120 


为 了 使 求 值 器 能 处 理 编译 后 的 过 程 ( 例 如 ， 求 值 上 面 对 factorial 的 调用 ) ， 我 们 需要 
修改 位 TappPly-dispatch 的 代码 ( 见 5.4.1 节 )， 使 它 能 识别 编译 后 的 过 程 〈 与 基本 过 程 和 
复合 过 程 都 不 同 ) ， 并 将 控制 直接 传 到 编译 后 代码 的 人口 点 ”: 


apply-dispatch 
(test (op primitive-procedure?) (reg prac)) 
(branch (label primitive-apply) ) 


33 当然 ， 编 译 性 过 程 和 解释 性 过 程 一 样 ， 都 是 复合 过 程 (不 是 基本 过 程 )。 为 了 与 显 式 控制 求 值 器 所 用 的 术语 
保持 一 致 ， 在 这 一 节 里 ， 我 们 将 用 “复合 过 程 ” 专 指 解释 性 过 程 (与 编译 性 过 程 相对 应 )。 
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(test (op compound-procedure?) (reg proc)) 
(branch (label compound-apply) ) 

(test (op compiled-procedure?) (reg proc)) 
(branch (label compiled-apply) ) 

(goto (label unknown-procedure-type) ) 


compiled-apply 
(restore continue) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
{goto (reg val)) 


请 注意 ， 在 Compiled-apply 处 需要 恢复 continue。 请 回忆 一 下 求 值 器 里 各 方面 安排 的 情 
况 ， 在 apPply-dispatch 处 ， 继 续 点 位 于 堆栈 顶 。 而 在 另 一 边 ， 编 译 代 码 的 入 口 点 却 期 望 继 
续 点 在 continue 里 。 因 此 ， 在 编译 代码 执行 之 前 必须 恢复 continue 。 

为 使 我 们 能 在 启动 求 值 器 机 器 时 运行 一 些 编译 代码 ， 我 们 在 求 值 器 机 器 的 开始 处 增加 一 
条 branch 指令 ， 如 果 寄 存 器 f1ag 被 设置 ， 它 就 要 求 这 一 机 器 转向 一 个 新 的 入 口 点 “。 


(branch (label external-entry)) ; branches if flag its set 
read-eval-print-loop 


(perform (op initialize-stack) ) 


external-entry 入 口 假定 在 这 一 机 器 启动 时 ， val 里 包含 着 一 个 指令 序列 的 位 置 ， 该 指令 
序列 将 结果 放 在 Val 里 并 以 (goto-(reg continue)) 结束 。 从 这 一 入 口 点 启动 ， 执 行 过 
程 就 会 跳 到 由 val 指 定 的 位 置 ， 但 会 首先 设置 continue 使 执行 还 能 转 回 print-result。 
这 将 使 ral 里 的 值 被 打印 出 来 ， 而 后 转 到 求 值 器 的 读 入 一 求 值 一 打印 循环 的 开始 位 置 …。 


external-entry 
(perform (op initialize-stack) ) 
(assign env (op get-global-environment) ) 
(assign continue (label print-result) ) 


(goto (reg val)) 


3! 现在 这 一 求 值 器 机 器 开始 处 就 是 一 条 branch 指 令 ， 我 们 在 启动 求 值 器 机 器 之 前 必须 初始 化 EL1ag 寄 存 器 。 为 
了 能 在 常规 的 读 入 一 求 值 一 打印 循环 中 启动 这 一 机 器 ， 我 们 可 以 用 : 


(define (start-eceval) 
(set! the-global-environment (setup-environment )) 
(set-register-contents! eceval ’flag false) 


(Start eceval)) 


35 因为 编译 后 的 过 程 是 一 个 对 象 ， 系 统 也 可 能 会 试 着 去 打印 它 ， 因 此 ， 我 们 还 要 修改 系统 的 打印 操作 user- 
print (参见 4.1.4 节 )， 使 它 不 企图 去 打印 编译 后 的 过 程 里 的 各 个 成 分 。 


(define (user-print object) 
(cond ((compound-procedure? object) 
(display (list *compound-procedure 
(procedure-parameters object) 
(procedure-body object) 
*<procedure-env>))) 
(({compiled-procedure? object) 
(display ’<compiled-procedure>) ) 
(else (display object)))) 





现在 ， 我 们 已 经 可 以 用 下 面 过 程 来 编译 过 程 定 义 ， 执 行 编译 后 的 代码 ， 然 后 运行 读 入 一 
K- 打印 循环 ， 这 就 使 我 们 能 够 试验 这 个 过 程 。 因 为 我 们 希望 编译 后 的 代码 能 返回 到 
continue 里 的 地 址 ， 并 在 val 里 存放 好 结果 ， 我 们 应 该 用 目标 val 和 连接 zeturn 去 编译 表 
AK. 。 为 了 将 编译 器 生成 的 目标 代码 转换 到 求 值 器 寄存 器 机 器 的 可 执行 指令 ， 我 们 使 用 来 目 
寄存 器 机 器 模拟 器 的 过 程 assemble ( 见 5.2.2 节 )。 而 后 我 们 设置 Val 寄存 器 ,使 之 指向 指令 
的 表 ， 设 置 f£1ag 使 求 值 器 转向 人 口 点 external-entry， 并 启动 求 值 器 。 

(define (compile-and-go expression) | 

(let ((instructions 
(assemble (statements 
(compile expression ‘val ’return)) 
eceval))) 
(set! the-global-environment (setup-environment) ) 
(set-register-contents! eceval ‘val instructions) 
(set-register-contents! eceval ‘flag true) 
(start eceval))) 


如 果 我 们 设置 了 堆栈 监视 器 ( 像 5.4.4 节 最 后 所 说 的 那样 ) ， 那 么 就 可 以 检测 编译 代码 的 堆 
栈 使 用 情况 了 : 


(compile-and-go 
"(define (factorial n) 
(if (= n i) 
1 
(* (fatorial (- n 1)) n)))) 


(total-pushes = 0 maximum-depth = 0) 
= 3% EC-Eval value: 
ok 


;;: EC-Eval input: 
(factorial 5) 
(total-pushes = 31 maximum-depth = 14) 
27》 EC-Eval value: 
120 


请 将 这 个 例子 与 对 同一 过 程 的 解释 性 版 本 的 求 值 (factorial 5) 的 情况 比较 一 下 
(5.4.4 节 的 最 后 介绍 过 )。 解 释 性 版 本 需要 144 次 压 栈 操作 ， 最 大 堆栈 深度 为 8 。 这 也 显示 出 我 
们 从 编译 策略 中 得 到 的 优化 。 


解释 和 编译 
有 了 这 节 开 发 的 程序 ， 我 们 现在 就 可 以 对 解释 和 编译 的 不 同 策略 做 各 种 试验 了 ”。 解 释 
器 将 所 用 的 机 器 提升 到 用 户 程 序 层 面 上 ， 而 编译 器 将 用 户 程序 降低 到 机 器 语言 的 层面 上 。 我 
们 可 以 认为 Scheme 语言 (或 者 任何 程序 设计 语言 ) 是 豆 立 在 机 器 语言 之 上 的 一 族 有 内 聚 力 的 
抽象 。 解 释 器 对 于 交互 式 的 程序 开发 和 排 错 是 非常 好 的 ， 因 为 程序 执行 的 各 个 步骤 都 以 这 些 
抽象 的 方式 组 织 起 来 了 ， 因 此 更 容易 被 程序 员 理解 。 编 译 后 的 代码 执行 得 更 快 ， 因 为 程序 执 


336 我 们 还 可 以 做 得 更 好 一 些 ， 可 以 扩充 编译 器 ， 人 允许 编译 代码 去 调用 解释 性 过 程 ， 见 练习 5.47。 





88S 字 阁 器 机 器 里 的 计划 


行 步骤 在 机 器 语言 层面 上 ， 编 译 器 也 可 以 自由 去 地 做 各 种 跨越 高 层 抽象 的 优化 327。 

解释 和 编译 之 间 的 相互 替代 关系 还 引出 了 将 一 种 语言 移植 到 新 计算 机 的 不 同 策略 。 假 定 
我 们 希望 在 一 种 新 机 器 上 实现 Lisp 。 一 种 策略 是 从 5.4 节 的 显 式 控制 求 值 器 出 发 ， 将 其 中 的 指 
令 一 条 一 条 翻译 到 新 的 机 器 。 另 一 种 不 同 的 策略 是 从 编译 器 出 发 ， 修 改 其 中 的 代码 生成 器 ， 
使 它们 能 为 这 种 新 计算 机 生成 代码 。 第 二 种 策略 使 我 们 可 以 在 这 种 新 机 器 上 运行 任何 Lisp 程 
序 , 方式 是 先 用 我 们 原 有 的 Lisp 机 器 上 的 编译 器 去 编译 它 ， 并 将 它 与 有 关 运 行 库 的 编译 后 的 
版 本 连接 ?38。 事 情 还 可 以 做 得 更 好 ， 我 们 可 以 去 编译 这 个 编译 器 本 身 ， 并 在 新 机 器 上 运行 这 
一 编译 结果 ， 去 编译 其 他 的 Lisp 程 序 3? 。 或 者 我 们 可 以 去 编译 4.1 节 里 的 一 个 解释 器 ， 生 成 出 
一 个 可 以 在 这 一 新 机 器 上 运行 的 解释 器 。 

练习 5.45 ”通过 比较 完成 同样 计算 的 编译 后 代码 所 用 的 堆栈 操作 ， 和 求 值 器 所 用 的 堆栈 
操作 ， 我 们 可 以 确定 编译 器 对 于 堆栈 使 用 的 优化 程度 ， 包 括 在 速度 上 的 (减少 了 堆栈 操作 的 
总 次 数 ) 和 空间 上 的 〈 减 小 了 堆栈 的 最 大 深度 )。 将 这 一 优化 后 的 堆栈 使 用 情况 与 某 台 专用 计 
算 机 对 于 同样 计算 的 执行 情况 做 些 比较 ， 可 以 为 判断 编译 器 的 质量 提供 一 些 标准 。 

a) 练习 5.27 要 求 你 去 确定 使 用 那里 给 出 的 阶乘 函数 计算 n! 时 ， 求 值 器 所 需 的 压 栈 次 数 和 最 
大 堆栈 深度 (作为 n 的 函数 )。 练 习 5.14 要 求 你 对 于 图 5-11 所 示 的 专用 阶乘 机 器 完成 同样 的 度量 
工作 。 现 在 请 对 编译 后 的 factorial 过 程 做 同样 的 分 析 。 

算出 编译 后 过 程 版 本 的 压 栈 次 数 与 解释 版 本 的 压 栈 次 数 之 比率 ， 对 最 大 堆 楼 深度 做 同样 
计算 。 因 为 计算 n! 所 用 的 操作 次 数 和 堆栈 深度 都 是 4 的 线性 函数 ， 因 此 ， 这 些 比率 在 n 变 大 的 
过 程 中 应 趋 于 常数 。 这 些 常数 是 什么 ?类似 地 ， 请 找 出 专用 机 器 里 的 堆栈 使 用 情况 与 解释 版 
本 中 使 用 情况 的 比率 。 

请 比较 专用 机 器 与 解释 性 代码 的 比率 和 编译 与 解释 代码 的 比率 。 你 应 该 看 到 ， 专 用 机 器 
的 工作 情况 远 远 优 于 编译 代码 ， 因 为 手工 打造 的 控制 器 代码 应 该 比 我 们 这 个 初步 的 通用 编译 
器 生成 的 代码 好 许多 。 

b) 你 能 对 编译 器 提出 一 些 修改 建议 ， 使 它 生成 的 代码 更 接近 手工 版 本 的 性 能 吗 ? 

练习 5.46 ”请 像 练 习 5.45 那 样 做 一 些 分 析 ， 确 定编 译 下 面 树 型 递归 的 斐 波 那 契 过 程 的 效率 : 


337 如 果 我 们 强制 性 地 要 求 在 用 户 程序 里 遇 到 的 错误 都 需要 检查 并 报告 ， 而 不 允许 强行 终止 系统 或 者 产生 错误 的 

结果 ， 那 么 就 会 带 来 很 大 的 开销 ， 与 实际 的 执行 策略 无 关 。 举 个 例子 ， 数 组 的 越界 引用 可 以 通过 在 执行 前 检 
查 引 用 合法 性 的 方式 查 出 。 但 是 这 一 检查 的 开销 可 能 是 数组 应 用 本 身 开销 的 许多 倍 ， 因 此 程序 员 需 要 在 速度 
与 安全 性 之 间 做 权衡 ， 确 定 是 否 进行 这 种 检查 。 一 个 好 的 编译 器 应 该 可 以 产生 出 做 这 种 检查 的 代码 ， 也 应 该 
避免 多 余 的 检查 ， 并 且 应 该 允许 程序 员 去 控制 在 编译 代码 中 错误 检查 的 范围 和 种 类 。 
我 我 流行 语言 (例如 C 和 C + +) 的 编译 器 通常 都 不 将 错误 检查 代码 放 人 运行 代码 里 ， 以 便 使 程序 尽 可 能 快 
速 。 作 为 这 样 做 的 一 个 结果 ， 它 实际 上 将 显 式 提供 错误 检查 的 问题 交 给 程序 员 处 理 。 不 幸 的 是 ， 人 们 常常 因 
为 下 包 而 没有 去 做 ， 甚 至 在 某 些 关 键 应 用 中 ， 在 那里 速度 原本 并 不 是 问题 。 他 们 的 程序 导致 一 种 快速 和 危险 
的 生活 。 举 个 例子 ， 在 1988 年 使 Internet 瘫 疾 的 臭名 昭著 的 “蠕虫 ”揭示 了 UNIX 操 作 系统 里 的 一 个 错误 ， 因 
为 那里 的 探 询 守护 程序 里 没有 检查 输入 缓冲 区 谥 出 (参见 Spafford 1989 )。 

38 当然 ， 无 论 采 用 编译 策略 还 是 解释 策略 ， 我 们 都 必须 为 新 机 器 实现 存储 分 配 、 输 入 输出 ， 以 及 我 们 在 讨论 求 
值 器 和 编译 器 时 作为 “基本 操作 ”的 那些 五 彩 缤纷 的 操作 。 减 少 这 方面 工作 量 的 一 种 策略 是 尽 可 能 多 地 在 
Lisp 里 写 出 这 些 操 作 ， 而 后 针对 新 机 器 编译 它们 。 最 后 ， 所 有 的 东西 都 归结 到 一 个 很 小 的 内 核 (例如 废料 收 
集 和 实际 的 基本 机 器 操作 的 应 用 )， 这 些 必须 专门 为 新 机 器 硬性 编 出 代码 。 

339 这 一 策略 产生 出 一 种 对 编译 器 本 身 的 非常 有 趣 的 油 试 ， 例 如 ， 在 这 一 新 机 器 上， 用 通过 编译 产生 的 编译 器 去 
编译 一 个 程序 ， 检 查 这 样 得 到 的 结果 是 否 与 原来 的 Lisp 系统 编译 这 一 程序 的 结果 相同 。 追 踪 差 异 的 根源 常常 
RER, 但 也 累 人 ， 因 为 得 到 的 结果 常常 源 自 一 些 细 微 的 问题 。 
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(define (fib n) 
(if (< n 2) 
(+ (fib (- n 1)) (fib (- n 2))))) 

请 将 这 一 情况 与 图 $-12 里 的 专用 斐 波 那 契 机 器 的 效率 比较 (有 关 解 释 性 代码 的 性 能 度量 ， 请 
参见 练习 5.29)。 对 于 韭 波 那 执 过程， 所 用 的 时 间 资 源 并 不 是 n 的 线性 函数 ， 因 此 堆栈 操作 的 
比率 将 不 会 趋 近 某 个 与 n 无 关 的 极限 值 。 

练习 5.47 本 节 描 述 了 如 何 修改 显 式 控制 求 值 器 ， 使 解释 性 代码 可 以 调用 编译 后 的 过 程 。 
请 说 明 如 何 修改 编译 器 ， 使 编译 后 的 代码 不 但 能 调用 基本 过 程 和 编译 后 的 过 程 ， 还 能 调用 解 
释 性 过 程 。 为 此 我 们 就 需要 修改 compile-procedure-~call, 使 之 能 够 处 理 复 合 的 (解释) 
过 程 。 请 设法 确保 能 像 在 compile-~proc-appl 里 那样 处 理 所 有 相同 的 target 和 1]inkage 
组 合式 。 在 做 实际 的 过 程 应 用 时 ， 代 码 需 要 跳 到 求 值 器 的 compound-apply 入 口上 后 。 这 一 人 
口 点 不 能 直接 在 目标 代码 里 引用 (因为 汇编 程序 要 求 它 所 汇编 的 所 有 被 引用 标号 都 已 经 定义 
好 )， 因 此 我 们 将 为 求 值 器 机 器 增加 一 个 称 为 compapP 的 寄存 器 ， 掌 握 住 这 一 人口 点 ， 并 加 
入 下 面 指令 去 初始 化 它 : 


(assign compapp (label compound-apply) ) 
(branch (label external-entry) ) ; branches if flag is set 
read-eval-print-loop 


为 了 测试 你 的 代码 ， 开 始 请 定义 一 个 过 程 E ， 它 调用 另 一 个 过 程 9。 用 compile-and-go 编 
译 好 f£ 的 定义 后 启动 求 值 器 。 现 在 为 求 值 器 输入 9 的 定义 ， 而 后 试 试 去 调用 f。 

练习 5.48 ”本 节 中 实现 的 compile-and-go 界 面 还 是 非常 麻烦 的 ， 因 为 其 中 只 能 调用 编 
译 器 一 次 (在 求 值 器 机 器 启动 时 ) 。 请 扩大 这 一 编译 器 一 解释 器 界面 ， 提 供 一 个 compile- 
and-run 基 本 过 程 ， 使 人 可 以 采用 如 下 方式 在 显 式 控制 求 值 器 里 调用 它 : 

;;; EC-Eval input: 

(compile-and-run 

"(define (factorial n) 

(if (=n 1) 
1 
(* (factorial (- n 1)) n)))) 

es: EC-Eval value: 

ok 

:;; EC-Eval input: 

(factorial 5) 

ss: EC-Eval value: 

120 

练习 5.49 ”作为 替代 使 用 显 式 控制 求 值 器 的 读 入 — RE- - 打印 循环 的 另 一 种 方式 ， 请 设 
计 一 部 寄存 器 机 器 ， 让 它 执行 一 个 读 入 一 编译 - 求 值 - 打印 循环 。 也 就 是 说 ， 这 一 机 器 应 该 
运行 一 个 循环 ， 其 中 读 入 一 个 表达 式 ， 编 译 它 ， 装 配 并 执行 结果 代码 ， 最 后 打印 出 结果 。 在 
我 们 的 模拟 环境 里 很 容易 运行 它 ， 因 为 我 们 可 以 做 好 安排 ， 让 过 程 compile 和 assemb1le 都 
作为 “寄存 器 机 器 的 操作 。 

练习 5.50 ”使 用 编译 器 去 编译 4.1 节 的 元 循环 求 值 器 ， 并 用 寄存 器 机 器 模拟 器 运行 这 个 程 
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序 (要 一 下 子 编译 多 个 定义 ， 你 可 以 将 这 些 定义 放 进 一 个 begin 里 )。 由 于 存在 着 多 个 层次 的 
解释 ， 结 果 解 释 器 将 运行 得 非常 慢 ， 但 是 使 得 所 有 东西 都 能 工作 是 一 个 极 具 教 益 的 练习 。 
练习 5.51 请 在 C (或 者 你 所 选 定 的 另外 某 个 低级 的 语言 ) 里 开发 一 个 初步 的 Scheme 实现 ， 
采用 的 方式 是 将 5.4 节 的 显 式 控制 求 值 器 翻译 到 C。 为 了 运行 这 一 代码 ， 你 将 需要 提供 适当 的 
存储 分 配 例 程 和 其 他 运行 支持 。 
练习 5.52 ”作为 与 练习 5.51 相 对 应 的 工作 ， 请 修改 前 面 的 编译 器 ， 使 它 能 够 将 Scheme 程 
序 编译 为 C 指 令 序列 。 请 编译 4.1 节 的 元 循环 求 值 器 ， 生 成 一 个 用 C 写 出 的 Scheme 解释 器 。 
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练习 表 


1.1 13 1.11 27 1.21 35 1.31 40 1.41 51 
1.2 13 1.12 27 1.22 35 1.32 40 1.42 51 
1.3 13 1.13 28 1.23 36 1.33 40 1.43 51 
1.4 13 1.14 29 1.24 36 1.34 44 1.44 51 
1.5 13 1.15 29 1.25 36 1.35 47 145 .| 52 
1.6 16 1.16 30 1.26 36 1.36 47 1.46 52 
1.7 16 1.17 31 1.27 36 1.37 47 

1.8 17 1.18 31 1.28 37 1.38 47 

1.9 23 1.19 31 1.29 39 1.39 48 

1.10 24 1.20 33 1.30 40 1.40 51 

2.1 58 2.21 71 2.41 84 . 2.61 105 2.81 136 
2.2 60 2.22 71 2.42 84 2.62 105 2.82 137 
2.3 60 2.23 72 2.43 85 2.63 108 2.83 137 
2.4 62 2.24 73 2.44 90 2.64 108 2.84 137 
2.5 62 2.25 74 2.45 91 2.65 108 2.85 137 
2.6 62 2.26 74 2.46 92 2.66 109 2.86 137 
2.7 63 2.27 74 2.47 93 2.67 114 2.87 143 
2.8 63 2.28 14 2.48 93 2.68 114 2.88 143 
2.9 63 2.29 74 2.49 93 2.69 114 2.89 143 
2.10 63 2.30 75 2.50 95 2.70 114 2.90 143 
2.11 63 2.31 76 2.51 95 2.71 115 2.91 143 
2.12 64 2.32 16 2.52 96 2.72 115 2.92 144 
2.13 64 2.33 80 2.53 98 2.13 125 2.93 144 
2.14 64 2.34 80 2.54 98 2.74 126 2.94 145 
2.15 65 2.35 81 2.55 99 2.75 128 2.95 145 
2.16 65 2.36 81 2.56 102 2.76 128 2.96 146 
2.17 69 2.37 81 2.57 102 2.77 ` 132 2.97 146 
2.18 69 2.38 82 2.58 102 2:78 132 

2.19 69 2.39 82 2.59 104 2.19 132 

2.20 69 2.40 84 2.60 104 2.80 132 

3.1 154 3.4 154 3.7 161 3.10 170 3.13 176 
3.2 154 3.5 157 3.8 162 3.11 172 3.14 176 


3.3 154 3.6 157 3.9 167 3.12 175 3.15 178 
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3.16 178 3.30 192 344 215 3.58 231 3.72 238 
3.17 178 3.31 195 3.45 216 3.59 231 3.73 239 
3.18 179 3.32 197 346 218 3.60 232 3.74 240 
3.19 179 3.33 205 3.47 218 3.61 232 3.75 240 
3.20 179 3.34 205 3.48 219 3.62 232 3.76 240 
3.21 183 3.35 205 3.49 219 3.63 235 3.77 242 
3.22 183 3.36 205 3.50 225 3.64 235 3.78 242 
3.23 183 3.37 205 3.51 226 3.65 235 3.79 243 
3.24 187 3.38 210 3.52 226 3.66 237 3.80 243 
3.25 187 3.39 212 3.53 230 3.67 237 3.81 246 
3.26 187 3.40 212 3.54 230 3.68 237 3.82 246 
3.27 188 341 213 3.55 230 3.69 238 

3.28 192 3.42 213 3.56 230 3.70 238 

3.29 192 3.43 215 3,57 231 3.71 238 

4.1 255 4.17 270 4.33 286 449 296 465 323 
4.2 259 4.18 270 4.34 286 4.50 303 4.66 324 
4.3 259 4.19 271 4.35 290 4.51 303 4.67 324 
44 259 4.20 271 4.36 290 4.52 303 4.68 324 
4.5 259 4.21 272 4.37 290 4.53 304 469 324 
46 259 4.22 276 4.38 291 4.54 304 4.70 335 
4.7 260 4.23 276 4.39 291. 4.55 309 4.71 338 
48 260 4.24 276 440 291 4.56 311 4.72 338 
4.9 260 4.25 278 4.41 292 4.57 . 312 4.73 339 
4.10 260 4.26 278 4.42 292 4.58 312 4.74 339 
4.11 263 4.27 282 4.43 292 4.59 312 4.75 339 
4.12 263 4.28 282 4.44 292 4.60 313 4.76 340 
4.13 264 4.29 282 4.45 295 (4.61 314 4.77 340 
4.14 266 4.30 282 4.46 295 462 314 4.78 340 
4.15 268 4.31 283 4.47 295 4.63 314 4.79 340 
4.16 270 4.32 286 448 296 4.64 323 

5.1 346 512 371 523 392 5.34 419 5.45 428 
5.2 348 5.13 372 5.24 392 5.35 420 5.46 428 
5.3 349 5.14 373 5.25 393 5.36 421 547 429 
5.4 357 5.15 373 5.26 395 5.37 421 5.48 429 
5.5 358 5.16 373 5.27 396 5.38 421 5.49 429 
5.6 358 5.17 373 5.28 396 5.39 424. 5.50 429 
5.7 360 5.18 373 5.29 396 5.40 424 5.51 430 
5.8 366 5.19 373 5.30 396 5.41. 424 5.52 430 
5.9 371 5.20 377 5.31 402 5.42 424 

5.10 371 5.21 378 5.32 402 543 424 

5.11 371 5.22 378 5.33 419 5.44 425 
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本 索引 中 的 任何 不 准确 之 处 都 可 以 用 一 个 事实 来 解释 : 它 是 在 计算 机 的 帮助 下 完成 的 。 


Donald E£. Knuth， 基 本 算法 ( 计算 机 程序 设计 的 艺术 ， 第 1 卷 ) 


* 《基本 乘法 过 程 )，4 递归 过 程 (recursive procedures ) 23 
+ (基本 加 法 过 程 )，4 Adams, Norman 1. ， 脚 注 232 
- (基本 减法 过 程 ),，4 add (通用 型 , generic ) /29 
/ (基本 除法 过 程 )，4 用 于 多 项 式 系数 (used for polynomial coefficients), 140 
= (基本 算术 等 于 谓词 ), H add-action!, 191, 194 
=number?, /02 add-binding-to-frame!, 262 
=zero? (AHHH, generic), 4 32.80 add-complex, //8 
for polynomials (对 多 项 式 的 ) ， 练 习 2.87 add-complex-to-schemenum, /33 
< (基本 算术 比较 谓词 ) 1 addend, 701 | 
> (EABALLRIA), H = adder (#44) w, primitive constraint), 20/ 
>=, 13 add-interval, 63 
> ( 见 分 号 )， 和 脚注 ll add-lists, 285 
1 (AFERI), #4130 add-poly, 139 
? GRIE BAI), Bie 22 add-rat, 56 
( 双 引 号 )， 和 脚注 99 add-rule-or-assertion! , 334 
" (513), 97, W299 add-streams, 228 
read 和 和 ， 和 脚注 222， 和 脚注 285 add-terms , 140 
‘ (R513), W321 add-to-agenda! , 194, 196 
， GES. 与 反 引 号 一 起 使 用 )， 和 脚注 321 add-vect ,练习 2.46 
#f, W317 Adelman, Leonard , By i#48 
#t ， 脚 注 17 adjoin-arg, #iz307 
‘>, ree RAI , A58 adjoin-set, 103 
Ə, theta 二 叉 树 表示 (binary-tree representation), /07 
入 演算 ， 见 lambda 演 算 排序 表 表 示 (ordered-list representation), ， 练 习 2.61 
TX ， 见 Pl 未 排序 的 表 表 示 | (unordered-list representation ), /03 
> Kid (sigma), 38 作为 带 权 重 集 合 (for weighted sets), //3 
Ah-mose ， 和 脚注 40 adjoin-term, 140, /42 
Abelson, Harold, #723 advance-pc , 368 
abs, //, /2 after-delay, 191 , 194 
accelerated-sequence, 234 : Algol 
accumulate, #4 31.32, 78 块 结 构 (block structure), 20 
falfold-right, 练习 2.38 按 名 参数 传递 (call-by-name argument passing), Ariz 
accumulate-n, %4 32.36 186 ， 和 脚注 240 
Acharya, Bhdscara, ， 牌 注 35 槽 (thunks), #4186, #74238 
Ackermann ġġ% , # 31.10 在 处 理 复合 数据 对 象 方面 的 弱点 (weakness in handling 
actual-value, 279 compound objects), ， 脚 注 161 


Ada ， 练 习 4.63 Allen, John, #3300 
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all-regs (编译 器 compiler), #4326 
always-true, 328 
amb , 287 
ambeval , 297 
amb 求 值 器 (evaluator), IER HERR (nondeter- 
ministic evaluator ) 
analyze 
元 循环 (metacircular) , 273 
非 确定 性 (nondeterministic), 297 
analyze-... 
元 循环 (metacircular) , 274~276, # 34.23 
非 确 定性 (nondeterministic), 298~300 
| analyze-amb, 302 
and (查询 语言 ，query language), 310 
的 求 值 (evaluation of), 316, 326, 434.76 
and (特殊 形式 ，special form), /3 
的 求 值 (evaluation of ) ，12 
为 什么 作为 特殊 形式 (why a special form), 12 
没有 子 表 达 式 (with no subexpressions), # 34.4 
an~element-of , 286 
angle 
数据 导向 的 (data-directed), 125 
极 坐 标 表 示 (polar representation), 1/9 
直角 坐标 表示 (rectangular representation), 1/8 
带 标志 数据 (with tagged data), 727 
angle-polar, 120 
angle-rectangular, /20 
an~integer-starting-from, 288 
announce-output, 265 
APL, #iz81 
Appel, Andrew W., #72325 
append! ， 练 习 3.12 
作为 寄存 器 机 器 (as register machine) ， 练 习 5.22 
append, 68, # 33.12 
作为 累积 (as accumulation), # 32.33 
append! 5, #393.12 
带 有 任意 个 参数 (with arbitrary number of arguments ) ， 
脚注 327 
作为 寄存 器 机 器 (as register machine), 4 35.22 
“是 什么 ”( 规则 ) 和 “怎样 做 ”( 过 程 );，303~306 
append-instruction-sequences , 401, 413 
append-to-form (规则 ，rules) ，373 
application?, 257 
apply (f¥tt, lazy), 279 
apply (#Ait #, primitive procedure), yz 113 
apply (元 循环 metacircular), 253 
SHA (primitive) apply, #2225 
apply-dispatch, 388 
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为 编译 的 代码 而 修改 (modified for compiled code), 
425 
apply-generic, /25 
强制 (with coercion), 734, # 32.81 
提升 强制 (with coercion by raising), # 3) 2.84 
多 参数 的 强制 (with coercion of multiple arguments ), 
# 332.82 
通过 强制 简化 (with coercion to simplify), 92.85 
消息 传递 (with message passing), /27 
类 型 塔 (with tower of types), 135 
apply-primitive-procedure , 253, 261, 265 
apply-rules, 330 
argl 寄 存 器 (register) , 383 
articles, 292 
ASCII 码 (code), 110 
assemble, 364, 365 
assert! (查询 解释 器 ，query interpreter), 320 
assign (寄存 器 机 器 里 ，in register machine), 347 
模拟 (simulating )，367 
将 标号 存 人 寄存 器 (storing label in register) , 353 
assignment?, 256 
assignment-value, 256 
assignment-variable , 256 
assign-reg-name, 367 
assign-value-exp, 367 
assoc, 185 
atan (基本 过 程 ，primitive procedure), # (2110 
attach-tag, //9 
采用 Scheme 数据 类 型 (using Scheme data types), 4% 
习 2.78 | 
augend, /0/ 
average, 15 
average-damp, 48 
averager (约束 ， constraint) ， 练 习 3.33 
Backus, John, #202 
Baker, Henry G., Jr., #72300 
Barth, John , 249 
Basic 
对 复合 数据 的 限制 (restrictions on compound data), 
Be iz 73 
在 处 理 复 合 对 象 方面 的 弱点 (weakness in handling 
”compound objects), #161 
Batali, John Dean, Æ i4304 
begin (特殊 形式 ，special form), /5/ 
在 推论 和 过 程 体 里 隐 含 的 (implicit in consequent of 
cond and in procedure body), #4131 
begin? , 257 
begin-actions, 257 
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below, 89, %4 32.51 

Bertrand 假设 (Hypothesis), 脚注 191 

beside, 89, 95 

Bolt Beranek and Newman Inc., jy ijz2 

Borning, Alan, #34159 

Borodin, Alan, #482 

branch (寄存 器 机 器 ,in register machine), 347 
模拟 (simulating), 368 

branch-dest , 368 | 

Buridan, Jean, # 7#175. 

Bey (tree), B72 106 

Ca...5, Peye75 

cadr, #iz75 

call-each, 193 

car (#A~ FH, primitive procedure ) 57 
公理 (axiom for), 6I 
用 向 量 实 现 (implemented with vectors), 376 
作为 表 操 作 (as list operation), 67 
名 字 的 由 来 (origin of the name )， 脚 注 08 


的 过 程 性 实现 (procedural implementation of), 61, 


& 92.4, 179, 284 
Carmichael #%& (numbers), #447, %3 1.27 


car 和 cdr Ay ÆA (nested applications of car and 


cdr), #475 
cd...r, #475 
cdr (基本 过 程 ，primitive procedure ) 57 
公理 (axiom for), 67 
用 向 量 实 现 (implemented with vectors), 376 
作为 表 操 作 (as list operation), 67 
名 字 的 由 来 (origin of the name), #7268 


的 过 程 性 实现 (procedural implementation of), 61, 


4 52.4, 179, 284 
cdr 向 下 一 个 表 (downa list), 67 
celsius~fahrenheit-converter, 199 
面向 表 达 式 的 (expression-oriented), ， 练习 3.37 
center, 64 
Ces aro, Ernesto, #yiz135 
cesaro-stream, 245 
cesaro-test, /55 
Chaitin, Gregory , #7134 
Chandah-sutra, Æ jz39 
Chapman, David, #72251 
Charniak, Eugene, $ ;4251 
Chebyshev, Pafnutii L’vovich, #12191 
Clark, Keith L. ， 和 脚注 283 
Clinger, William, Bpiz217, Bp iz240 
coeff, 140, 142 
Colmerauer, Alain, #7262 
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Common Lisp, #2 

nil 的 处 理 (treatment of nil), #376 
compile, 399 
compile-and-go, 425, 427 
compile-and-run, #55.48 
compile-application, 408 
compile-assignment, 404 
compiled-apply, 426 
compile-definition, 404 
compiled-procedure?, ， 脚 注 323 
compiled-procedure-entry, Miz323 
compiled-procedure-env, W i4323 +. 
compile-if, 405 vt 
compile-lambda, 406 
compile-linkage, 403 
compile-proc-appl, 4/2 
compile-procedure-call, 409 
compile-quoted, 403 
compile-self—-evaluating, 403 
compile-sequence, 406 
compile-variable, 403 
complex->complex, # 392.81 
complex J (package), 130 
compound-apply, 388 
compound-procedure?, 26/ 
cond (特殊 形式 ，special form), J 

附加 子 旬 语法 (additional clause syntax), 练习 4.3 

子 句 (clause), 11 

的 求 值 (evaluation of ) 11 

Sif, #319 


推论 里 陷 式 的 begin (implicit begin in consequent) , 


Me iz 131 
cond? , 258 
cond->if , 258 
cond-actions, 258 
cond-clauses, 258 
cond-else-clause?, 258 
cond-predicate, 258 
condG 的 子 句 (clause, ofacond), /2 
另外 的 语法 (additional syntax ) ， 练 习 4.3 
conjoin, 327 | 
connect, 200, 204 
Conniver ， 和 脚注 251 
cons (基本 过 程 , primitive procedure), 57 
公理 (axiom for), 61 
闭 包 性 质 (closure property of), 65 
用 变动 函数 实现 (implemented with mutators ), 775 
用 向 量 实 现 (implemented with vectors), 377 
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作为 表 操作 (as list operation ) 377 
名 字 的 意义 (meaning of the name), #7268 
的 过 程 性 实现 (procedural implementation of), ，67 ， 
$392.4, 76, 179, 284 
cons-stream (特殊 形式 ，special form), 227, 222 
和 人 情 性 求 值 (lazy evaluation and ) 284 
为 什么 作为 特殊 形式 (why a special form), #2 184 
const (寄存 器 机 器 ，in register machine), 347 
模拟 (simulating ) 370 
语法 (syntax of), 359 
constant (AA#)R, primitive constraint), 202 
constant-exp, 370 
congtant-exp-value, 370 
construct-arglist, 408 
cons 上 一 个 表 (upalist), 68 
contents, /20 


使 用 Scheme 数 据 结 构 (using Scheme data types), 4 


习 2.78 
continue 472 (register), 353 
显 式 控制 求 值 器 里 (in explicit-control evaluator), 
383 
和 递归 (recursion and), 355 
Cormen, Thomas H., #73106 
corner-split, 89 
cos (#A xt FH, primitive procedure), 46 
count-change, 26 
count-leaves, 73 
作为 累积 (as accumulation), # 92.35 
作为 寄存 器 机 器 (as register machine), #& 55.21 
count-pairs, # 33.16 
Cressey, David , # {#302 
cube, #4 31.15, 37, 49 
cube-root, 49 
current-time, 194, 196 
Darlington, John, 脚注 202 
decode, 113 
deep-reverse, # 92.27 
define (特殊 形式 ，Special form), 5 
带 点 尾部 记 法 (with dotted-tail notation), #: 3 2.20 
的 环境 模型 (environment model of ), 164 
lambda 5, 41~42 
过 程 的 (for procedures), 7, 42 
语法 糖衣 (syntactic sugar), 256 
的 值 (value of), Briz8 
为 什么 是 特殊 形式 (why a special form), 7 
内 部 (internal), L 内 部 定义 (internal definition ) 
define-variable! , 261, 263 | 
definition? , 256 


definition-value, 256 
definition-variable , 256 
deKleer, Johan ， 和 脚注 251 ， 脚 注 281 
delay (特殊 形式 ，special form) 222 
显 式 (explicit), 242 
显 式 与 自动 (explicit vs. automatic ) ，285 
用 lambda 实 现 (implementation using lambda), 225 
情 性 求 值 和 (lazy evaluation and), 284 
记忆 性 (memoized) , 225, # 33.57 
为 什么 是 特殊 形式 (why a special form), #7 i 184 
delay-it, 287 
delete-queue! , /80, 182 
denom, 56, 59 
公理 (axiom for), 60 
归 约 到 最 低 的 项 (reducing to lowest terms), 59 
deposit ， 与 外 置 串 行 化 器 (with external serializer), 2/5 
deposit 消 息 ， 用 于 银行 账户 (deposit message for bank 
account ) ，133 | 
deriv (符号 symbolic), /00 
By fe & jh] (data-directed), # 332.73 
deriv (数值 numerical), 49 
Dijkstra, Edsger Wybe ， 和 脚注 172 
Dinesman, Howard P., 290 
disjoin, 327 
display (基本 过 程 ，primitive procedure), # 91.22, 
脚注 170 
display-line, 222 
display-stream, 222 
distinct?, #32252 
div (F418, generic), 128 
div-complex, 118 
divides?, 33 
div-interval, 63 
BÆ (division by zero), #3 2.10 
divisible?, 227 
div-poly, #32.91 
div-rat, 56 
div-series, # 33.62 
div-terms, 练习 2.91 
DOS/Windows ， 脚 注 317 
dot-product, 练习 2.37 
Doyle, Jon， 脚 注 251 
draw-line, 93 
driver-loop 
情 性 求 值 器 (for lazy evaluator), 280 
元 循环 求 值 器 (for metacircular evaluator), 265 
非 确定 性 求 值 器 (for nondeterministic evaluator) ,. 
了 02 








作为 连 分 数 (as continued fraction) ， 练 习 1.38 


作为 微分 方程 的 解 (as solution to differential equation ) ， 


242 
edgel-frame, 91 
edge2-frame, 91 
EIEIO, #34177 
Eindhoven 技术 大 学 ， 和 脚注 172 
element-of-set?, 103 
— Me HA (binary-tree representation), /06 
排序 表 表 示 (ordered-list representation ) 104 
无 序 表 表 示 (unordered-list representation), /03 


else (cond 里 的 特殊 形式 ,special symbol in cond ) /2 


empty-agenda?, 194, 196 
empty-arglist , #72307 
empty-instruction-sequence, 402 
empty-queue?, 180, 782 
empty-termlist?, 140, 142 
enclosing-environment, 262 
encode, # 32.68 
end-segment , #52.2, #32.48 
end-with-linkage, 403 
entry, /06 
enumerate-interval, 78 
enumerate-tree, 78 
env#7# (register), 383 
eq? (#2 it #, primitive procedure ), 98 
对 任意 对 象 (for arbitrary objects), 178 
作为 指针 相等 (as equality of pointers), 178, 375 
对 符号 的 实现 (implementation for symbols ), 376 
数值 相等 和 (numerical equality and), fy jz 294 
equ? (通用 型 谓词 ，generic predicate ) , % 332.79 
equal?, #32.54 
equal-rat?, 56 
error (#2j¢ #, primitive procedure), #iz56 
Escher, Maurits Cornelis, #7488 
estimate-integral, #393.5 
estimate-pi, /55 
euler-transform, 234 
eval ( 悄 性 lazy), 279 
eval (#Ait H, primitive procedure), 268 
MIT Scheme, #4226 
用 于 查询 解释 器 (used in query interpreter ), 328 
eval (元 循环 metacircular), 252, 253 
分 析 型 版 本 (analyzing version), 273 
数据 导向 的 (data-directed) , 练习 4.3 
与 基本 eval (primitive eval vs.)， 和 脚注 225 
eval-assignment , 254 
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eval-definition, 255 
eval-dispatch, 384 
eval-if (48, lazy), 280 


eval-if (元 循环 ，metacircular ) 254 


eval-sequence, 254 
ev-application, 359 
ev-assignment , 392 
ev-begin, 389 
ev-definition, 392 
even? , 30 
even-fibs, 76, 79 
ev-if , 39] 
ev-lambda, 385 
ev-quoted, 385 
ev-self-eval, 385 
ev-sequence 
Ht FQ (with tail recursion), 390 
不 带 尾 递归 (without tail recursion), 389 
ev-variable, 385 
ex by EA (power series for), # 33.59 
exchange, 214 
execute , 362 
execute-application 
元 循环 (metacircular) , 275 
非 确 定性 (nondeterministic), 30/ 
expand-clauses, 258 
expmod, 34, #391.25, %4 31.26 
expt 
Shee 4tik Ac (linear iterative version) , 29 
线性 递归 版 本 (linear recursive version) , 29 
寄存 器 机 器 (register machine for), # 95.4 
exp 寄 存 器 (register), 383 
extend-environment, 261, 262 
extend-if-consistent, 329 
extend-if-possibie, 332 
external-entry, 426 
extract-labels, 364, piz289 
factorial 
作为 抽象 机 器 (as an abstract machine), 266 
的 计算 (compilation of), 415~417, 5-17 
求 值 的 环境 结构 (environment structure in evaluating) , 
练习 3.9 
peeve Ae jG AL (linear iterative version) , 22 
线性 递归 版 本 (linear recursive version) , 2/ 
迭代 的 寄存 器 机 器 (register machine for (iterative ) ) , 
#751, #752 
递归 的 寄存 器 机 器 (register machine for (recursive ) ) , 
354~356, w5-il 





444 


堆栈 使 用 ， 编 译 (stack usage, compiled), # 95.45 
堆栈 使 用 ， 解 释 (stack usage, interpreted), 35.26, 
练习 5.27 
堆栈 使 用 , 寄存 器 机 器 (stack usage, register machine ) ， 
练习 5.14 
RIK (with assignment), 161 
带 高 阶 过 程 (with higher-order procedures), # 31.31 
false, W17 
false?, 261 
fast-expt, 30 
fast-prime?, 34 
Feeley, Marc ， 和 脚注 232 
Feigenbaum, Edward ， 有 和 脚注 265 
Fenichel, Robert, ， 脚 注 300 
fermat-test, 34 
fetch-assertions, 333 
fetch-rules, 333 
fib 
oh tee RAR A (linear iterative version) , 26 
对 数 版 本 (logarithmic version), # 91.19 
寄存 器 机 器 ( 树 形 递归 ) (register machine for (tree- 
recursive )), 357, @5-12 
堆栈 人 使用， 编译 (stack usage, compiled), # 35.46 
堆栈 使 用 ， 解 释 (stack usage, interpreted ), 练习 .29 
树 形 递归 版 本 (tree-recursive version) ,24， 练 习 3.29 
带 记 忆 (with memoization ) ， 练 习 3.27 
带 命 名 1Let (with named let), # 34.8 
fibs (JC, infinite stream), 227 
隐 式 定义 (implicit definition), 279 
FIFO ih (buffer), 180 
filter, 78 
filtered-accumulate, #39 1.33 
find-assertions, 328 
find-divisor, 33 
first-agenda-item, 194, 197 
first-exp, 257 
first-frame, 262 
first-operand, 257 
first-segment, /96 
first-term, 140, 742 
fixed-point, 46 
{Eik ACHE (as iterative improvement), 4 3 1.46 
fixed-point-of-transform, 50 
flag t (register), 362 
flatmap, 83 
flatten-stream, 336 
flip-horiz, 88, #392.50 
flipped-pairs, 89, fy 390 


flip-vert, 88, 94 
Floyd, Robert, #yiz251 
fold-left, #4 32.38 
fold-right, %3 2.38 
Forbus, Kenneth D.， 和 脚注 251 
force, 222, 225 

强迫 计算 一 个 槽 (forcing a thunk vs.), #piz239 
force-it, 28/ 

#51047 hk as (memoized version), 282 
for-each, % 32.23, #*34.30 
for-each-except, 204 | 
forget-value!, 200, 204 
Fortran, 2, #781 

的 发 明 者 (inventor of), W202 

复合 数据 上 的 限制 (restrictions on compound data), 

脚注 13 
frame-coord-map, 92 
frame-values, 262 
frame-variables, 262 
Franz Lisp， 和 脚注 2 
free 寄存 器 (register), 377, 379 
Friedman, Daniel P., riz 186, iz206 
fringe, #52.28 

作为 一 种 树 形 枚 举 (as a tree enumeration), jz 80 
front-ptr, 181 
front-aueue, 180, 787 
Gabriel, Richard P., #7231 
GCD, 32, RBKA HR (greatest common divisor ) 

的 寄存 器 机 器 (register machine for) , 343~345 , 359 
gcd-terms, 145 
generate-huffman-tree, # 32.69 
get, 123, 187 
get-contents, 36] 
get-global-environment ， 脚 注 314 
get-register, 362 
get-register-contents, 359, 362 
get-signal, 191, 793 
get-value, 200, 204 
Goguen, Joseph, #yiz71 
Gordon, Michael, #4200 
goto (在 寄存 器 机 器 里 in register machine), 346 

以 标号 为 目标 (label as destination), 354 

模拟 (simulating), 369 
goto-dest, 368 
Gray, Jim ， 和 脚注 176 
Green, Cordell ， 牌 注 202 
Griss, Martin Lewis ， 有 和 脚注 2 
Guttag, John Vogel, Mejz71 
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Hamming, Richard Wesley, #12108, # 593.56 
Hanson, Christopher P., #32217, #jz325 
Hardy, Godfrey Harold, Mpjz 91, pjz198 
Hassle ， 和 脚注 237 
has-value? , 200, 204 
Havender, J., #iz176 
Haynes, Christopher T. ， 牌 注 206 
Hearn, Anthony C., #iz2 
Henderson, Peter, Mpiz88, Bpiz189, Myeiz202 
Henderson (diagram), 228 
Hewitt, Carl Eddie, #;431, Beyz251, Beiz262, #72300 
Hilfinger, Paul, #7107 
Hoare, Charles Antony Richard, #iz71 
Hodges, Andrew, jz 223 
Hofstadter, Douglas R., #j#224 
Horner, W. G., #782 
Horner 规 则 (rule), 492.34 
Huffman, David, 110 
Huffman 4g (code), 109~115 
的 最 优 性 (optimality of), 111 
编码 的 增长 阶 (order of growth of encoding), #3 
2.12 
Hughes, R. J. M., #iz245 
IBM 704, #468 
identity, 39 
if (特殊 形式 ，special form), 12 
cond5, Miz19 
的 求 值 (evaluation of), 12 , 
的 正则 序 求 值 (normal-order evaluation of), %3 1.5 
单 支 (无 替代 部 分 ) (one-armed (without alternative )), 
脚注 137 
谓词 、 推 论 和 替代 部 分 (predicate, consequent, and 
alternative of), 12 
为 什么 作为 特殊 形式 (why a special form), # 91.6 
if?, 257 
if-alternative, 257 
if-consequent , 257 
if-predicate, 257 
让 的 替代 部 分 (alternative of if), 72 
imag-part, 125 | 
数据 导向 的 (data-directed) , 119 
极 坐 标 表示 (polar representation), 1/8 
直角 坐标 表示 (rectangular representation ), 120 
与 带 标 志 数 据 (with tagged data), 720 
imag-part-polar, /20 
imag-part-rectangular, /20 
inc, 39 
inform-about-no-value, 20/ 


inform-about-value, 201 
Ingerman, Peter, 脚注 238 
insert! 
在 一 维 表 格 里 (in one-dimensional table), 785 
在 两 维 表 格 里 (in two-dimensional table), /86 
insert-queue! , 780 
install-complex-package, /30 
install-polar-package, /24 
install-polynomial-package, 139 
install-rational-package, 129 
install-rectangular-package, 123 
instail-scheme-number-package, /29 
instantiate, 325 
instruction-execution-proc, 366 
instruction-text, 365 
integers (无 穷 流 ，infinite stream), 227 
隐 式 定义 (implicit definition), 278 
情 性 表 版 本 (lazy-list version), 284 
integers-starting-from, 227 
integral, 39, 239, % 33.77 
带 有 延 时 参数 (with delayed argument), 241 
与 (with ) lambda, 41 
情 性 表 版 本 (lazy-list version), 285 
延 时 求 值 的 需要 (need for delayed evaluation ), 241 
integrate-Series ， 练 习 3.39 
interleave , 237 
interleave-delayed, 335 
Interlisp ， 牌 注 2 
intersection-set, 103 
二 叉 树 表示 (binary-tree representation )， 练 习 2.65 
排序 表 表 示 (ordered-list representation), /05 
未 排序 表 表 示 (unordered-list representation ) 104 
Jayaraman, Sundaresan, §¥7#159 
Kaldewaij, Anne ， 脚 注 41 
key, 109 
Khayyam, Omar ， 脚 注 35 
Knuth, Donald E., #iz35, ， 和 脚注 39 ， 和 脚注 42 ， 脚 注 82， 
脚注 135 
Kohlbecker, Eugene Edmund, Jr ， 聊 注 217 
Kolmogorov, A. N., 4 iz134 
Konopasek, Milos, Be iz 159 
Kowalski, Robert, By iz 262 
KRC， 脚 注 84， 脚 注 196 
label (寄存 器 机 器 里 ，in register machine), 347 
模拟 (simulating )，370 
label-exp , 370 
label-exp-label , 370 
lambda (特殊 形式 ，special form), 47 





446 





define 5, 41~42 
带 点 尾部 记 法 (with dotted-tail notation), #piz77 
lambda? , 256 
lambda-body, 256 
lambda-parameters, 256 
lambda 表达 式 (expression ) 


作为 组 合式 的 运算 符 (as operator of combination) , 


41 
的 值 (value of), 16 
lambda 演 算 (calculus (lambda calculus )), $3253 
Lambert, J.H., #39 1.39 
Lamé, Gabriel, $443 
Lamé 定理 (Theorem), 32 
Lamport, Leslie ， 有 和 脚注 179 
Lampson, Butler, #7z 138 
Landin, Peter, Ayiz1l1, Mreiz186 
Lapaime , Guy, #rjz#232 
last-exp?, 257 
last-operand?, {2307 
last-pair, #52.17, %3 3.12 
规则 (rules), # 34.62 
leaf?, 113 
left-branch, /06 
Leiserson, Charles E., 73106, fp i198 
length, 68 
作为 积累 (as accumulation), 4 3 2.33 
迭代 版 本 (iterative version) , 68 
递归 版 本 (recursive version), 68 
let (E, special form), 43 
求 值 模型 (evaluation model), # 93.10 
与 内 部 定义 (internal definition vs. ) 43 
命名 的 (named) ， 练 习 4.8 
变量 的 作用 域 (scope of variables), 43 
作为 语法 糖衣 (as syntactic Sugar ) ，43 ， 练 习 3.10 
let* (特殊 形式 ，special form ) ， 练 习 4.7 
letrec (IEA, special form), 练习 4.20 
lexical-address-lookup, 423, % 35.39 
lexical-address-set!, 423, 练习 5.39 
Lieberman, Henry, W ;300 
LIFO 缓 冲 区 (buffer), itk (stack) 
Liskov, Barbara Huberman, #7 iz71 
Lisp 
表 处 理 的 缩写 (acronym for LISt Processing), 1 
应 用 序 求 值 (applicative-order evaluation in), 11 
在 DEC PPP-1 +, #300 
的 效率 (efficiency of), 2, Priz6 
一 级 的 过 程 (first-class procedures in), 51 
Fortran 与 ，2 


历史 (history of), 
内 部 类 型 系统 “nena type system), # 32.78 
在 IBM 704 上 的 初始 实现 (original implementation on 
IBM 704), #468 
与 Pascal， Peizil 
适合 写 求 值 器 (suitability for writing evaluators) , 250 
独特 的 特征 (unique features of), 2 
lisp-value (查询 解释 器 ，query interpreter), 327 
lisp-value (查询 语言 ，9query language), 311, 323 
的 求 值 (evaluation of), 318, 327, % 34.77 
Lisp (dialects) 
Common Lisp, A 72 
Franz Lisp, #72 
Interlisp, W332 
MacLisp, My iz2 
MDL, ， 和 脚注 302 
Portable Standard Lisp ， 有 向 注 2 
Scheme, 2 
Zetalisp , Myjz2 
list (#2A it HB, primitive procedure), 66 
list->tree, %4 32.64 
list-difference, 414 
list-of-arg-values , 280 
list-of-delayed-args , 280 
list-of-values, 254 
list-ref, 68, 285 
list-union, 413 
Lives-near 规 则 (rule), 311, #34.60 
Locke, John, 1 | 
log (Æt, primitive procedure), # 31.36 
logical-not, 791 
lookup Í 
在 一 维 表格 里 (in one-dimensional table}, 184 
在 记录 集合 里 (inset of records), 109 
在 两 维 表 格 里 (in two-dimensional table), 786 
lookup-label, 366 
lookup-prim, 370 
lookup-variable-value, 261, 262 
为 扫描 出 定义 (for scanned-out definitions), # 9 
4.16 
lower-bound, #52.7 
Macintosh, 3317 
MacLisp , Bei? 
magnitude 
žE inlay (data-directed), /25 
极 坐 标 表 未 (polar representation), 7179 
直角 坐标 表示 (rectangular representation), H8 
带 标志 数据 (with tagged data), /2/ 
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magnitude-polar, /20 make-mutex, 2/7 
magnitude-rectangular, /20 © make-new-machine, 5-12 
make~account, /53 make-operation-exp, 370 

在 环境 模型 里 (in environment model), # 393.11 make-perform, 369 

He ty { (with serialization), 212, # 393.41, #9 make-point, 练习 2.2 

3.42 make-poly, 139 

make-account-and-serializer, 2/4 make-polynomial, /42 
make-accumulator, 4393.1 make-primitive-exp, 370 
make-agenda, 194, /96 make-procedure, 26/ 
make-assign , 367 make-product, /00, 102 
make-begin, 257 make-queue, 180, 181 
make-branch, 368 make-rat, 56, 57, 59 
make-center-percent, #32.12 公理 (axiom for}, 60 
make-center-width, 64 归 约 到 最 低 形式 (reducing to lowest terms), 58 
make-code-tree , /12 | | make-rational, 130 
make-compiled-procedure, W ;4323 make-register, 361 
make-complex-from-mag-ang, 131 make-restore 369 
make-complex-from-real-imag, /3] make-save, 369 
make-connector , 203 make-scheme-number, /29 
make-cycle, # 93.13 make-segment, #392.2, #392.48 
make-decrementer , /58 make-serializer, 2/6 
make-execution-procedure, 366 make-simplified-withdraw, 158, 246 
make-frame , 9/, #32.47, 262 make-stack, 361 
make-from-mag-ang, 122, 125 带 监视 的 堆栈 (with monitored stack), 372 

消息 传递 (message-passing ) 92.75 make-sum, /00, 101 

极 坐 标 表 示 (polar representation), 1/9 make-table 

直角 坐标 表示 (rectangular representation), H9 消息 传递 的 实现 (message-passing implementation) , 
make-from-mag-ang-polar, /20 185 | 
make~from-mag-ang-rectangular, /20 一 维 表格 (one-dimensional table), 185 
make~from-real-imag, /2/, 125 make-tableau, 234 

消息 传递 (message-passing ), 127 make-term, 140, 142 

极 坐 标 表示 (polar representation), 1/9 make-test ，368 

直角 坐标 表示 (rectangular representation), 119 make-time-segment, ，796 
make-from-real-imag-polar, /20 make-tree, 106 
make-from-real-imag~-rectangular, /20 make-vect, #392.46 
make-goto, 368 make-wire, 189, 192, % 33.31 
make-if, 257 make-withdraw, /52 
make-instruction, 365 在 环境 模型 里 (in environment model), 167~170 
make-instruction-sequence, 402 用 (using) let, # 393.10 
make-interval, 63, #392.7 map, 70, 285 
make-joint, $% 93.7 作为 积累 (as accumulation), %3 2.33 
make-label ， 脚 注 322 带 有 多 个 参数 (with multiple arguments), #73478 
make-label-entry, 366 map-over-symbols , 337 
make-lambda , 256 | map-successive-pairs, 245 
make-leaf, //2 matrix-*-matrix, % 32.37 
make-leaf-set, 114 ' matrix-*-vector, ġġ 32.37 
make-machine, 359, 361 max ( 基本 过 程 ，primitive procedure), 63 


make-monitored, # 93.2 McAllester, David Allen, #93251 
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McCarthy, John, 2, Beizl, #4247 
McDermott, Drew, #32251 
MDL, 72302 
member ， 和 脚注 252 
memo-fib, # 33.27 
memoize, # 33.27 
memo~proc, 225 
memg , 98 
merge, # 53.56 
merge-weighted, # 33.70 
MicroPlanner, #1251 
Microshaft , 307 
midpoint-segment, $% 32.2 
Miller, Gary L., #3 1.28 
Miller, James S., #iz325 
Miller-Rabin 检查 (test for primality), 371.28 
Milner, Robin, #;4200 
min (基本 过 程 ，primitive procedure), 63 
Minsky, Marvin Lee ， 和 脚注 300 | 
Miranda, 7484 
MIT Scheme 
空 流 (the empty stream), i182 
eval, Wjz226 
内 部 定义 (internal definitions), Hy jz 229 
成 员 (numbers), W23 
random, Mr jz136 
user-initial-environment, 3i226 
without-interrupts, #;i174 
MIT ， 和 脚注 262 
人 工 智 能 实验 室 (Artificial Intelligence Laboratory ) ， 
脚注 2 
早期 历史 (early history of), #iz89 
mA (Project) MAC, MPiz2 
电子 学 研究 实验 室 (Research Laboratory of Electronics ) , 
2, #12300 
ML ， 和 标注 200 
modifies-register?, 413 
monte-carlo, 156 
FBR (infinite stream), 255 
Moon, David A., #riz2, #4300 
Morris, J. H., #7z138 
mul (通用 型 ，generic ) 729 
用 于 多 项 式 系 数 (used for polynomial coefficients) , 
14] 
mul-complex, 118 
mul-interval, 63 
更 商 效 的 版 本 (more efficient version), # 92.11 
mul-poly, 739 


mul-rat, 56 
mul-series, x 5) 3.60 
mul-streams, 4 93.54 
mui-terms, 741 
Multics 分 时 系统 (time-sharing system), #4 72300 
multiple-dwelling, 29] 
multiplicand, 701 
multiplier, /0/ 
基本 约束 (primitive constraint) , 202 
选择 国 数 (selector), /0/ 
Munro, lan ， 和 脚注 82 
mystery, 练习 3.14 
needs-register?, 4/3 
negate, 327 
new-cars# Zs (register), 379 
new-cdrs#7# (register), 379 
newline (#2Ait #H, primitive procedure) ， 练 习 1.22 ， 
脚注 70 
newtons-method, 50 
newton-transform, 49 
new-withdraw, /52 
new 寄 存 器 (register), 381 
next (fttit, linkage descriptor), 404 
next-to (MM, rules), % 54.61 
nil 
避免 (dispensing with), 80 
作为 空 表 (as empty list), 67 
作为 表 尾 标记 (as end-of-list marker), 66 
作 为 Scheme 里 的 常 值 (as ordinary variable in Scheme ), 
脚注 716 
no-more-exps?, M7312 
no-operands?, 275 
not (查询 语言 ，query language), 311, 322 
的 求 值 (evaluation of), 318, 327, % 34.77- 
not (#A tt Æ, primitive procedure), 12 
nouns, 292 
null? (基本 过 程 ，primitive procedure), 68 
用 带 类 型 的 指针 实现 (implemented with typed 
pointers), 377 
number? (A tt #, primitive procedure), 100 
和 数据 类 型 (datatypes and), # 32.78 
用 带 类 型 指针 实现 (implemented with typed pointers ) , 
377 
numer, 56, 59 
公理 (axiom for), 60 
归结 到 最 低 项 (reducing to lowest terms ), 59 
n 次 方 根 ， 作 为 不 动 点 (nth root, as fixed point), 练习 
1.45 
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older% fÆ (register), 382 
old 寄 存 器 (register), 381 
ones (EAW, infinite stream), 228 
情 性 表 版 本 (lazy-list version), 285 
op (在 寄存 器 机 器 里 ，in register machine), 347 
模拟 (simulating), 370 
operands, 257 
operation-exp , 370 
operation-exp-op, 370 
operation-exp-operands, 370 
operator, 257 
or (查询 语言 ，query language), 3/0 
的 求 值 (evaluation of), 317, 327 
or (特殊 形式 ，special form), 18 
的 求 值 (evaluation of), 18 
为 什么 作为 特殊 形式 (why a special form), 18 
AF 表达 式 (with no subexpressions), # 34.4 
order, 140, 142 
origin-frame, 9?/ 
Ostrowski, A. M., #382 
outranked-by (AMlill, rule), 312, % 34.64 
pair? (基本 过 程 ，primitive procedure ) 73 
用 带 类 型 指针 实现 (implemented with typed pointers), 
378 
pairs, 237 
Pan, V. Y., Be iz82 
parallel-execute, 21] 
parallel-instruction-sequences, 415 
Parse, 293 
parse-..., 293~294 
partial-sums, % 33.55 
Pascal, #ryz11 
kb rack He (lack of higher-order procedures ), Æ 
74200 
递归 过 程 (recursive procedures), 23 
对 复合 数据 的 限制 (restrictions on compound data), 
脚注 73 
在 处 理 复 合 数据 上 的 弱点 (weakness in handling com- 
pound objects), ， 牌 注 101 | 
pattern-match , 329 
pc 寄存 器 (register), 362 
perform ( 在 寄存 器 机 器 里 ，in register machine), 348 
模拟 (simulating), 369 
perform-action, 369 
Perlis, Alan J., Bpyz73 
妙语 (quips), #37, Bizll 
Phillips, Hubert, # 34.42 


Pi (7x) 
用 拆 半 法 逼近 (approximation with half-interval method ) , 
45 
用 蒙特 卡 罗 积 分 逼近 (approximation with Monte Carlo 
integration ) ， 练 习 3.3 ， 练 习 3.82 
Cesaro 估计 (estimate for), 155, 254 
莱 布 尼 兹 级 数 (Leibniz’s series for ) ， 脚 注 49 233 
逼近 流 (stream of approximations ), 233~234 
Wallis 公式 (formula for), % 3 1.31 
Pingala, Achérya, iz39 
pi-stream, 233 
pi-sum, 38 
用 高 阶 过 程 (with higher-order procedures), 39 
用 (with) lambda, 4/ 
Pitman, Kent M.， 脚 注 2 
Planner, #32251 
polar?, /20 
polar 包 (package), 139 
poly, 139 
polynomial @ (package), 139 
pop, 361 
Portable Standard Lisp, Mriz2 
PowerPC, i4177 
prepositions, 294 
preserving, 401, % 35.31, 414, % 35.37 
prime? , 33, 229 
primes (3%, infinite stream), 228 
隐 式 定义 (implicit definition), 229 
prime-sum-pair, 286 
prime-sum-pairs, 83 
无 穷 流 (infinite stream), 235 
primitive-apply, 388 
primitive-implementation, 264 
primitive-procedure?, 261, 265 
primitive-procedure-names, 265 
primitive-procedure-objects, 265 
print 操作 , 寄存 器 机 器 (operation in register machine) , 
348 
print-point, % 32.2 
print-queue, # 53.21 
print-rat, 58 
print-result, 393 
监视 堆栈 版 本 (monitored-stack version ), 395 
print-stack-statistics 
probe . 
在 约束 系统 里 (in constraint system), 203 
在 数字 电路 模拟 器 里 (in digital-circuit simulator) , 
194 
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proc 寄存 器 (register), 384 
procedure-body, 261 
procedure-environment, 26/ 
procedure-parameters, 26] 
product, % 31.31 
作为 积累 (as accumulation), # 3 1.32 
product?, 101 
Prolog, #iz251, #3262 
prompt-for-input, 265 
propagate, 194 
push, 36/ 
put, 123, 187 
P 操 作 (信息 量 和 的 ) (P operation on semaphore), fy 72.172 
geval, 320, 326 
queens, #4 32.42 
query-driver-loop, 325 
quote (特殊 形式 ，special form), #72 100 
read, Beiz222, Be 7z285 
quoted? , 255 
quotient (基本 过 程 ，primitive procedure), 4 33.58 
Rabin, Michael O., #9 1.28 
Ramanujan, Srinivasa, yjz198 
Ramanujan # (numbers), # 33.71 
rand, /55 
ae (with reset), #573.6 
random (#A yt, primitive procedure), 34 
需要 赋值 (assignment needed for), #iz129 
MIT Scheme, #iz136 
random-in-range, #33.5 
random-numbers (无 穷 序 列 ，infinite stream), 245 
Raphael, Bertram, #9 7262 
Raymond, Eric , #72235, #34250 
RC 电路 (circuit), 4% 33.73 
read (#Ait Æ, primitive procedure), My i#222 
贞 尾 部 记 法 的 处 理 (dotted-tail notation handling by ), 
330 
去 字符 (macro characters), ， 脚 注 285 
read-eval-print-loop, 393 
read tate, 在 寄存 器 机 器 里 (operation in register machine ) , 
348 i 
real-part 
数据 导向 的 (data-directed), /25 
极 坐 标 表 示 (polar representation), //8 
直角 坐标 表示 (rectangular representation), 118 
带 标 志 数 据 (with tagged data), 727 
real-part-polar, 12] 
real-part-rectangular, 120 
rear-ptr, /8/ 


receiveit# (procedure), #3289 
rectangular?, 120 
Rees, Jonathan A., #ejz217, Æ i4232 
reg (寄存 器 机 器 ，in register machine), 347 
t (simulating), 369 
register-exp, 370 
register-exp-reg, 370 
registers-modified, 4/2 
registers-needed, 4/2 
remainder (#47 #, primitive procedure), 30 
remainder-terms, # 32.94- 
remove, 84 
remove-first-agenda-item! , 194, 197 
require, 288 
作为 特殊 形式 (as a special form), #: 34.54 
rest-exps, 257 
rest-operands, 257 
restore (寄存 器 机 器 ，in register machine), 355, # 
35.11 
实现 (implementing), 377 
模拟 (simulating), 369 
rest-segments, 196 
rest-terms, 140, 142 
return (连接 描述 符 ，linkage descriptor), 400 
Reuter, Andreas ， 脚 注 176 
reverse, # 32.18 
VEX df a (as folding), % 32.39 
规则 (rules), 4 3 4.68 
right-branch, /06 
right-split, *9 
Rivest, Ronald L., #riż48, #iz106 
RLC 电 路 (circuit), #% 33.80 
Robinson, J. A.， 脚 注 262 
Rogers, William Barton , 3289 
root 寄 存 器 (register), #yiz301 
rotate90, 94 
round (基本 过 程 ，primitive procedure), By iz119 
Rozas, Guillermo Juan, #7325 
RSA B®} (algorithm), #iz48 
Runkle, John Daniel, jz 89 
runtime (#2 it Æ, primitive procedure), # 91.22 
same (HiMi], rule), 372 
same-variable?, 700, 139 
save (寄存 器 机 器 ，in register machine), 356, # 95.11 
实现 (implementing), 377 
模拟 (simulating), 369 
scale-list, 70, 71, 285 
scale-stream, 229 
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scale-tree, 75 
scale-vect , 4% 92.46 
scan-out-defines, # 34.16 
scan 寄 存 器 (register ) 
Scheme ，2 
的 历史 (history of), My iz2 
scheme-number->complex, /33 
scheme-number->scheme-number, #3 2.81 
scheme-number 包 (package), /29 
Scheme 的 编译 器 (compiler for Scheme), 399~402, 3 3 
代码 生成 器 (code generator) ， 编 译 时 环境 (com- 
piletime environment) ;指令 序列 (instruction 
sequence) ， 连 接 描述 符 (linkage descriptor) ， 目 
标 寄存 器 (target register) 
与 分 析 型 求 值 器 (analyzing evaluator vs.), 399, 400 
RHA (assignments), 404 
代码 生成 器 (code generators), @compile-... 
组 合式 (combinations), 407~412 
条 件 (conditionals), 404 
定义 (definitions), 404 
效率 (efficiency) , 399~400 
实例 的 编译 (example compilation), 415~419 
与 显 式 控 制 求 值 器 (explicit-control evaluator vs.), 
399~400 , #35.32, 427 
表达 式 语法 过 程 (expression-syntax procedures), 399 
与 求 值 器 连接 (interfacing to evaluator), 425~430 
标号 生成 (label generation) ， 和 脚注 322 
lambda#jkx (expressions), 406 
词法 地 址 (lexical addressing), 422~424 
连接 代码 (linkage code), 403 
机 器 操作 的 使 用 (machine-operation use) ， 脚 注 319 
编译 后 代码 (堆栈 使 用 ) 性 能 监视 (monitoring perf- 
ormance (stack use) of compiled code) ，427 ， 练 
35.45, % 35.46 | 
基本 过 程 的 开放 代码 (open coding of primitives), #& 
习 5.38 ， 练 习 5.44 
运算 对 象 求 值 的 顺序 (order of operand evaluation), 
练习 5.36 
过 程 应 用 (procedure applications ) 407~412 
引号 (quotations), 403 
寄存 器 使 用 (register use), ， 和 脚注 319 ，398 ， 和 脚注 326 
运行 编译 代码 (running compiled code), 425, 430 
扫描 出 内 部 定义 (scanning out internal definitions ) ， 
We iz 331, #3595.43 
自 求 值 表达 式 (self-evaluating expressions ) 403 
表达 式 序 列 (sequences of expressions) , 406 
堆栈 的 使 用 (stack usage), 401, % 35.31, %3 
5.37 i 


的 结构 (structure of), 399~402 
生成 尾 递归 代码 (tail-recursive code generated by), 
411 
变量 (variables) 403 
Scheme 芯片 (chip), 383, 45-16 
Schmidt, Eric, #72138 
search, 44 


 gegment-queue, 196 


Segments , 196 
seqments->painter, 93 
segment-time, 7/96 
self-evaluating?, 255 
sequence->exp, 257 
serialized-exchange, 2/5 
避免 死 销 (with deadlock avoidance), 293.48 
set! (特殊 形式 special form), 151, 3 RRA (assi- 
gnment) 
的 环境 模型 (environment model of), My jz 141 
的 值 (value of), W 3130 
set-car! (#aAit &, primitive procedure), 173 
用 向 量 实现 (implemented with vectors), 376 
的 过 程 实现 (procedural implementation of), /79 
的 值 (value of), Bpiz144 
set-cdr! (Ait @, primitive procedure), /73 
用 向 量 实现 (implemented with vectors), 376 
的 过 程 实 现 (procedural implementation of), /80 
的 值 (value of), #iz144 
set-contents! , 361 
set-current-time! , 196 
set-front-ptr!, /8&/ 
set-instruction-execution-proc! , 366 
set-rear-ptr! , 181 
set-register-contents! , 359, 362 
set-segments! , 196 
set-signal!, 191, 193 
setup-environment, 264 
set-value! , 200, 204 
set-variable-value!, 261, 263 
Shamir, Adi, #iz48 
shrink-to-upper-right, 94 
Shrobe, Howard E., My i#265 
signal-error, 394 
simple-query , 326 
sin (#At #, primitive procedure), 46 
singleton-stream, 336 
SKETCHPAD ， 和 脚注 159 
smallest-divisor, 33 


更 有 效 的 版 本 (more efficient version) ， 练 习 1.23 
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Smalltalk, #9 iz159 
Solomonoff, Ray, ¥7z134 
solve 微 分 方程 (differential equation), 241~242 
惰性 表 版 本 (lazy-list version), 286 
扫描 出 定义 (with scanned-out definitions), 练习 4.18 
Spafford, Eugene H.， 和 脚注 337 
Split ， 练 习 2.45 
sqrt, 16 
块 结构 (block structured), /19 
环境 模型 (in environment model), 171~172 
作为 不 动 点 (as fixed point), 46~51 
HE Axe (eee (as iterative improvement), % 5) 1.46 
用 牛顿 法 (with Newton’s method), 50 
寄存 器 机 器 (register machine for), 2% 35.3 
作为 流 的 极限 (as stream limit), 2 93.64 
sqrt-stream, 233 
square, 8 
环境 模型 (in environment model), 163~165 
square-limit, 90~9/ 
square-of-four, 90 
Squarer (jk, constraint), 2% 93.34, #% 93.35 
squash-inwards, 94 
stack-inst-reg-name, 369 
Stallman, Richard M., Meiz159, Myiz251 
start-eceval , Mjz334 
start-segment, % 32.2, $ 32.48 
start 寄存 器 机 器 (register machine), 359, 362 
statements, 4/3 
Steele, Guy Lewis Jr., Peiz2, Beig31, Miz139, Miz 
159, Meiz235, Bez 250 
Stoy, Joseph E.， 上 牌 注 15， 牌 注 41， 和 脚注 231 
Strachey, Christopher, #7264 
stream-append, 237 
stream-append-delayed, 335 
stream-car, 221, 222 
stream-cdr, 22/1, 222 
stream-enumerate-interval , 223 
stream-filter, 223 
stream-flatmap, 336, #354.74 
stream-for-each, 222 
stream-limit, 练习 3.64 
stream-map, 222 
带 多 个 参数 (with multiple arguments), & 393.50 
stream-null?, 222 
在 MIT Scheme H, Miz 182 
stream-ref, 222 
stream-withdraw, 247 
sub (通用 型 ，generic ) 129 


sub-complex, 1/8 
sub-interval, 练习 2.8 


sub-rat, 56 
sub-vect, 练习 2.46 
sum, 38 


作为 积累 (as accumulation ) ， 练 习 1.32 

4tik Æ (iterative version), ， 练 习 1.30 
sum? ，707 
sum-cubes, 38 

高 阶 过 程 【with higher-order procedures) , 39 
sum-integers, 38 

高 阶 过 程 (with higher-order procedures) , 39 
sum-odd-squares, 76, 79 
sum-of—squares, 8 

环境 模型 (in environment model), /65 
sum-primes, 227 
Sussman, Gerald Jay, #ejz3, Beiz31, Beizl59, Wiz25l 
Sutherland, Ivan, #7159 | 
symbol? (2A jt EH, primitive procedure), /00 

和 数据 类 型 (data types and), # 92.78 

用 带 类 型 指针 实现 (implemented with typed pointers ) ， 

377 
symbol-leaf, 112 
Symbols, 1/2 
SYNC, Biz177 
tack-on-instruction-sequence, 4/4 
tagged-list?, 255 
Teitelman, Warren, 脚注 2 
term-list, 139 
test (寄存 器 机 器 ，in register machine) , 346 

模拟 (simulating), 368 
test-and-set!, 217, #32172 
test-condition, 368 
text-of-quotation, 255 
Thatcher, James W., #3271 
the-cars 

寄存 器 (register), 376, 379 

fa] #& (vector), 375 
the-cdrs 

寄存 器 (register), 376, 379 

向 量 (vector), 375 
the-empty-stream, 222. 

在 MIT Scheme Æ, Miz 182 
the-empty-termlist, 140, 142 
the-global-environment , 264, #314 
theta of f(z) (©( fin))), 28 
THE 多 道 程序 设计 系统 (THE Multiprogramming System ) , 

和 脚注 172 





Žž 列 


timed-prime-test, 91.22 
TK!Solver, #72159 
transform-painter, 94 
transpose—}46 BE (a matrix), # 32.37 
练习 2.63 

tree-map, 92.31 


tree->list..., 
true, 脚注 17 
true?, 26/ 
try-again, 289 
Turner, David, #3384, Breiz196, iz201 
type-tag, 119 


使 用 Scheme 数据 类 型 (using Scheme data types), # 


习 2.78 
unev#4-# (register), 383 
unify-match, 33] 
union-set, /03 
二 又 树 表示 (binary-tree representation), 4 32.65 
排序 表 表 示 (ordered-list representation}, # 3) 2.62 
未 排序 表 表 示 (unordered-list representation), #9 
2.59 
unique (查询 语言 ，duery language), 4 94.75 
unique-pairs, # 32.40 
UNIX, i317, W337 
unknown-expression-type, 393 
unknown-procedure-type, 394 
update-insts! , 365 
upper-bound, #92.7 
up-split, %4 32.4 
user-initial-environment (MIT Scheme), Biz 
226 
user-print , 266 
为 编译 代码 而 做 的 修改 (modified for compiled code ), 
脚注 334 
value-proc , 367 
val 寄 存 器 (register), 383 
variable, 139 
variable?, /00, 255 
vector-ref (基本 过 程 ，primitive procedure), 374 
vector-set! (基本 过 程 ，primitive procedure), 374 
verbs, 292 
Wadler, Philip ， 有 和 脚注 138 
Wadsworth, Christopher, #72200 
Wagner, Eric G. ， 脚 注 71 
Walker, Francis Amasa , #7489 
Wallis, Jobn, $452 
Wand, Mitchell, #7206, #4308 
Waters, Richard C., Wp:481 4 
weight, /12 
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weight-leaf, 112 
Weyl, Hermann, 53 
wheel (Mil, rule), 311 
width , 64 
Wilde, Oscar (Pertis 的 释义 (paraphrase of ))， 脚 注 7 
Wiles, Andrew ， 脚 注 45 
Winograd, Terry ， 脚 注 251 
Winston, Patrick Henry ， 脚 注 251， 脚 注 257 
Wisdom, Jack ， 脚 注 3 
Wise, David S., Biz 186 
withdraw, /5/ 
并 发 系统 里 的 问题 (problems in concurrent system), 
208 
without-interrupts, Myiz164 
Wright, E. M., #72191 
Wright, Jesse B. ， 和 脚注 71 
xcor-vect, #32.46 
Xerox Palo Alto Research Center, Byiz2, Mpiz 159 
ycor-vect, #32.46 
Yochelson, Jerome C., W 4300 
Y 运 算 符 (operator), Æ 34231 
Zabih, Ramin, i225] 
Zetalisp ， 和 脚注 2 
Zilles, Stephen N., 49371 
Zippel, Richard E., siz 128 
爱丁堡 大 学 (University of Edinburgh), #ix262 
按 名 调用 参数 传递 (call-by-name argument passing), Æ 
i186, Be iz240 
按照 历史 图 调 (chronological backtracking), 289 
按 需 参数 传递 (call-by-need argument passing), Miz 
186， 脚 注 240 
记忆 性 (memoization and), #iz192 
八 皇 后 谜 题 (eight-queens puzzle), 练习 2.42 ， 练 习 4.44 
半 加 器 (half-adder), 189 
half-adder ，790 
HJH (simulation of), 194~195 
包 (package), 124 ¥ 
复数 ~(complex-number), 130 
th Lb Has (polar representation), 125 
多 项 式 (polynomial) , 139 
有 理 数 (rational-number) , 129 
直角 坐标 表示 (rectangular representation), 123 
Scheme 的 数 (Scheme-number) , 129 
保留 字 (reserved words), % 35.38, %3 5.44 
被 监视 的 过 程 (monitored procedure), 33.2 
被 开 方 数 (radicand ) 15 
本 机 语言 (native language of machine), 397 


毕 达 哥 拉 斯 三 元 组 (Pythagorean triples ) 
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用 非 确定 性 程序 (with nondeterministic programs) , 
% 94.35, % 94.36, 394.37 
用 流 (with streams), 4% 33.69 
H (closure), 55 
抽象 代数 里 (in abstract algebra), W472 
cons 的 闭 包 性 质 (closure property of cons), 66 
图 形 语 言 棵 作 的 闭 包 性 质 (closure property of picture- 
language operations ) 86, 87 
许多 语言 里 缺少 (lack of in many languages) 
编码 (code) 
ASCII, 109 
定 长 (fixed-length), 110 
Huffman, 8 Huffman 438% (code), 109 
莫 尔 斯 (Morse), 110 
wa (prefix), 110 
M+ (variable-length), 110 
编译 (compilation), & 43i%# (compiler) 
431% (compiler), 398~399 
与 解释 器 (interpreter vs.), 398~399 , 427 
BA, E A FOE Ehk BM (tail recursion, stack 
allocation, and garbage-collection ) i#325 
编译 时 环境 (compile-time environment), # 35.40 
和 开放 代码 (open coding We 44 
变 长 编码 (variable-length code), 
AS sh Ey Be (mutator), 173 
变动 数据 对 象 (mutable data objects ), 
Fj (queue) ， 表格 (table) 
变量 (variable), 5， 另 见 局 部 变量 (local variable ) 
约束 的 (bound), 18 
自由 的 (free), 18 
作用 域 (scope of), 
a variable ) 
未 约束 的 (unbound), 162 
值 (value of), 162 
变量 的 作用 域 (scope of a variable ), 
域 (lexical scoping ) 
内 部 的 (internal) define, 269 
fe (in) let, 43 
过 程 的 形式 参数 (procedure’s formal parameters), 19 
标记 一 清扫 废料 收集 器 (mark-sweep garbage collector ), 
脚注 300 
表 (list), 66 
45 3| 42 (backquote with), 
cdr (cdring down), 67 
与 append 组 合 (combining with append), 68 
cons 上 去 (consingup), 68 
将 二 又 树 变换 到 (converting a binary tree to a), 
2.63 


， 脚 注 73 


173~180, 5 见 队 


18 ， 另 见 变量 的 作用 域 (scope of 


18, 3 Viste A 


脚注 321 


变换 到 二叉树 (converting to a binary tree )， 练 习 2.64 
Æ (empty), LÆR (empty list) 
的 相等 (equality of), 2% 3 2.54 
带头 单元 的 (headed), 183, i4156 
的 最 后 序 对 (last pair of), # 32.17 
情 性 (lazy), 283~286 
的 长 度 (length of), 68 
与 表 结 构 (list structure vs.)， 脚 注 74 
用 car，cdr 和 cons 操 作 (manipulation with car, 
cdr, and cons ), 66 
映射 (mapping over), 70~72 
的 第 ”个 元 素 (nth element of), 67 
上 的 操作 (operations on), 67~70 
的 打印 表示 (printed representation of) 66 
引 县 (quotation of) 97 
HP (reversing), # 72.18 
操作 技术 (techniques for manipulating ) 67~70 
表达 式 (expression ) ， 另 见 复 合 表 达 式 (compound exp- 
ression) , 基本 表达 式 (primitive expression ) 
代数 (algebraic ) ， 见 代数 表达 式 (algebraic expr- 
essions ) 
自 求 值 (self-evaluating ), 252 
符号 (symbolic), ，55 另 见 符号 (symbol) 
表达 式 风 格 (expression-oriented programming), #7 jz2161 
表达 式 求 值 的 顺序 (order of subexpression evaluation )， 
见 求 值 顺序 (order of evaluation ) 
表达 式 序 列 (sequence of expressions ) 
在 cond 的 推论 部 分 (in consequent of condG) ， 和 脚注 19 
过 程 体 里 (in procedure body), #214 
表格 (table), 183~188 
的 骨架 (backbone of), 184 
为 强制 (for coercion), 133 
用 于 数据 导向 的 程序 设计 (for data-directed progr- 
amming), 12 
局 部 (local), 186~187 
n 维 (n-dimensional), 4 33.25 
一 维 (one-dimensional ), 184~185 
操作 和 类 型 (operation-and-type )， 
(operation-and-type table ) 
用 二 叉 树 表示 与 用 未 排序 表 表 示 (represented as binary 
tree vs. unordered list), # 93.26 
Hug (AFB (testing aed of keys), 
两 维 (two-dimensional), 1 
用 于 模拟 的 待 处 理 表 eed in simulation agenda ), 
195 
用 于 保存 计算 出 的 值 (used to store computed values ), 
练习 3.27 
表 结 构 (Jist structure), 57 


见 操作 和 类 型 表格 


练习 3.24 
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与 表 (list vs.), Periz 136 
变动 的 (mutable), 173~176 
用 向 量 表 示 (represented using vectors) , 375~378 
表 结 构 存 储 器 (list-structured memory ) 374~383 
表 尾 标记 (end-of-list marker), #p;474, W276 
表 里 的 循环 (cycle in list)， 练 习 3.13 
检查 (detecting), # 33.18 
表 列 《tableau ) 234 
表 列 法 (tabulation), #34, % 33.27 
表 求 值 的 尾 递 归 (evils tail recursion), #4308 
别名 (aliasing )， 脚 注 138 
并 发 性 (concurrency )，206~220 
并 发 程序 的 正确 性 (correctness of concurrent progr- 
ams), 209~210 | 
死 锁 (deadlock), 218~219 
Flic Rsk BY iit (functional programming and), 
247 
控制 机 制 (mechanisms for controlling ), 210~219 
并 行 性 (parallelism), £ (concurrency ) 
捕获 了 自由 变量 (capturing a free variable ) ，19 
不 动 点 (fixed point), 45~48 
用 计算 器 计算 (computing with calculator)， 脚 注 57 
sey (of cosine), 46 
立方 根 作 为 (cube root as ) 49 
四 次 方 根 作 为 (fourth root as), 2% 31.45 
黄金 分 制作 为 (golden ratio as) ， 练 习 1.35 
作为 迭代 改进 (as iterative improvement), ， 练 习 1.46 
在 牛顿 落 里 (in Newton’s method), 49 
7 次 方 根 作为 (nth root as)， 练 习 1.45 
平方 根 作 为 (square root as), 46, 49, 50 
7AR Hh ee BAY (of transformed function), 50 
合 一 和 (unification and), #piz 284 
不 可 计算 (non-computable )， 脚 注 227 
参数 传递 (argument passing )， 见 按 名 参数 传递 (call- 
by-name argument passing) , 按 需 参数 传递 (call-by- 
need argument passing ) 
操作 (operation ) 
足 类 型 (cross-type ) 132 
通用 型 (generic), 55 
在 寄存 器 机 器 里 (in register machine), 344~345 
操作 ， 寄 存 器 机 器 (operation in register machine), 372 
操作 一 类 型 表格 (operation-and-type table), 123 
MEW RIE (assignment needed for), i4130 
实现 (implementing), 187 
模 (thunk), 278~279 
按 名 调用 (call-by-name) , #12186 
按 需 调用 (call-by-need), #32186 
强迫 求 值 (forcing) , 278 


实现 (implementation of), 281~282 
名 字 的 由 来 (origin of name), W;}238 
层次 性 结构 (hierarchical structures), 6, 72~75 
查询 (query), 306, 3 R 简单 查询 (simple query), %4 
合 查询 (compound query) | 
查询 解释 器 (query interpreter) , 306 
加 入 规则 或 断言 (adding rule or assertion), 320 
复合 查询 (Compound query )， 见 复合 查询 (compound 
query ) | 
数据 库 (data base) , 333~335 
驱动 循环 (driver loop), 320, 325~326 
环境 结构 (environment structure in), # 34.79 
框架 (frame), 315, 338 
改进 (improvements to), #34.67, % 34.76, #3 
4.77 . 
KA H (infinite loops) , 322, #394.67 
实例 化 (instantiation), 325 
Lisp RFE (Lisp interpreter vs.) , 319, 320, %3 
4.79 
概述 (overview), 315~320 
模式 匹配 (pattern matching) , 315, 328~329 
模式 变量 表示 (pattern-variable representation ), 325 , 
336~337 
与 not 和 1isp-value 有 关 的 问题 (problems with 
not and lisp-value), 321~322, % 34.77 
查询 求 值 器 (guery evaluator) , 320, 326~328 
规则 (rule), WARM (rule) 
简单 查询 (simple query), 308~309 
PEE (stream operations), 335 
框架 流 (streams of frames), 315, Miz278 
查询 语言 的 语法 (syntax of query language), 336~337 
&— (unification), 318 
查询 语言 (query language), 306~314 
抽象 (abstraction in), 311 
复合 查询 (compound query), 310~311 
数据 库 (data base), 306~308 
相等 检测 (equality testing in), Æ i4268 
扩充 (extensions to), % 34.66, % 34.75 
逻辑 推理 (logical deductions), 313~314 
与 数理 逻辑 (mathematical logic vs.), 321~324 
规则 (rule), 311~314 
简单 查询 (simple query), 308~309 
pee (evening star), & 4 (Venus) 
常规 的 数 (在 通用 型 算术 系统 里 ) (ordinary numbers 
(in generic arithmetic System ) ) 129 
抄录 (snarf), M4235 
超 类 型 (supertype), 135 
多 个 (multiple), 135 
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成 功 继续 ( 非 确 定性 求 值 器 ) (success continuation 
(nondeterministic evaluator ) ) 296~297 
程序 (program), | 
作为 抽象 机 器 (as abstract machine), 266 
注释 (comments in), #ypiz87 
作为 数据 (as data), 266~268 
的 递增 开发 (incremental development of) , 6 
的 结构 (structure of), 6, 17, 19~20, 3 LH% # 
fit (abstraction barriers ) 
带 有 子 程 序 结构 (structured with subroutines), Miz 
223 
程序 错误 (bug), | 
捕获 了 自由 变量 (capturing a free variable), 19 
赋值 的 顺序 (order of assignments), 161 
别名 的 副作用 (side effect with aliasing ), jz 138 
程序 的 递增 开发 (incremental development of programs ), 
5 
程序 的 正确 性 《correctness of a program), iz 20 
程序 计数 器 (program counter), 362 
程序 设计 (Programming ) 
数据 导向 的 (data-directed), ， 见 数据 导向 的 程序 设计 
(data-directed programming ) 
命令 驱动 的 (demand-driven ) 224 
的 要 素 (elements of) , 3 
函数 式 (functional), AAA AEF iit (functional 
programming ) 
mA (imperative), 160 
By Ay LS (odious style), #2187 
程序 设计 语言 (programming language), | 
的 设计 (design of) 276 
函数 式 (functional), 247 
逻辑 (logic), 306 
面向 对 象 (object-oriented), My iz118 
强 类 型 (strongly typed), #iz200 
其 高 级 (very high-level), #jz20 
抽象 (abstraction), ， 另 见 抽象 手段 (means of abstracti- 
on) ， 数 据 抽象 (data abstraction) ， 高 阶 过 程 (hig- 
herorder procedures ) 
公共 模式 和 (common pattern and), 38 
元 语言 (metalinguistic), 250 
过 程 性 的 (procedural), 17 
寄存 器 机 器 设计 里 (in register-machine design), 
348~351 
非 确 定性 程序 设计 里 搜索 的 (of search in nondetermi- 
nistic programming ) ，290 
抽象 的 方法 (means of abstraction), 3 
define, 5 
抽象 屏障 (abstraction barriers), 54, 58~60, 115 
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复数 系统 里 (incomplex-number system), 116 
通用 算术 系统 里 (in generic arithmetic system), 128 
抽象 数据 (abstract data), 55, 3 见 数据 抽象 《data abs- 
traction ) 
抽象 语法 (abstract syntax ) 
元 循环 求 值 器 里 (in metacircular evaluator), 252 
查询 解释 器 里 (in query interpreter), 325 
PAHS Wisk (dense polynomial), 142 
申 (string), AFR (character string ) 
串 行 化 器 (serializer), 211~213 
实现 (implementing), 216~218 
带 有 多 项 共享 资源 (with multiple shared resources ), 
214~216 
《创世纪 》Genesis ， 练 习 4.63 
词法 地 址 (lexical addressing ) 422~424 
词法 作用 域 (lexical scoping), 20 
环境 结构 和 (environment structure and), 422 
存储 器 (memory) 
在 (in) 1964, Biz249 
表 结 构 的 (list-structured ) 374~383 
错误 处 理 (error handling ) 
在 编译 代码 里 (in compiled code), #337 
在 显 式 控 制 求 值 器 里 (in explicit-control evaluator ) ， 
393， 练 习 5.30 
打印 ， 基 本 操作 (printing, primitives for)， 和 脚注 70 
大 数 (bignum), 376 
代码 生成 器 (code generator), 399 
的 参数 (arguments of ) ， 400 
的 值 (value of ) ，400 
代数 ， 符 号 (algebra, symbolic), 27H (symbolic 
algebra ) 
代数 表达 式 (algebraic expression), 138 
求 导 (differentiating ) ，99~103 
表示 (representing), 100~103 
化 简 (simplifying), 101~102 
带 标 志 数 据 (tagged data), 119~122, Æ i#292 
带 点 尾部 记 法 (dotted-tail notation) 
过 程 参数 (for procedure Parameters ) , 72.20, Be 
#113 
在 查询 模式 里 (in query pattern), 309, 329 
在 查询 语言 规则 里 (in query-language rule), 313 
read 和 (and) ，329 
带 类 型 的 指针 (typed pointer), 375 
带头 表 头 单元 的 表 (headed list)，184 ， 有 和 脚注 156 
待 处 理 表 (agenda)， 见 数字 电路 模拟 (digital-circuit 
simulation ) 
单 变 元 多 项 式 (univariate polynomial ) ，138 
单位 正方 形 (unit square), 91 
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单元 ， 在 串 行 化 实现 里 (cell in serializer implementa- 
tion), 217 
当前 时 间 ， 对 于 待 处 理 表 (current time, for simulation 
agenda), 196 
BEER, MEAK (Earth, measuring circumference of), 
脚注 188 
地 址 (address ) ，374 
地 址 算术 (address arithmetic), 374 
递归 (recursion), 6 
数据 导向 的 (data-directed) , 141 
表达 复杂 的 计算 过 程 (expressing complicated process), 6 
在 规则 里 (in rules), 312 
对 树 工作 (in working with trees)，72 
递归 方程 (recursion equations), 2 
递归 过 程 (recursive procedure ) 
递归 的 过 程 定 义 (recursive procedure definition), 17 
与 递归 的 计算 过 程 recursive process vs., 23 
不 用 define 描 述 (specifying without define), # 
4.21 7 
递归 计算 过 程 (recursive process), 23 
和 迭代 计算 过 程 (iterative process vs.), 20~24, #3 
3.9，354， 练 习 5.34 
线性 (linear), 22, 28 
与 递归 过 程 (recursive procedure vs.), 23 
寄存 器 机 器 (register machine for) , 354~358 
树 (tree), 24~27 
递归 论 (recursion theory), 74224 
点 ， 用 序 对 表示 (point, represented as a pair), #9 2.2 
电路 (circuit ) 
AHI (digital), R $r Fe H E (digital-circuit 
simulation ) 
用 流 模拟 (modeled with streams), $% 33.73, %3 
3.80 
Fee, FAA MHL (electrical circuits, modeled with 
streams), # 33.73, # 33.80 
电阻 (resistance ) . 
电阻 器 并 联 公 式 (formula for parallel resistors), 62, 
64 , 
电阻 器 的 误差 (tolerance of resistors) , 62 
SEAL Met (iterative improvement) ， 练 习 1.46 
Atti Æ (iterative process ) 22 
作为 流 过 程 (as a stream process) , 232~235 
算法 设计 (design of algorithm), # 31.16 
通过 过 程 调 用 实现 (implemented by procedure call), 
1$~16，23 ，391 ， 另 见 尾 递 归 (tail recursion ) 
线性 (linear), 22, 28 
与 递归 过 程 (recursive process vs.), 21~24, 4339, 
354, #395.34 


寄存 器 机 器 (register machine for), 354 
迭代 计算 过 程 的 不 变量 (invariant quantity of an iterative 
process), # 31.16 
& R28 (iteration contructs ) ， 见 循环 结构 (looping 
constructs ) 
定 长 编码 (fixed-length code), 110 
定 积分 (definite integral), 39 
用 蒙特 卡 罗 模 拟 估 计 (estimated with Monte Carlo 
Simulation ) ， 练 习 3.$， 练 习 3.82 
定理 证 明 ， 自 动 (theorem proving ，autoimatic) ， 和 脚注 
262 
定义 (definition), Rdefine, AAs X (internal defi- 
nition ) 
丢 秋 图 的 算术 (Diophantus’s Arithmetic), WDM 
本 (Fermat’s copy of), ， 牌 注 45 
动作 ， 寄 存 跨 机 器 里 (actions, in register machine), 
348 l 
mS, 与 反 引 号 一 起 使 用 (comma, used with backquote) , 
脚注 321 
RAA 宏 字 符 (reader macro character), By 74285 
ig 入-- 求 值 - 打 印 循环 (read-eval-print loop), 5, 3A 
驱动 循环 (driver loop) 
Wa (breakpoint), # 35.19 
A (assertion), 307 
陷 式 (implicit), 312 
堆栈 (stack), #3230 
框架 的 (framed), Biz 306 
在 寄存 器 机 器 里 做 递归 (for recursion in register mac- 
hine ) 354~358 
表示 (representing ) ，361 ，377 
堆栈 分 配 和 尾 递归 (stack allocation and tail recursion) , 
fe 32 325 
队列 (queue), 180~183 
Mit (double-ended), # -33.23 
首部 (front of), 180 
操作 (operations on), 181 
的 过 程 实 现 (procedural implementation of), #9 
3.22 
尾部 (rear of), 180 
模拟 待 处 理 表 (in simulation agenda) * 196 
对 Scheme 的 显 式 控制 求 值 器 (explicit-control evaluator 
for Scheme ) 383~397 
Wé (assignments), 392 
组 合式 (combinations) , 385~388 
复合 过 程 (compound procedures ) 388 
条 件 (conditionals), 391 
控制 器 (controller), 384~394 


数据 通路 (data paths) 383 
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定义 (definitions), 392 
派生 表达 式 (derived expressions), #323 
驱动 循环 (driver loop), 393 
错误 处 理 (error handling), 393, # 335.30 
没有 需要 求 值 的 子 表达 式 的 表达 式 (expressions with 
no subexpressions to evaluate) , 384~385 
作为 机 器 语言 程序 (as machine-language program), 397 
机 器 模型 (machine model), 394 
为 编译 代码 而 做 的 修改 (modified for compiled code ), 
425~426 
监视 执行 情况 (堆栈 使 用 ) (monitoring performance 
(stack use) ) 395~396 
正则 序 求 值 (normal-order evaluation), % 95.25 
运算 对 象 求 值 (operand evaluation) , 386~387 
操作 (operations), 383 
优化 (附加) (optimizations (additional)), 95.32 
基本 过 程 (primitive procedures ) 388 
过 程 应 用 (procedure application), 385~388 
寄存 器 (registers), 383 
运行 (running), 393~395 
表达 式 序列 (sequences of expressions), 388~391 
特殊 形式 (附加 ) (special forms (additional)), 练习 
5.23, #395.24 
堆栈 使 用 (stack usage), 385 
尾 递 归 (tail recursion), 389~391 
作为 通用 机 器 (as universal machine), 397 
对 数 型 增长 (logarithmic growth), 29, 30, Biz 104 
对 象 (object), 149 
用 对 象 模 拟 的 优势 (benefits of modeling with), 154 
有 随时 间 变 化 的 状态 (with time-varying state), 150 
对 象 表 (obarray ) 376 
多 项 式 (polynomial), 138~147 
规范 形式 (canonical form) 144 
ME (dense), 142 
用 Horner 规 则 求 值 (evaluating with Horner’s rule) , 
练习 2.34 
类 型 的 层次 结构 (hierarchy of types), 143 
未 定 元 (indeterminate of), 138 
稀 朴 (Sparse ) 142 
单 变量 (univariate), 138 
项 表 (term list of polynomial), 139 
多 项 式 算 术 (polynomial arithmetic), 138~147 
加 法 (addition), 139 
除法 (division), # 92.91 
欧 儿 里 得 算法 (Euclid’s Algorithm), #72126 
最 大 公 因 子 (greatest common divisor}, 145, ， 脚 注 128 
与 通用 算术 系统 结合 (interfaced to generic arithmetic 
system), 139 


乘法 (multiplication), 139 
GCD 的 概率 算法 (probabilistic algorithm for GCD ), Æ 
(2128 
AMAA (rational functions) , 144 
减法 (subtraction), 4% 3 2.88 
惰性 表 (lazy list), 284~286 
情 性 求 值 器 (lazy evaluator), 276~284 
情 性 树 (lazy tree), By jz245 
情 性 序 对 (lazy pair) , 284~286 
俄罗斯 农民 的 乘法 方法 (Russian peasant method of 
multiplication )， 和 脚注 40 
厄 拉 多 塞 (Eratosthenes )， 脚 注 188 
JLRS RVR (sieve of Eratosthenes) , 227 
sieve, 227 
Z Mey (binary tree), 105 
平衡 (balanced), 106 
将 表 变 换 到 (converting a list to a) # 92.64 
变换 到 表 (converting to a list) ， 练 习 2.63 
Huffman 49%3 (encoding), 109 
用 表 表 示 (represented with lists), 106 
将 集合 表示 为 (sets represented as), 105~109 
将 表格 构造 为 (table structured as), ， 练 习 3,.26 
二 分 搜索 (binary search ) ，106 
二 进 制 数 加 法 (binary numbers, addition of )， 见 加 法 器 
(adder ) 
二 项 式 系数 (binomial coefficients )， 脚 注 35 
反馈 循环 ， 用 流 模拟 (feedback loop, modeled with 
streams), 241 
反 门 (inverter), 189 
inverter, 19] 
反 引 号 (backquote ) ， 脚注 321 
反正 切 (arctangent), #32110 
返回 多 个 值 (returning multiple values) ， 脚 注 289 
方程 ， 求 解 (equation, solving), ， 见 折 半 法 (half-interval 
method) ， 咎 顿 法 (Newton’s method) , solve 
方程 的 根 (roots of equation), PHAR (half-interval 
method) , 442: (Newton’s method) 
非 确定 性 ， 并 发 程序 的 行为 (nondeterminism, in behavior 
of concurrent programs), ， 脚 注 167 ， 脚 注 203 
非 确 定性 程序 (nondeterministic programs ) 
iB Bik (logic puzzles), 290~291 
和 为 素数 的 数 对 (pairs with prime sums), 286 
分 析 自 然 语言 (parsing natural language) , 291~295 
毕 达 哥 拉 斯 三 元 组 . (Pythagorean triples), # 34.35, 
练习 4.36 ， 练 习 4.37 
非 确定 性 计算 的 程序 设计 (nondeterministic programming ) , 
286 ， 练 习 4.41 ， 练 习 4.44 ， 练 习 4.78 
非 确定 性 计算 (nondeterministic computing) , 286~296 





x 3l 


459 





非 确 定 性 求 值 器 (nondeterministic evaluator) , 296~304 
运算 对 象 的 求 值 顺 序 (order of operand evaluation )， 
练习 4.46 
非 确 定性 的 选择 点 (nondeterministic choice point), 288 
非 严 格 (non-strict ), 277 
48 of AB 52% (Fibonacci numbers), 24, 5 Rfib 
欧 几 里 得 GCD 算法 和 (Euclid’s GCD algorithm and), 32 
的 无 穷 流 (infinite stream of), fibs 
废料 收集 (garbage collection ) ，378~383 
记忆 和 (memoization and), iz 241 
变动 和 (mutation and)， 和 脚注 145 
尾 递 归 和 (tail recursion and )， 有 和 脚注 325 
废料 收集 器 (garbage collector) 
紧缩 式 (compacting), #iz300 
标记 清扫 (mark-sweep), #72300 
停止 并 复制 (stop-and-copy) , 378~383 
费 马 〈Fermat, Pierre de), Mriz45 
费 马 小 定理 (Fermat’s Little Theorem), 34 
另 一 形式 (alternate form), # 91.28 
证 明 (proof), #45 
分 层 设计 (stratified design ) 95 
分 隔 符 (separator code), 110 
4E (semicolon), W ;411 
(AH (comment introduced by), #287 
27 EAJ Mae (cancer of the semicolon), Miz 11 
分 解 ， 程 序 (decomposition of program into parts), 17 
分 派 (dispatching ) 
不 同 风 格 的 比较 (comparing different styles), #39 
2.76 
基于 类 型 (on type), 122, 3 VRS MAB iit 
(data-directed programming ) 
分 情况 分 析 (case analysis) 
与 数据 导向 的 程序 设计 (data-directed programming 
vs.), 253 
— fi (general), 3 cond, ，11 
分 两 种 情况 (with two cases, if), 12 
分 数 (fraction), 见 有 理 数 (rational number) 
分 析 型 求 值 器 (analyzing evaluator), 273~276 
作为 非 确 定性 求 值 器 的 基础 (as basis for nondeterm- 
inistic evaluator ) 296 
let, % 34.22 
分 析 自 然 语 言 (parsing natural language), 292~294 
真实 世界 的 自然 语言 理解 与 玩具 式 的 语法 分 析 (real 
language understanding vs. toy parser) ， 脚 注 257 
封闭 世界 假设 (closed world assumption ) 323 
封装 (encapsulated), $132 
符号 (symbol), 96 
相等 (equality of), 98 


加 入 (interning) 376 
引号 (quotation of), 97 
表示 (representation of), 376. 
唯一 性 (uniqueness of), #2147 
符号 表达 式 (symbolic expression), 55, 3 R8 
(symbol ) 
符号 代数 (symbolic algebra) , 138~147 
符号 微分 (symbolic differentiation), 99~102 
负 号 ， 和 脚注 18 
复合 表达 式 (compound expression), 3-4 3 见 组 合式 
(combination) ， 特 殊 形 式 (special form ) 
作为 组 合式 的 运算 符 (as operator of combination) , 
练习 1.4 
复合 查询 (compound query ) ，310~311 
处 理 (processing), ，316~318 ，326~328 ， 练 习 4.75 ， 
练习 4.76， 练 习 4.77 
复合 过 程 (compound procedure), ，8 ， 另 见 过 程 (proce- 
dure ) 
像 基 本 过 程 一 样 用 (used like primitive procedure) ， 
8~9 
复合 数据 (compound data), 53 
复数 (complex numbers ) 
bt Hae (polar representation), 116 
直角 坐标 表示 (rectaagular representation), 117 
直角 坐标 与 极 坐 标 形式 (rectangular vs. polar form) , 
117 
表示 为 带 标志 数据 (represented as tagged data), 
119~121 
复数 算 术 (complex-number arithmetic) , 116 
与 通用 算术 系统 结合 (interfaced to generic arithmetic 
system), 129~131 
系统 的 结构 (structure of system), ， 图 2-21 
副作用 错误 (side-effect bug), #ig138 
Mii (assignment), 149~154, % Rset! 
的 优势 (benefits of), 154~157 
与 之 有 关 的 错误 (bugs associated with), Miz 138, 
160~161 
的 代价 (costs of), 157~162 
赋值 运算 符 (assignment operator), 150, 4% set! 
概率 算法 (probabilistic algorithm), 34~35 , ¥;4128, 
脚注 188 
高 级 语言 ， 与 机 器 语言 (high-level language, machine 
language vs.), 249 
高 阶 过 程 (higher-order procedures ) 37 
元 循环 求 值 器 里 (in metacircular evaluator), 209 
过 程 作为 参数 (procedure as argument) ，37~40 
过 程 作为 通用 方法 (procedure as general method ) , 
44~48 
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过 程 作 为 返回 值 (procedure as returned value), 
48~52 
强 类 型 和 (strong typing and), By 3z200 
格式 化 输入 表达 式 (formatting input expressions), Mp iz 
6 
工程 与 数学 (engineering vs. mathematics), W i447 
功能 块 ， 数 字 电 路 里 (function box, in digital circuit) , 
189 
共享 数据 (shared data), 177~178 
共享 状态 (shared state) , 209 
共享 资源 (shared resources), 214~216 
构造 函数 (constructor), 55 
作为 抽象 屏障 (as abstraction barrier), 59 
故障 (glitch), 1 
关系 ， 基 于 关系 的 计算 (relations , computing in terms 
of), 198, 305 
归并 无 穷 流 (merging infinite streams), RAWAM 
(infinite stream ) 
归结 原理 Horn) (resolution, Horn-clause), Miz 
262 
归 约 到 最 低 项 (reducing to lowest terms), 58~59, 
146~147 
规范 形式 ， 多 项 式 (canonical form, for polynomials) , 
144 
规则 (查询 语言 ) (rule (query language ) ) 311~314 
应 用 (applying), 319~320, ，329-330 ， 练 习 4.79 
没有 体 (without body), #72270, 313, 328 
国际 象棋 ， 八 皇后 WKB (chess, eight-queens puzzle), # 
32.42, #5) 4.44 
it (procedure), 3 
匿名 (anonymous), 41 
任意 数目 的 参数 (arbitrary number of arguments), 4, 
& 3 2.20 
作为 实际 参数 (as argument), 37~40 
作为 黑箱 (as black box), 17 
f (body of), 8 
复合 (compound), 8 
用 deftine 构造 (creating with define), 8 
用 Lambda 构 造 (creating with Lambda), 41, 162, 
164 
作为 数据 (as data), 3 
定义 (definition of), 8~9 
在 Lisp 里 为 一 级 (first-class in Lisp), 51 
形式 参数 (formal parameters of) ，8 
作为 通用 方法 (as general method) ， 44~48 
通用 型 (generic), 113, 116 
高 阶 (higher-order), 2 高 阶 过 程 (higher-order proc- 
edure ) 
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体内 隐 含 的 begin (implicit begin in body of), ¥ 
12131 
与 数学 函数 (mathematical function vs.), 13~14 
记忆 性 (memoized ) , 4% 33.27 
带 监 视 的 (monitored), # 33.2 
名 字 (name of), 8 
命名 (用 define) (naming (with define)), 8 
作为 局 部 求 值 过 程 的 模式 (as pattern for local evolu- 
tion of a process), 20 
作为 返回 值 (as returned value), 48~52 
返回 多 个 值 (returning multiple values), #;4289 
形式 参数 的 作用 域 (scope of formal parameters), 19 
与 特殊 形式 (special form vs. ) % 34.26, 284 
过 程 抽象 (procedural abstraction ) , 17 
过 程 的 局 部 演化 (local evolution of a process), 20 
过 程 体 (body of a procedure ) 8 
过 程 应 用 (procedure application ) 
组 合式 的 表示 (combination denoting), 4 
的 环境 模型 (environment model of), 165~167 
代 换 模型 (substitution model of ) ， 见 过 程 应 用 的 代 换 
模型 (substitution model of procedure application ) 
过 程 应 用 的 代 换 模型 (substitution model of procedure 
application), 9~11, 162 
不 合适 (inadequacy of), 157~158 
计算 过 程 的 形状 (shape of process), 21~23 
过 零点 ,信号 (zero crossings of a signal), 493.74, 
练习 3.75， 练 习 3.70 
过 滤器 (filter), 4371.33, 77 


函数 (数学 的 ) (function (mathematical) ) 


>it (notation for), ， 脚 注 58 
Pays (Ackermann’s), # 571.10 
复合 (composition of), # 371.42 
的 导数 (derivative of ) 49 
的 不 动 点 (fixed point of), 45~47 
过 程 与 (procedure vs.), 13~14 
有 理 数 (rational), 144~147 
的 反复 应 用 (repeated application of), ， 练 习 1.43 
的 平滑 (smoothing of), 练习 1.44 
函数 的 导数 (derivative of a function ) ，49 
函数 的 复合 (composition of functions), ， 练 习 1.42 
函数 式 程 序 设 计 (functional programming) , 157, 
245~248 
并 发 和 (concurrency and) , 247 
函数 式 程 序 设计 语言 (functional programming lang- 
uages ) ，247 
时 间 和 (time and), 246~248 
合 一 (unification), 318~319 
算法 的 发 现 (discovery of algorithm), ， 牌 注 202 
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实现 (implementation ) 331~332 
与 模式 匹配 (pattern matching vs.), 319, W277 
盒子 和 指针 表示 方式 (box-and-pointer notation ) 65 
表 尾 标记 (end-of-list marker), Hiz74, Meiz76 
ahr 立 特 (Heraclitus), 149 
黑箱 (black box), 17 
红 黑 树 (red-black tree), Miz 106 
£ (macro )， 脚 注 217 ， 另 见 读 入 器 宏 字 符 (reader macro 
character ) 
互 斥 (mutual exclusion), Mp 7z172 
互 斥 元 (mutex), 216 
互 素 (relatively prime ) ， 练 习 1.33 
化 简 代 数 表 达 式 (simplification of algebraic expressions ) , 
101 
画家 (painter), 86 
高 阶 操作 (higher-order operations ), 90 
操作 (operations), 88 
表示 为 过 程 (represented as procedures ) 93 
变换 和 组 合 (transforming and combining) , 94 
环境 (environment), 5, 162 
编译 时 (compile-time ) ， 见 编译 时 环境 (compile-time 
environment ) 
作为 求 值 的 上 下 文 (as context for evaluation ) 6 
rR (enclosing), 162 
全 局 的 (global ) ， 见 全 局 环境 (global environment ) 
词法 作用 域 和 (lexical scoping and), W i427 
查询 解释 器 里 (in query interpreter)， 练 习 4.79 
重 命名 和 (renaming vs.), # 94.79 
缓存 一 致 性 规程 (cache-coherence protocols) ， 脚 注 164 
黄金 分 害 (golden ratio), 25 
作为 连 分 数 (as continued fraction) ， 练 习 1.37 
作为 不 动 点 (as fixed point) ， 练 习 1.35 
回潮 (backtracking), ，289 ， 另 见 非 确 定性 计算 (nonde- 
terministic computing ) 
汇编 程序 (assembler), 360, 364~366 
活动 体 (mobile), # 92.29 
或 门 (or-gate), 189 
or-gate, #533.28, #33.29 
获取 互 斥 元 (acquire a mutex), 216 
机 器 语言 (machine language), 397 
与 高 级 语言 (high-level language vs.), 249 
积分 (integral ) ， 另 见 定 积 分 (definite integral) , 蒙特 
卡 罗 积 分 (Monte Carlo integration) ， 练 习 3.59 
RB (of a power series ) 
积分 器 ， 信 和 号 的 (integrator, for signals), 239 
基本 表达 形式 (primitive expression), 3 
求 值 (evaluation of), 6 
基本 过 程 名 (name of primitive procedure), 3 





变量 名 (name of variable), 5 
% (number), 3 
基本 查询 (primitive query) ， 见 简单 查询 (simple query ) 
基本 过 程 (标记 ns 的 不 属于 IEEE Scheme 标准 ) 


(Primitive procedures ) 


>, il 

apply, #34113 

atan, #72110 

car, 57 

cdr, 57 

cons, 57 

cos, 46 

display, My ;z70 

eq?, 98 

error (ns), 脚注 56 

eval (ns), 268 | 

list, 66 

log, #3 1.36 

max, 63 

min, 63 

newline, M370 

not, /2 

null?, 68 

number?, 100 

pair?, 73 

quotient, # 33.58 

random (ns), 34, iz136 

read, #1222 

remainder , 30 

round, Miz119 

runtime (ns), 练习 1.22 

set-car!, 173 

set-cdr!, 173 

sin, 46 

symbol?, 100 

vector-ref , 374 

vector-set! , 374 
基本 过 程 的 开放 代码 (open coding of primitives), #9 

5.38 ， 练 习 5.44 

基本 约束 (primitive constraints ), 198 
级 联 进位 加 法 器 (ripple-carry adder), #% 9 3.30 
级 数 ， 求 和 (series, summation of), 38 


-42 P 


芝 近 的 加 速 序列 (accelerating sequence of approxi- 追踪 (tracing ) ， 练 习 5.18 


mations), 234 寄存 器 (被 修改 的 ) (modified registers), @ 指令 序列 
流 (with streams), 233 (instruction Sequence ) 
集成 电路 实现 ，Scheme (integrated-circuit implemen- Bee RAD, MHS (register table, in simulator), 362 
tation of Scheme) , 383, 5-16 寄存 器 机 器 (register machine), 343 


集合 (set), 103 
数据 库 作为 (data base as), 109 
的 操作 (operations on), 103 
的 排列 (permutations of ) 83 
表示 为 二 叉 树 (represented as binary tree), 105~108 
表示 为 排序 表 (represented as ordered list), 104~105 


动作 (actions), 348 

控制 器 《controller) , 344 

控制 器 图 (controller diagram) , 345 
数据 通路 (data paths), 344 


数据 通路 图 (data-path diagram), 344 
设计 (design of), 344~359 





表示 为 无 序 表 (represented as unordered list), 检测 操作 ，344 . 
102~103 描述 语言 (language for describing ), 345~348 
子 集 (Subsets of), $ 32.32 监视 执行 (monitoring performance ) 372~373 
集合 的 Subsets (of a set) ， 练 习 2.32 模拟 器 (simulator) , 359~373 
集合 的 排列 (permutations of a set), 83 HERE (stack), 354~358 
permutations, 84 子 程序 (subroutine), 351~354 
集合 的 表示 ，103~109 检测 操作 (test operation), 344 
集合 作为 未 排序 的 表 (unordered-list representation of 寄存 器 机 器 上 的 Initialize-stack 哥 作 (operation in 
sets), 103~104 register machine), 361 , 371 
集合 作为 排序 的 表 (ordered-list representation of sets ), 寄存 器 机 器 语言 (register-machine language ) 
104~105 | assign, 347, 359 
计算 过 程 ， 进 程 (process), 1 branch, 346, 359 
yRARAY (iterative), 22 const, 347, 358, 359 
Se PETE ERI ( linear iterative), 22 AF (entry point), 346 
线性 递归 的 (linear recursive), 22 goto, 346, 359- 
的 局 部 演化 (local evolution of ), 20 指令 (instructions), 346, 358 
增长 的 阶 (order of growth of ) 28 标号 (label), 346 
递归 的 (recursive), 22 label, 346, 359 


所 需 资 源 (resources required by) , 28 op, 347, 359 
的 形状 (shape of ) 22 perform, 348, 359 
树 形 递归 的 (tree-recursive), 24~27 reg, 347, 358 
计算 机 科学 (computer science), W 14223, 250 restore, 355, 359 
与 数学 (mathematics vs.), 14, 304~305 save, 355, 359 
计算 器 ， 不 动 点 (calculator, fixed points with), #yiz57 test, 346, 359 
记录 ， 在 数据 库 里 (record, ina database), 109 加 法 器 (adder) 
记忆 ， (memoization), Biz34, 393.27 ` 全 (full), 190 
和 按 需 调用 (call-by-need and), yp {z192 半 (half), 189 
用 delay , 225 级 联 进位 (ripple-carry ), % 373.30 


和 废料 收集 (garbage collection and), #iz241 加 入 符号 (interning symbols), 376 
模 的 (of thunks), 278 加 州 大 学 伯克利 分 校 (University of California at Berkeley ) , 
继续 (continuation ) | 脚注 2 
非 确 定性 求 值 器 里 (in nondeterministic evaluator) ， 假 (false), 317 
296-297 ， 另 见 失 败 继续 ， 成 功 继续 假 言 推理 (modus ponens ) ， 脚 注 279 


寄存 器 机 器 模拟 器 里 (in register-machine simulator ), 检测 零 (通用 型 ) (zero test (generic) ) ， 练 习 2.80 
脚注 289 | 对 多 项 式 (for polynomials), # 92.87 


寄存 器 (register), 343 简单 查询 (simple query), 308~309 
表示 (representing), 361 处 理 (processing) , 316, 320, 326 
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@ (modeling ) 
作为 一 种 设计 策略 (as a design strategy), 149 
在 科学 与 工程 里 (in science and engineering), 10 
键 值 (key ) | 
数据 库 里 (in a data base), 109 
表格 里 (ina table), 183 
检测 相等 (testing equality of), # 33.24 
将 Scheme 编译 到 (compiling Scheme into), # 35.52 
错误 处 理 (error handling), #eiz317, 9¢iz337 
递归 过 程 (recursive procedures), 23 
对 复合 数据 的 限制 (restrictions on compound data), 
脚注 73 
写 出 的 Scheme 解释 器 (Scheme interpreter written in), 
4 55.51, %3 5.52 
将 输入 表达 式 分 类 (typing input expressions), #piz6 
阶乘 (factorial), 21, 4 Rfactorial | 
无 穷 流 (infinite stream), 练习 3.54 
用 (with) letrec, # 34.20 
不 用 (without) letrecm#define, $% 34.21 
阶 的 记 法 (order notation), 28 
结 点 ， 树 (node of a tree), 6 
截断 误差 (truncation error), Miz4 
解释 器 (interpreter), 2, 3 M kig% (evaluator ) 
与 编译 器 (compiler vs.), 397~398 , 428 
读 入 一 求 值 -打印 循环 (read-eval-print loop), 5 
金星 (Venus), #298 
紧缩 型 废料 收集 器 (compacting garbage collector), $% 
注 300 
局 部 恋 量 (local variable), 42~44 
局 部 名 (local name), 18~19 
局 部 状态 (local state), 149~162 
在 框架 里 维护 (maintained in frames), 167~171 
局 部 状态 恋 量 (local state variable), 150~154 
姑 形 的 表示 (rectangle, representing), ， 练 习 2.3 
st, FJI (matrix, represented as sequence), 
练习 2.37 
具体 数据 表示 (concrete data representation ) 55 
绝对 值 (absolute value), 11 
卡尔 ， 阿 尔 芬 斯 (Karr, Alphonse), 149 
F ëh (Kepler, Johannes), 343 
可 计算 性 (computability), #34223, W;4227 
可 加 性 (additivity), 122~127, 130 
空 表 (empty list), 67 
FA’O 表示 (denoted as ’()), 97 
用 nul1? 辨 别 (recognizing with null?) , 68 
控制 结构 (control structure), 321 
跨 类 型 操作 (cross-type operations), 132 
块 结构 (block structure), 20 


环境 模型 里 (in environment model), 170 
查询 语言 里 (in query language )， 练 习 4.79 
框架 (查询 解释 器 ) (frame (query interpreter)), 315, 3 
见 模式 匹配 (pattem matching) , 4— (unification ) 
表示 (representation), 338 | 
框架 (环境 模型 ) (frame (environment model ) ) 162 
作为 局 部 状态 的 展台 (as repository of local state) , 
167~170 
全 局 (global), 162 
框架 (图 形 语 言 ) (frame (picture language)) , 86, 91 
坐标 映射 (coordinate map), 91 
框架 堆栈 方式 (framed-stack discipline), By i306 
扩散 的 模拟 (diffusion, simulation of ) 210 
括号 (parentheses) 
界定 组 合式 (delimiting combination), 4 
界定 cond 子 句 (delimiting cond clauses), 12 
在 过 程 定 义 里 (in procedure definition), 8 
拉 格 朗 日 插值 公式 (Lagrange interpolation formula) ， 
脚注 121 
Ale WR (Leibniz, Baron Gottfried Wilhelm von ) 
费 马 小 定理 的 证 明 (proof of Fermat’s Little Theorem) , 
脚注 45 
TT 的 级 数 (series forz), W49, 233 
莱 因 德 纸 草 书 (Rhind Papyrus), ， 牌 注 40 
类 型 (type ) 
跨 类 型 操作 (cross-type operations), 132 
基于 类 型 分 派 (dispatching on), 122 
符号 代数 的 类 型 层次 结构 (hierarchy in symbolic 
algebra), 143 
的 层次 结构 (hierarchy of), 143~144 
下 降 (lowering), 135, #32.85° 
多 个 子 类 型 和 超 类 型 (multiple subtype and supertype) , 
136 
提升 (raising)，135 ， 练 习 2.83 
子 类 型 (subtype), 135 
超 类 型 (supertype), 135 
H (tower of ) ， 图 2-25 
类 型 标志 (type tag), 116, 119 
FAH (two-level), 131 
类 型 的 层次 结构 (hierarchy of types), 134~138 
在 符号 代数 里 (in symbolic algebra), 143~144 
不 合适 (inadequacy of), 135 
类 型 塔 (tower of types), 2-25 
类 型 推导 机 制 (type-inferencing mechanism), ， 脚注 200 
类 型 域 (type field), Miz292 ` 
累积 器 (accumulator ) ，77 ， 练 习 3.1 
立方 根 (cube root ) 
作为 不 动 点 (as fixed point), 49 
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用 牛顿 法 (by Newton’s method), #31.8 
粒子 的 世界 线 (world line of a particle), Beiz180, W 
注 201 
连 分 式 (continued fraction) ， 练 习 1.37 
e 作 为 (as )， 练 习 1.38 
黄金 分 割 作为 (golden ratio as), ， 练 习 1.37 
正切 作为 (tangent as ) ， 练 习 1.39 
连接 描述 符 (linkage descriptor), 400 
连接 符 , 在 约束 系统 里 (connector , in constraint system ), 
198 
操作 (operations on), 200 
表示 (representing), 203 
连 线 ， 在 数字 电路 里 (wire, in digital circuit), 189 
连续 求 平方 (successive squaring), 30 
量子 力学 (quantum mechanics), By iz204 
i (stream), 149 
FUER {A (delayed evaluation and), 241~244 
2 (empty), 222 
实现 为 延 时 的 表 (implemented as delayed lists), 220 
~222 
实现 为 惰性 表 (implemented as lazy lists), 284~285 
陷 式 定义 (implicit definition), 228~230 
无 穷 (infinite), RCA (infinite streams ) 
用 于 查询 解释 器 (used in query interpreter), 315, # 
注 278 
流水 线 (pipelining), #12162 
逻辑 程序 设计 (logic programming ) ，304~306 ， 另 见 查 询 
语言 (query language) , 查询 解释 器 (query inter- 
preter ) 
计算 机 (computers for), By jz265 
的 历史 (history of )， 牌 注 262， 和 脚注 265 
逻辑 程序 设计 语言 (logic programming languages), 306 
与 数理 逻辑 (mathematical logic vs.), 320~324 
逻辑 或 (logical or), 189 
逻辑 谜 题 (logic puzzles), 290~291 
逻辑 与 (logical and), 189 
马赛 大 学 (University of Marseille), Miz262 
满足 一 个 复合 查询 (satisfy a compound query ), 310 
满足 一 个 模式 (简单 查询 ) (satisfy a pattern (simple 
query ) ) ， 309 
忙 等 待 (busy-waiting) ， 脚 注 173 
Ret (enumerator), 77 
美观 打印 (pretty-printing), 4 
蒙特 卡 罗 积 分 (Monte Carlo integration), # 93.5 
流 形式 (stream formulation), 2% 3 3.82 
蒙特 卡 罗 模 拟 (Monte Carlo simulation), 155 
流 形式 (stream formulation), 245 


ik Bl (puzzles ) 


八 皇 后 谜 题 (eight-queens puzzle), 2532.42, 94.44 
i eR i Bi (logic puzzles), 290~292 | 
密码 保护 的 账户 (password-protected bank account), $% 
33.3 
密码 学 (cryptography ), i247 
HH, EAF] (power series, as stream), 练习 3.59 
加 (adding), 2% 33.60 
除 (dividing), 4 573.62 
积分 (integrating), 93.59 
3 (multiplying), # 573.60 
面向 对 象 的 程序 设计 语言 (object-oriented programming 
languages), #2118 
名 字 (name )， 另 见 局 部 名 字 (local name) , 变量 (var- 
iable ) ， 局 部 变量 (local variable ) 
封装 的 (encapsulated), Me iz. 132 
形式 参数 的 (of a formal parameter), 18 
过 程 的 (of a procedure) , 7 
AFERE (exclamation point in names), #12130 
命令 式 程 序 设计 (imperative programming ), 160 
命令 式 风 格 (imperative programming style), #72161 
命令 式 与 说 明 式 语言 (imperative vs. declarative know- 
ledge), 14, 304 
逻辑 程序 设计 和 (logic programming and), 305~306, 
321 
非 确定 性 计算 和 (nondeterministic computing and ), 
脚注 246 
命名 (naming ) 
计算 对 象 的 (of computational objects), 4 
过 程 的 (of procedures), 7 
命名 Let (特殊 形式 ，special form), % 34.8 
命名 约定 (naming conventions ) 
! 用 于 峰值 的 修改 (for assignment and mutation), Æ 
注 130 
? 用 于 谓词 (for predicates)， 和 脚注 22 
模 (modulo n), 34 
模 n 的 余数 (remainder modulo n) , 34 
模 i 同 余 (congruent modulo n), 34 
模块 化 (modularity), 79, 149 
沿 着 对 象 边 界 (along object boundaries), Miz 144 
函数 式 程 序 与 对 象 (functional programs vs. objects ),. 
245~248 
隐藏 原理 (hiding principle), #72132 
和 流 (streams and) , 232 
通过 基 于 类 型 的 分 派 (through dispatching on type), 
122 
通过 无 穷 流 (through infinite streams), 246 
通过 为 对 象 建 模 (through modeling with objects ), 
154 
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模拟 (simulation) 
电子 线路 (of digital circuit) ， 见 数字 电路 模拟 (digital- 
circuit simulation ) 
事件 驱动 的 (event-driven), 188 
作为 机 器 设计 的 工具 (as machine-design tool), 395 
监视 寄存 器 机 器 的 执行 (for monitoring performance 
of register machine ), 372 


”蒙特 卡 罗 (Monte Cario ) ， 见 蒙特 卡 罗 模 要 (Monte 


Carlo simulation ) 


寄存 器 机 器 (of register machine), Rar 器 机 器 模 


fi. (register-machine simulator) 
模拟 计算 机 (analog computer), 3-34 
模式 (pattern) , 308~309 
模式 变量 (pattern variable), 308 
表示 (representation of), 325, 336~338 
模式 匹配 (pattern matching), 328 
实现 (implementation ) 328~329 
与 合 一 (unification vs.) ，319， 和 脚注 277 
MAI (magician )， 见 数值 分 析 专 家 (numerical analyst ) 
莫 尔 斯 码 (Morse code), 110 
目标 代码 (object program )，400 
目标 寄存 器 (target register) ，400 
内 部 定义 (internal definition) ，19~20 
环境 模 型 里 (in environment model), 171~172 
的 自由 变量 (free variable in), 20 
let, 44 
非 确定 性 求 值 器 里 (in nondeterministic evaluator ), 
脚注 261 
的 位 置 (position of) ， 和 脚注 28 
的 限制 (restrictions on), 269 
扫描 出 (scanning out), 269 
名 字 的 作用 域 (scope of name), 269~270 
牛顿 法 【Newton ethod ) 
用 于 立方 根 (for cube roots) ， 练 习 1.8 
用 于 微分 方程 (for differentiable functions), 49 
与 折 半 法 (half-interval method vs.) ， 脚 注 62 
用 于 平方 根 (for square roots) ，14~16，49 50 
拟 引 号 (quasiquote), #i#321 
欧 儿 里 得 的 《几何 原理 》(Euclid's Elements), We iz.42 
欧 儿 里 得 环 (Euclidean ring), # jz 126 
欧 几 里 得 算法 (Euclid’s Algorithm), 32, 344 
欧 几 里 得 有 关 素数 无 穷 多 的 证 明 (Eucjid s proof of infinite 
number of primes ) ， 脚 注 191 
欧 拉 (Euler, Leonhard), # 31.38 
有 关 费 马 小 定理 的 证 明 (proof of Fermat’s Little The- 
orem), #345 
序列 加 速 器 (series accelerator), 233 
帕斯卡 (Pascal, Blaise), 脚注 35 
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帕斯卡 三 角形 (Pascal’s triangle), $31.12 
排除 错误 (debug), 1 
平方 根 (square root), 14~15, 4% sqrt 
Sk (stream of approximations ), 232 
平衡 的 活动 体 (balanced mobile), # 92.29 
© p (balanced binary tree), 3 R — Mew (binary 
tree ) 
平滑 一 个 国 数 (smoothing a function), # 3 1.44 
平滑 一 个 信忠 (smoothing a signal), 练习 3.75 ， 练 习 
3.76 
平均 阻尼 (average damping), 47, #3 1.36 
屏障 同步 (barrier synchronization), {£177 
破碎 的 心 (broken heart), 380 
启明 星 (morning star), 24H (Venus) 
前 向 指针 (forwarding address) , 380 
前 组 表示 prefix notation), 4 
与 中 组 表示 (infix notation vs.), # 92.58 
前 组 码 (prefix code), 110 
人 嵌入 的 语言 ， 语 言 设 计 用 (embedded language, language 
design using) , 276 
EEEN (nested definitions), RAB XM (internal 
definition ) 
fi Eph Gt (nested mappings), ， 见 映射 (mapping) 
B£, “24x (nested combinations), 4 
强健 (robustness), 96 
强 类 型 语言 (strongly typed language), # 7% 200 
强迫 (force), 278 
强制 (coercion), 133~134 
在 代数 操作 里 (in algebraic manipulation) , 144 
在 多 项 式 算 术 里 (in polynomial arithmetic), 141 
过 程 (procedure), 133 
表格 (table), 133 
丘 奇 (Church, Alonzo), Miz53, $% 32.6 
丘 奇数 (Church numerals), # 92.6 
丘 奇 一 图 灵 论 题 (Church-Turing thesis), My j#223 
求 导 (differentiation ) 
数值 的 (numerical), 49 
规则 (rules for), 99, #2 32.56 
符号 的 (symbolic), 99~102, # 32.73 
求 和 的 8 记 法 (sum (sigma) notation), 38 
求解 方程 (solving equation )， 见 折 半 法 (half-interval ` 
method) , 牛顿 法 (Newton’s method) , solve 
求 值 (evaluation ) 
应 用 序 (applicative-order), ， 见 应 用 序 求 值 (applicative- 
order evaluation ) 
延 时 (delayed)， 见 延 时 求 值 (delayed evaluation ) 
的 环境 模型 (environment model of), ， 见 求 值 的 环境 


模型 (environment mode! of evaluation ) 
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模型 (models of), 393 
正则 序 (normal-order )， 见 正则 序 求 值 (normal-order 
evaluation ) 
组 合式 的 (of a combination), 6~7 
and 的 (ofand), 13 
cond 的 (of cond), /2 
iffy (of if), 12 
or 的 (ofor), 12 
基本 表达 式 的 (of primitive expressions), 6 
”特殊 形式 的 (of special forms), 7 
子 表达 式 的 求 值 顺 序 {order of subexpression evaluation ) , 
见 求 值 顺 序 (order of evaluation ) 
的 代 换 模型 (substitution model of ) ， 见 过 程 应 用 的 代 
换 模型 (substitution model of procedure application ) 
求 值 的 环境 模型 (environment model of evaluation) ， 
149, 162~172 
环境 结构 (environment structure), 3-1 
内 部 定义 (internal definitions), 171~172 
局 部 变量 (local state), 167~170 
消息 传递 (message passing), # 33.11 
元 循环 求 值 器 和 (metacircular evaluator and) , 251 
过 程 应 用 实例 (procedure-application example), 164 
~167 
求 值 规则 (rules for evaluation ) 163~164 
尾 递 归 和 (tail recursion and), Be 7%142 
求 值 模型 (models of evaluation ) 393 
求 值 器 (evaluator), 250, 5 RFE (interpreter), 元 
循环 求 值 器 (metacircular evaluator) ， 分 析 型 求 值 器 
(analyzing evaluator) ， 情 性 求 值 器 (lazy evaluator) , 
非 确定 性 求 值 器 (nondet-erministic evaluator) , 774) 
求 值 器 (query interpreter) ， 显 式 控制 求 值 器 (explicit- 
control evaluator ) 
作为 抽象 机 器 (as abstract machine), 267 
元 循环 (metacircular) , 251 
作为 通用 机 器 (as universal machine ), 268 
派生 表达 式 (derived expressions), 258~259 
加 入 显 式 控制 成 值 器 (adding to explicit-control evaluator ) , 
练习 5.23 
求 值 顺序 (order of evaluation ) 
和 峰值 (assignment and) ， 练 习 3.8 
依赖 实现 (amplementation-dependent), 74140 
编译 器 里 (in compiler), # 35.36 
显 式 控 制 求 值 器 里 (in explicit-control evaluator) ， 
388 
元 循环 求 值 器 里 (in metacircular evaluator ) ， 练 习 4.1 
Scheme 里 ， 练 习 3.8 
区 间 的 宽度 (width of an interval ) ， 练 习 2.9 
区 间 算 术 (interval arithmetic), 62~65 


驱动 循环 (driver loop) 
显 式 控 制 求 值 器 里 (in explicit-control evaluator ) ， 
392 
情 性 求 值 器 里 (in lazy evaluator), 280 
元 循环 求 值 器 里 (in metacircular evaluator), 265 
非 确 定性 求 值 器 里 (in nondeterministic evaluator ) ， 
289, 301 
查询 解释 器 里 (in query interpreter), 302, 324 
全 加 器 (full-adder), 190 
full-adder, 190 
全 局 环境 (global environment), 6, 162 
元 循环 求 值 器 里 (in metacircular evaluator), 264 
全 局 框架 (global frame), 162 
Eh (worm), ， 牌 注 337 
三 角 关 系 (trigonometric relations) , 119 
扫描 出 内 部 定义 (scanning out internal definitions), 270 
在 编译 器 里 (in compiler), #12331, %* 95.43 
ZAIR Æ (roundoff error), #324, He:z 109 
深度 优先 搜索 (depth-first search), 289 
深入 的 认识 (consciousness expransion of) ， 脚 注 210 
深 约束 (deep binding )， 有 和 脚注 219 
其 高 级 语言 (very high-level language), #iz20 
生成 句子 (generating sentences), 练习 4.49 
失败 ， 在 非 确 定性 计算 中 (failure, in nondeterministic 
computation ) ，288 
错误 与 (bug vs.), 298 
搜索 和 (searching and), 288 
失败 继续 ， 非 确定 性 求 值 器 (failure continuation , non- 
deterministic evaluator), 296, 297 
由 amb 构造 的 (constructed by amb), 301 
由 赋值 构造 和 的 (constructed by assignment), 300 
由 驱动 循环 构造 的 (constructed by driver loop), 301 
时 间 (time) 
和 赋值 (assignment and), 206 
和 通信 (communication and), 219 
并 发 系统 里 (in concurrent systems ), 207~210 
和 和 函数 式 程序 设计 (functional programming and ), 
246~248 
非 确 定性 计算 里 (in nondeterministic computing ), 
286~288 
的 用 途 (purpose of), Miz 162 
时 间 段 ， 在 待 处 理 表 里 (time segment, in agenda), 196 
时 间 片 (time slicing ), 218 
时 序 图 (timing diagram), 3-29 
实际 参数 ， 实 参 (argument), 4 
任意 个 数 (arbitrary number of), ，4 ， 练 习 2.20 
延 时 的 (delayed), 242 
实例 化 一 个 模式 (instantiate a pattern), 309 
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实数 (real number), #iz4 
实现 依赖 性 (implementation dependencies), 3 A 未 规 
定 的 值 (unspecified values ) 
% (numbers), ye iz23 
子 表 达 式 求 值 的 顺序 {order of subexpression evaluation ) , 
脚注 140 
事件 的 顺序 (order of events) 
与 实际 出 现 松弛 关系 (decoupling apparent from actual), 
224 
并 发 系统 里 的 不 确定 性 (indeterminacy in concurrent 
systems ) 207 
事件 驱动 的 模拟 (event-driven simulation), 188 
释放 互 斥 元 (release a mutex), 216 
树 (tree) 
Bey (tree )， 和 脚注 106 
ZX (binary ) ， 另 见 二 叉 树 (binary tree) 
将 组 合式 看 作 (combination viewed as), 6 
叶 统 计 (counting leaves of), 72 
Hika (enumerating leaves of ), 78 
的 边缘 (fringe of), # 392.28 
Huffman, 110 
情 性 (lazy), #4245 
映射 (mapping over), 75~76 
红 黑 (red-black), Miz 106 
表示 为 序 对 (represented as pairs), 72~75 
遍历 所 有 树叶 (reversing at all levels), 4: 92.27 
树 的 终端 结 点 (terminal node of a tree), 6 
树 形 递 归 计 算 过 程 (tree-recursive process), 24~27 
增长 的 阶 (order of growth), 28 
树 形 积累 (tree accumulation ) 6 
数 (number) 
的 比较 (comparison of), 12 
小 数 点 (decimal point in), Be jz23 
相等 (equality of), 12, Biz102, Briz294 
在 通用 算术 系统 里 (in generic arithmetic system), 
129 
实现 依赖 性 (implementation dependencies ) ， 脚 注 23 
整数 与 实数 (integer vs. real number), By jz4 
整数 ， 准 确 (integer, exact), Bpiz23 
Lisp 里 ，3 | 
有 理 数 (rational number), 3423 
数据 (data), 1, 3 
抽象 (abstract), 55, 3 BRS (data abstraction ) 
的 抽象 模型 (abstract models for), #7271 
的 代数 描述 (algebraic specification for), Byjz71 
复合 (compound), 53~54 
的 具体 表示 (concrete representation of) , 55 
有 层次 性 (hierarchical), 66, 72-74 


表 结 构 (list-structured) , 57 
的 意义 (meaning of), 60~62 
变动 (mutable )， 见 变动 性 数据 对 象 (mutable data 
objects ) 
数值 (numerical), 3 | 
的 过 程 表 示 (procedural representation of), 61~62 
作为 程序 (as program), 266~268 
共享 (shared), 177~179 
符号 (symbolic), 96 
带 标 志 (tagged), 119~122, #y;ż292 
数据 抽象 (data abstraction), 54, 55, 115, 118, 255, 
另 见 元 循环 求 值 器 (metacircular evaluator ) 
队列 的 (for queue), 180 
数据 导向 的 程序 设计 (data-directed programming), 116, 
122~127 
分 情况 分 析 与 (case analysis vs. ) ， 253 
在 元 循环 求 值 器 里 (in metacircular evaluator), 353 
在 查询 解释 器 里 (in query interpreter ) ， 练 习 4.3 
数据 导向 的 递归 (data-directed recursion), 141 
数据 的 抽象 模型 (abstract models for data) ， 和 脚注 71 
数据 的 代数 规范 (algebraic specification for data)， 脚 注 
5 
数据 的 过 程 表 示 (procedural representation of data), 
61~62 
变动 数据 (mutable data), 179 
数据 库 (data base ) 
数据 导向 的 程序 设计 和 (data-directed programming 
and), # 392.74 
#5| (indexing), #2271, 333 
Insatiable Enterprises AW (personnel), 练习 2.74 
逻辑 程序 设计 和 (logic programming and), 306 
Microshaft 人 事 (personnel), 306~308 
作为 记录 集合 (as set of records), 109 - 
数据 类 型 (data types ) , 
Lisp 里 的 ， 练 习 2.78 7 
强 类 型 语言 里 的 (in strongly typed languages), A iż 
220 | 
数 里 的 小 数 点 (decimal point in numbers), By 7% 23 
数论 (number theory ) ， 和 标注 45 
数学 (mathematics ) 
与 计算 机 科学 (computer science vs.) , 14, 305 
与 工程 (engineering vs.), ， 脚 注 47 
数学 函数 (mathematical function )， 见 国 数 {数学 ) 
(function (mathematical ) ) 
数值 分 析 (numerical analysis), Ay iz4 
数值 分 析 专 家 (numerical analyst), #55 


数值 积分 的 辛普森 规则 (Simpson’s Rule for numerical 
integration ) ， 练 习 1.29 
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数值 数据 (numerical data), 3 
数字 电路 模拟 (digital-circuit simulation) ，188~197 
待 处 理 表 (agenda), 193~194 
待 处 理 表 实现 (agenda implementation), 195~197 
EA KH RHE (primitive function boxes), 191~192 
表示 连 线 (representing wires), 192~193 
样 例 模拟 (sample simulation), 194~195 
数字 信和 号 (digital signal), 189 
双 端 队列 (deque), A 93.23 
说 明 性 与 行动 性 知识 (declarative vs. imperative knowledge ) , 
14, 304 
逻辑 程序 设计 和 (logic programming and), 306 
非 确定 性 计算 和 (nondeterministic computing and) , 
脚注 246 
死 锁 (deadlock ) 218~219 
避免 (avoidance), 218 
发 现 (recovery), #iz176 
四 次 方 根 ， 作 为 不 动 点 (fourth root, as fixed point), % 
241.45 
搜索 (search ) 
二 叉 树 (of binary tree), 105 
CE RE (K 4 (depth-first), 289 
系统 化 (systematic), 288 
素数 (prime number), 33~37 
和 密码 学 (cryptography and), #3448 
的 厄 拉 BHR (Eratosthenes’s sieve for), 227 
的 费 马 检验 (Fermat test for), 34~35 
的 无 穷 序 列 (infinite stream of), primes 
的 Miller-Rabin 检验 (test for)， 练 习 1.28 
的 检验 (testing for), 33~37 
素数 的 费 马 检查 (Fermat test for primality ), 33~37 
变形 (variant of), % 71.28 
算法 (algorithm ) 
最 优 的 (optimal), #82 
概率 的 (probabilistic), 34~35, Hy iz 128 
算术 (arithmetic ) 
地 址 算术 (address arithmetic) , 374 
通用 型 (generic) ，127 ， 另 见 通用 型 算术 操作 (generic 
arithmetic operations ) 
复数 (on complex numbers), 116 
区 间 (on intervals), 62~65 
多 项 式 (on polynomials )， 见 多 项 式 算术 (polynomial 
arithmetic ) 
AR (on power series), % 33.60, $k 33.62 
有 理 数 (on rational numbers), 55~58 
基本 过 程 (primitive procedures for), 4 
随机 数 生 成 器 (random-number generator), Miz129, 
154 


用 于 蒙特 卡 罗 模 拟 (in Monte Carlo simulation), 155 
用 于 素数 检验 (in primality testing), #7245 
带 重 置 (with reset )， 练 习 3.6 
带 重 置 ， 流 版 本 (with reset, stream version), 练习 
3.81 
所 需 寄存 器 (needed registers) ， 见 指令 序列 (instruction 
Sequence ) 
特殊 形式 (Special form), 7 
求 值 器 里 的 派生 表达 式 (as derived expression in eva- 
luator ), 258 
需要 (need for)， 练 习 1.6 
与 过 程 (procedure vs. ) ， 练 习 4.26 ，284 
特殊 形式 (其 中 标 ns 的 不 属于 EEE 标 准 Scheme ) 
and, 13 
begin, 151 
cond, 1 
cons-stream (ns), 223 
define, 5, 8 
delay (ns), 222 
if, 13 
lambda, 4/ 
let, 43 
let*, 练习 4.7 
letrec， 练 习 4.20 
命名 的 (named) let ， 练 习 4.8 
or, 13 
quote, #32100 
set! , 15] 
提示 (prompts), 265 
显 式 控制 求 值 器 (explicit-control evaluator) , 393 
情 性 求 值 器 (lazy evaluator), 280 
元 循环 求 值 器 (metacircular evaluator), 265 
非 确定 性 求 值 器 (nondeterministic evaluator), 302 
查询 解释 器 (query interpreter), 324 
条 件 表达 式 (conditional expression ) 
cond, J 
if, 12 
停机 定理 (Halting Theorem), $3227 
停机 问题 (halting problem), # 34.15 
停止 并 复制 废料 收集 器 (stop-and-copy garbage collector) , 
379~383 
通用 机 器 (universal machine), 268 
晶 式 控制 求 值 器 作为 (explicit-control evaluator as), 
397 
通用 计算 机 作为 (general-purpose computer as), 397 
通用 计算 机 ， 作 为 通用 机 器 (general-purpose computer, 


as universal machine), 397 
通用 型 操作 (generic operation), 55 
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通用 型 过 程 (generic procedure), 113, 116 
通用 型 选择 函数 (generic selector), 121, 122 
通用 型 算术 操作 (generic arithmetic operations) ，129~ 
132 
系统 的 结构 (structure of system ) ， 图 2-23 
同步 (synchronization), RF% (concurrency ) 
同一 和 变化 (sameness and change ) 
的 意义 (meaning of), 159~160 
和 共享 数据 (shared data and), 177 
透明 性 ， 引 用 (transparency, referential), 159 
AR (Turing, Alan M. ) A¥iz223 
图 灵机 (Turing machine), $ ;4223 
图 形 学 (graphics ) ， 见 图 形 语言 (picture language) 
图 形 语言 (picture language), 86~96 
推理 的 方法 (inference, method of), 321 
推迟 进行 的 操作 (deferred operations) , 22 
推论 部 分 (consequent) 
cond 子 名 的 (of cond clause), 11 
iffy, 12 
完全 理性 的 狗 ， 牌 注 175 
外 围 环境 (enciosing environment) ，162 
微分 方程 (differential equation), 241, 另 见 solve 
= (second-order), # 33.78, %3 3.79 
kz, BRAK (pseudodivision of polynomials), 146 
伪 余 ， 多 项 式 (pseudoremainder of polynomials), 146 
伪 随 机 序列 (pseudo-random sequence), #iz134 
尾 递 归 (tail recursion), 23 
和 编译 (compiler and), 411 
和 求 值 的 环境 模型 (environment model of evaluation 
and), #7142 
和 显 式 控制 求 值 器 (explicit-control evaluator and), 
389, 2% 35.26, 2% 35.28 
和 废料 收集 (garbage collection and), ¿325 
和 元 循环 求 值 器 (metacircular evaluator and), 390 
在 Scheme 里 ， 盘 注 31 
图 递归 求 值 器 (tail-recursive evaluator), 390 
未 定 元 ， 多 项 式 (indeterminate of a polynomial ) ，138 
未 规定 的 值 (unspecified values ) 
define, Mriz8 
display, Biz70 
if 没有 替代 部 分 (without alternative), #22157 
newline, #iz70 
set! 72130 
set-car!， 脚 注 144 
set-cdr!, jilt 
未 约束 变量 (unbound variable), 262, %3 4.77 
位 置 (location), 374 


谓词 (predicate), 11 


cond 的 子 句 (of cond clause), 11 
iffy (of if), 12 
命名 习惯 (naming convention for), My j22 
问号 , 在 谓词 名 里 (question mark, in predicate names) , 
Be 222 
无 穷 流 (infinite stream), 226~232 
归并 (merging), # 93.56, 237, 238, 2% 33.7, 248 
归并 作 为 一 种 关系 (merging as arelation) ， 脚 注 203 
阶乘 的 (of factorials ) ， 练 习 3.54 
非 波 那 契 数 的 (of Fibonacci numbers) ， 见 fibs 
整数 的 (of integers)， 见 integers 
序 对 的 (of pairs), 235~238 
素数 的 (of prime numbers), @primes 
随机 数 的 (of random numbers), 245 
表示 需 级 数 (representing power series), 4 3) 3.59 
模 报 信号 (to model signals), 238~241 
级 数 求 和 (to sum a series), 233 
FEA Fe Fl] (infinite series), My iz284 
MR = WH (sparse polynomial), 142 
系统 化 的 搜索 (systematic search) , 288 
线段 (line segment ) l 
用 一 对 点 表示 (represented as pair of points), % 32.2 
用 一 对 向量 表示 (represented as pair of vectors), 练 
习 2.48 
线性 递 归 过 程 (linear recursive process), 22 
增长 的 阶 (order of growth) , 28 
SHEE 代 过 程 (linear iterative process), 23 
增长 的 阶 (order of growth) , 28 
线性 增长 (linear growth), 22, 28 
相等 (equality ) 
在 通用 算术 系统 里 (in generic arithmetic system), 练 
习 2.79 
表 的 (of lists), #3 2.54 
数 的 (of numbers), 12, Beiz102, #12294 
引用 透明 性 和 (referential transparency and), 160 
符号 的 (of symbols), 98 
相对 论 (relativity, theory of), 219 
向 量 (数据 结构 ) (vector (data structure )), 374 
向 量 (数学 ) (vector (mathematical ) ) 
操作 (operations on), # 92.37, #9 2.46 
在 图 形 语 言 的 框架 里 (in picture-language frame ), 91 
用 序 对 表示 (represented as pair), # 92.46 
用 序列 表示 (represented as sequence), # 92.37 
向 上 兼容 性 (upward compatibility), 练习 4.31 
消息 传递 (message passing) , 62, 127~128 
和 环境 模型 (environment model and), # 33.11 
银行 账号 里 (in bank account), 153 
数字 电路 模拟 里 (in digital-circuit simulation y, 192 
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和 尾 递归 (tail recursion and), #iz31 
效率 (efficiency), 3 2 -KHIB (order of growth ) 
编译 的 (of compilation ) 398 
数据 库 访 癌 的 (of data-base access), #3227] 
求 值 的 (of evaluation), 272 
Lisp 的 (of Lisp), 2 
查询 处 理 的 (of query processing) , 317 
树 形 递归 过 程 的 (of tree-recursive process ), 27 
信号， 数字 (signal, digital), 189 
信和 号 处 理 (signal processing ) 
平 请 一 个 函数 (smoothing a function )， 练 习 1.44 
平滑 一 个 信号 (smoothing a signal ) ， 练 习 3.74$， 练习 
3.76 
流 模型 (stream mode} of), 238~240 
缘 号 的 过 零点 (zero crossings of a signal), 
练习 3.75 ， 练 习 3.76 
信号 处 理 和 计算 (signal-processing view of computation ) ， 
77 
信号 量 (semaphore), M4172 
大 小 为 n (of sizen), % 33.47 
信号 流 图 (signal-flow diagram), ，77 ， 图 3-33 
信息 检索 (information retrieval )， 见 数据库 (data base) 
信用 卡 账户 ， 国 际 (credit-card accounts, international ), 
脚注 178 
形 参 (parameter )， 见 形式 参数 (formal parameters ) 
形式 参数 (formal parameters), 8 
的 名 字 (names of), 18 
的 作用 域 (scope of), 19 
序 对 (pair), 56 
公理 定义 (axiomatic definition of), 61 
盒子 和 指针 记 法 (box-and-pointer notation for), 65 
EZ (infinite stream of ), 235~238 
ttt (lazy), 284~286 
变动 的 (mutable), 173~176 
过 程 表示 (procedural representation of ), 61~62, 179, 
284 
用 向 量 表 示 (represented using vectors), 302~305 
用 于 表示 序列 (used to represent sequence) , 66 
用 于 表示 树 (used to represent tree), 72~74 
序列 (sequence), 66 
作为 规范 的 界面 (as conventional interface), 76~85 
作为 模块 化 的 来 源 (as source of modularity), 79 
操作 (operations on), 77~82 
用 序 对 表示 (represented by pairs), 66 
序列 加 速 器 (sequence accelerator), 233 
选择 函数 (selector), 55 
作为 抽象 屏障 (as abstraction barrier), 59 
通用 型 (generic), 121, 122 


be 5393.74 , 


循环 结构 (looping constructs), 16, 23 
在 元 循环 求 值 器 里 实现 (implementing in metacircular 


evaluator), 练习 4.9 


亚 里 士 多 德 《 论 天 》 (Aristotle’s De caelo) (Buridan 的 


评述 (commentary on) ) ， 和 脚注 175 
亚历山大 的 Heron (Heron of Alexandria), #iz21 
延 时 ， 在 数字 电路 里 (delay, in digital circuit ) 
延 时 参数 (delayed argument), 242 
延 时 对 象 (delayed object), 222 \ 
延 时 求 值 (delayed evaluation )， 
(RAN (assignment and ) ， 练 习 3.52 
显 式 与 自动 (explicit vs..automatic), 285 
在 惰性 求 值 器 里 (in lazy evaluator ), 276~285 
IEW Fe {Fn (normal-order evaluation and), 244~245 
打印 和 (printing and), #33.51 
mA (streams and) , 241~244 
严格 (strict), 277 
{ki & i) Al BA (dependency-directed backtracking ), 
脚注 251 
移植 一 个 语言 (porting a language) ，428 
银行 账户 (bank account), 150, % 33.11 
交换 余额 (exchanging balances), 214 


共用 (joint), 160, # 33.7 
共用 ， 用 流 模拟 (joint, modeled with streams), 43-38 


共用 ， 并 发 访问 (joint, with concurrent access) ，207 
用 密码 保护 (password-protected ) ， 练 习 3.3 
串 行 化 (serialized), 211 
流 模型 (stream model), 246 
转移 款项 (transferring money ), 
引号 (quotation), 96~98 
字符 申 (of character strings ), W299 
Lisp% xt & (of Lisp data objects) , 97 
自然 语言 里 (in natural language), 97 
引号 , 单 引 号 与 双 引 号 (quotation mark , single vs. double }, 
脚注 99 
引用 透明 性 (referential transparency ), 159 
隐藏 原理 (hiding principle), Æ iż 132 
应 用 序 求 值 nad evaluation), 10 
在 Lisp $, 
(normal order vs.), #391.5, iki .20, 
271~278 
BRAY (mapping ) 
对 表 (over lists}, 70~72 
E£ (nested), 82~86, 304~308 
作为 转换 器 (as a transducer), 77 
对 树 (over trees) , 75~76 
用 赋值 实现 (implemented with assignment) , 
表 结 构 (list structure), 173~176 


% 393.44 


179~180 
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序 对 (pairs), 173~176 
的 过 程 表 示 (procedural representation of), 179 
共享 数据 (shared data), 177 
有 理 数 (rational number ) 
算术 操作 (arithmetic operations on) , 55~58 
在 (in) MIT Scheme, #3223 
打印 (printing) , 57 
归 约 到 最 低 项 (reducing to lowest terms), 58~59 
表示 为 序 对 (represented as pairs), 57 
有 理 数 函数 (rational function), 144~147 
归 约 到 最 低 项 {reducing to lowest terms), 146~147 
有 理 数 算 术 (rational-number arithmetic) , 55~58 
与 通用 算术 系统 连接 (interfaced to generic arithmetic 
system), 129 
需要 复 合 数据 (need for compound data), 53 
余弦 (cosine) 
的 不 动 点 (fixed point of), 46 
的 震级 数 (power series for), # 33.59 
与 门 (and-gate), 189 
and-gate, 190 
宇宙 辐射 (cosmic radiation), #747 
语法 (grammar), 292 
语法 (syntax), ， 另 见 特 殊 形式 (special forms ) 
抽象 (abstract )， 见 抽象 语法 (abstract syntax ) 
HKR AI, Wik (of expressions, describing), Me iz 14 
程序 设计 语言 的 (of a programming language), 7 
语法 分 析 ， 与 执行 分 离 (syntactic analysis, separated 
from execution ) 
在 元 循环 求 值 器 里 (in metacircular evaluator )，273~276 
在 寄存 器 机 器 里 (in register-machine simulator ), 364~368 
语法 糖衣 (syntactic sugar )， 和 脚注 11 
define, 256 
let fp (as), 43 
循环 结构 作为 (looping constructs as), 23 
过 程 与 数据 ， 作 为 (procedure vs. data as), Miz 155 
语句 (statements) ， 见 指令 序列 (instruction sequence ) 
语言 (language )， 见 自然 语言 (aataraj language) , @ 
序 设计 语言 (programming language ) 
语言 的 一 级 元 素 (first-class elements in language), 51 
元 循环 求 值 器 ,Scheme (metacircular evaluator for Scheme) , 
251~268 
分 析 型 版 本 (analyzing version), 272~276 
组 合式 (过程 应 用) (combinations (procedure applic- 
ations ) ) ， 练 习 4.2 
的 编译 (compilation of), 4 35.56, #395.52 
数据 抽象 (data abstraction in), 251, 252, #3 5.52 
数据 导向 的 (data-directed) eval, 练习 4.3 
URAE iA (derived expressions), 258~260 


驱动 循环 (driver loop), 265 
的 效率 (efficiency of), 272 
求 值 的 环境 模型 (environment model of evaluation in) , 
251 | 
环境 操作 (environment operations) , 261 
evalflapply , 252~255 
eval-apply 3h (cycle), 251, 4-1 
表达 式 表 示 (expression representation), 252, 255~258 
全 局 环境 (global environment), 264 | 
高 阶 过 程 (higher-order procedures in), fie jz209 
被 实现 语言 与 实现 语言 (implemented language vs. 
imp-lementation language), {#210 
的 工作 (Gob of), #2208 
运算 对 象 的 求 值 顺序 (order of operand evaluation) , 
练习 4.1 
基本 过 程 (primitive procedures ) 264~266 
环境 的 表示 (representation of environments ) 261~263 
过 程 的 表示 (representation of procedures), 261 
真 和 假 的 表示 (representation of true and false), 260 
运行 (running), 264~266 
特殊 形式 (增加 的 ) (special forms (additional)), 2% 
94.4, #545, 94.6, 94.7, #748, % 
34.9 
特殊 形式 作为 派生 表达 式 (special forms as derived 
expressions ) 257~258 
和 符号 求 导 (symbolic differentiation and) , 255 
被 求 值 语言 的 语法 (syntax of evaluated language ) , 
255~258 , # 34.2, #37 4.10 
AIA FEHB (tail recursiveness unspecified in ) 390 
true 和 false, 364 
元 语言 抽象 (metalinguistic abstraction), 250 
原子 操作 (atomic) test-and-set! 217 
源 程 序 (source program), 397 
Misa (source language), 397 
约定 的 界面 (conventional interface), 55 
序列 作为 (sequence as), 76~86 
愿望 思维 (wishful thinking), 56, 99 
约束 (bind), 18 
约束 (binding), £62 
深 (deep), #34219 
约束 (constraint ) 
基本 的 (primitive), 198 
的 传播 (propagation of ) 198~205 
约束 变量 (bound variable), 18 
约束 的 传播 (propagation of constraints), 198~205 
约束 网 络 (constraint network), 198 
增长 的 阶 (order of growth), 28~29 


ibrik tit (linear iterative process ), 29 
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线性 递归 过 程 (linear recursive process), 29 
对 数 (logarithmic), 30 
树 递 归 过 程 (tree-recursive process), 29 
遮蔽 一 个 约束 (shadow a binding), 162 
折 半 法 (half-interval method ) ，44~45 
half-interval~method, 45 
与 牛顿 法 (Newton’s method vs. ) #pjz62 
真 (true), i317 
真 值 保持 (truth maintenance), #3251 
整数 (integer), Miz4 
除法 (dividing), W iz23 
Fa (exact), W23 
整数 除法 (division of integers), jy [23 
整数 化 因子 (integerizing factor) , 146 
正切 (tangent) 
VE ANE 47% (as continued fraction), #53 1.39 
的 等 级 数 (power series for), # 3 3.62 
正弦 (sine ) 
逼近 小 的 角 (approximation for small angle), # 531.15 
FRR (power series for), # 33.59 
正则 序 求 值 (normal-order evaluation), 10 
与 应 用 序 (applicative order vs. ) ， 练 习 1.$ ， 练 习 1.20 ， 
277~278 
和 延 时 求 什 (delayed evaluation and), 244~245 
在 显 式 控 制 求 值 器 里 (in explicit-control evaluator) , 
练习 3.25 
iff}, #31.5 
正则 上 序 求 值 器 (normal-order evaluator), R 惰性 求 值 器 
(lazy evaluator ) 
证 明 程 序 的 正确 性 (proving programs correct), $y 3420 
执行 过 程 (execution procedure ) 
在 分 析 型 求 值 器 里 {in analyzing evaluator ) 273 
在 非 确 定性 求 值 器 里 (in nondeterministic evaluator ) , 
296~298 
在 寄存 器 模拟 器 里 (in register-machine simulator) , 
362, 366~372 
值 (value) 
给 合式 的 (of a combination), 4 
表达 式 的 (of an expression), Miz7, 3 RRMA 
{A (unspecified values ) 
指令 计数 (instruction counting), # 95.15 
指令 序列 (instruction sequence}, 400~402 
指令 执行 过 程 (instruction execution procedure) , 362 
指令 追踪 (instruction tracing), # 35.16 
指数 (exponentiation) , 29~30 
Kin (modulon), 34 


指数 性 地 增长 (exponential growth ) 25 
Hh VS SEE aiit (of tree-recursive Fibonacci-number 


computation ) , 25 
指针 (pointer) 
盒子 和 指针 记 法 (in box-and-pointer notation ), 65 
带 类 型 的 (typed) , 375 
HAREE, 与 前 缀 记 共 (infix notation, prefix notation vs. ) ， 
练习 2.58 
仲裁 器 (arbiter)， 牌 注 175 
朱 世 杰 (Chu Shih-chieh) , 5235 
注释 ， 在 程序 里 (comments in programs), ， 脚 注 87 
状态 (state) 
局 部 (local), LARRA (local state ) 
共享 (shared), 208 
在 流 方式 中 消失 了 (vanishes in stream formulation ), 
247 
状态 变量 (state variable), 22, 150 
局 部 (local), 150~154 
追踪 (tracing ) 
指令 执行 (instruction execution), % 35.16 
寄存 器 赋值 (register assignment), # 55.18 
准确 的 整数 (exact integer), Hy iz 23 
子 类 型 (subtype), 135 
多 个 (multiple), 136 
字符 (character) ，109 
字符 串 (character strings ) 
的 基本 过程 (Primitive procedures for), #iz285 
的 引号 (quotation of), Briz99 
自动 存储 分 配 (automatic storage allocation), 374 
自动 魔法 般 地 (automagically), 289 
自动 搜索 (automatic search), 286, 3 34% (search) 
历史 (history of), #3#251 | 
自 求 值 表 达 式 (self-evaluating expression), 252 
自然 对 数 Eiln 2 (logarithm, approximating ln 2), 
33.65 
自然 语言 (natural language ) 
语法 分 析 (parsing), LH AAS a (parsing natural 
language ) | 
引号 (quotation in), 96 
自由 变量 (free variable), 18 
捕获 (capturing), 19 
内 部 定义 里 (in internal definition), 19 
自由 表 (free list), #12296 
阻塞 的 进程 (blocked process), 414173 
组 合 的 方法 (means of combination), 3, ¥% 见 闭 包 (closure) 
组 合式 (combination), 4~5 
以 组 合式 作为 组 合式 的 运算 符 (combination as operator 
of )， 脚 注 59 
以 复合 表达 式 作为 组 合式 的 运算 符 (compound expression 
as operator of )， 练 习 1.4 
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的 求 值 (evaluation of), 6~7 
LIambaa 表 达 式 作为 组 合式 的 运算 符 (expression as 
operator of ) ，41 
作为 树 (as atree)，6 
组 合式 的 意义 "(combination, means of )， 另 见 闭 包 (closure) 
组 合式 的 运算 对 象 (operands of a combination), 4 
组 合式 的 运算 符 (operator of a combination), 4 
组 合式 作为 (combination as), 459 
符号 表达 式 作为 (compound expression as), #51.4 
lambda ži fE (expression as), 42 
最 大 公约 数 (greatest common divisor), 32~33, JA 


GCD 
通用 的 (generic), 2.92.94 
多 项 式 的 (of polynomials), 145 
用 于 估计 x (used to estimate n), 155 
用 于 有 理 数 算术 (used in rational-number arithmetic) , 
58 
最 小 允诺 原则 (principle of least commitment), 119 
最 优 (optimality ) 
Horner 规 则 (rule), #;ż82 
Huffman 编 码 (code), 112 


